quda_fortran.h

Go to the documentation of this file.

#ifndef _QUDA_FORTRAN_H
#define _QUDA_FORTRAN_H

#include <quda_constants.h>

#ifdef __cplusplus
extern "C" {
#endif

  void init_quda_device_(int *device);

  void init_quda_memory_();

  void init_quda_(int *device);

  void end_quda_(void);

  void comm_set_gridsize_(int *grid);

  void new_quda_gauge_param_(QudaGaugeParam *param);

  void new_quda_invert_param_(QudaInvertParam *param);

  void load_gauge_quda_(void *h_gauge, QudaGaugeParam *param);

  void free_gauge_quda_(void);

  void free_sloppy_gauge_quda_(void);

  void load_clover_quda_(void *h_clover, void *h_clovinv,
                         QudaInvertParam *inv_param);

  void free_clover_quda_(void);

  void dslash_quda_(void *h_out, void *h_in, QudaInvertParam *inv_param,
                    QudaParity *parity);

  void clover_quda_(void *h_out, void *h_in, QudaInvertParam *inv_param,
                    QudaParity *parity, int *inverse);

  void mat_quda_(void *h_out, void *h_in, QudaInvertParam *inv_param);

  void mat_dag_mat_quda_(void *h_out, void *h_in, QudaInvertParam *inv_param);

  void invert_quda_(void *h_x, void *h_b, QudaInvertParam *param);

  void invert_md_quda_(void *hp_x, void *hp_b, QudaInvertParam *param);

  void invert_multi_shift_quda_(void *_hp_x[QUDA_MAX_MULTI_SHIFT], void *_hp_b, QudaInvertParam *param);


  void update_gauge_field_quda_(void* gauge, void* momentum, double *dt, 
                                bool *conj_mom, bool *exact, QudaGaugeParam* param);

  void compute_staggered_force_quda_(void* cudaMom, void* qudaQuark, double *coeff);

  int compute_gauge_force_quda_(void *mom, void *gauge,  int *input_path_buf, int *path_length,
                                double *loop_coeff, int *num_paths, int *max_length, double *dt,
                                QudaGaugeParam *qudaGaugeParam);

  void apply_staggered_phase_quda_();

  void remove_staggered_phase_quda_();

  void set_kernel_pack_t_(int *pack);

#ifdef __cplusplus
}
#endif 

#endif /* _QUDA_FORTRAN_H */