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_multishift_quda_(void *_hp_x, 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 *mom, double *dt, double *delta, void *gauge, void *x,
                                     QudaGaugeParam *gauge_param, QudaInvertParam *invert_param);
 
  void compute_gauge_force_quda_(void *mom, void *gauge, int *num_loop_types, double *coeff, double *dt,
                                 QudaGaugeParam *param);
 
  void apply_staggered_phase_quda_();
 
  void remove_staggered_phase_quda_();
 
  void kinetic_quda_(double *kin, void* momentum, QudaGaugeParam* param);
 
  void plaq_quda_(double plaq[3]);
 
  void set_kernel_pack_t_(int *pack);
 
  void flush_chrono_quda_(int *index);
 
  void register_pinned_quda_(void *ptr, size_t *bytes);
 
  void unregister_pinned_quda_(void *ptr);
 
#ifdef __cplusplus
}
#endif 
 
#endif /* _QUDA_FORTRAN_H */