src/mdlib/callf77.m4

   1 #include "typedefs.h"
   2 #include "callf77.h"
   3 #include "fatal.h"
   4
   5 /* This file provides the interface to fortran routines in a machine
   6  * independent way.
   7  */
   8
   9 /* Fortran versions of shake and settle */
  10 define(`fsettle_args',`(int *nshake,int owptr[],real b4[],real after[],real *dOH,real *dHH,real *mO,real *mH,int *error)')
  11
  12 extern void FUNCTION(forsettle) fsettle_args;
  13 void fsettle fsettle_args
  14 {
  15 #ifdef USEF77
  16   FUNCTION(forsettle) (nshake,owptr,b4,after,dOH,dHH,mO,mH,error);
  17 #else
  18   fatal_error(0,"fsettle called (Fortran routine from %s %d)",__FILE__,__LINE__);
  19 #endif
  20 }
  21
  22 define(`fshake_args',`(atom_id iatom[],int *ncon,int *nit,int *maxnit,real dist2[],real xp[],real rij[],real m2[],real invmass[],real tt[],real lambda[],int *error)')
  23
  24 extern void FUNCTION(forshake) fshake_args;
  25
  26 void fshake fshake_args
  27 {
  28 #ifdef USEF77
  29   FUNCTION(forshake)(iatom,ncon,nit,maxnit,dist2,xp,rij,m2,invmass,tt,lambda,error);
  30 #else
  31   fatal_error(0,"fshake called (Fortran routine from %s %d)",__FILE__,__LINE__);
  32 #endif
  33 }
  34
  35 /* LINCS */
  36
  37 define(`flincs_args',`(real *x,real *xp,int *nc,int *bla1,int *bla2,int *blnr,int *blbnb,real *bllen,real *blc,real *blcc,real *blm,int *nit,int *nrec,real *invmass,real *r,real *temp1,real *temp2,real *temp3,real *wangle,int *warn,real *lambda)')
  38
  39 extern void FUNCTION(forlincs) flincs_args;
  40
  41 void flincs flincs_args
  42 {
  43 #ifdef USEF77
  44   FUNCTION(forlincs)(x,xp,nc,bla1,bla2,blnr,blbnb,bllen,blc,blcc,
  45         blm,nit,nrec,invmass,r,temp1,temp2,temp3,wangle,warn,lambda);
  46 #else
  47   fatal_error(0,"flincs called (Fortran routine from %s %d)",__FILE__,__LINE__);
  48 #endif
  49 }