PAmrNSF_F.H Source File

00001 #ifndef _PAMRNSF_F_H_
00002 #define _PAMRNSF_F_H_
00003 
00004 #include "FORT_PROTO.H"
00005 #include "REAL.H"
00006 
00007 extern "C"
00008 {
00009 
00010 // Prototype for Fortran procedure COMPUTEVORT ...
00011 //
00012 #define FORT_COMPUTEVORT FORTRAN_NAME( COMPUTEVORT ,computevort )
00013 void 
00014 FORT_COMPUTEVORT(
00015       CHFp_FRA1(vort)
00016       ,CHFp_FRA(vel)
00017       ,CHFp_BOX(gridBox)
00018       ,CHFp_CONST_REAL(dx)
00019       ,CHFp_CONST_INT(dir) );
00020 
00021 // Prototype for Fortran procedure KINETICENERGY ...
00022 //
00023 #define FORT_KINETICENERGY FORTRAN_NAME( KINETICENERGY ,kineticenergy )
00024 void 
00025 FORT_KINETICENERGY(
00026       CHFp_FRA1(energy)
00027       ,CHFp_CONST_FRA(vel)
00028       ,CHFp_BOX(gridBox) );
00029 
00030 // Prototype for Fortran procedure MAGVECT ...
00031 //
00032 #define FORT_MAGVECT FORTRAN_NAME( MAGVECT ,magvect )
00033 void 
00034 FORT_MAGVECT(
00035       CHFp_FRA1(magVector)
00036       ,CHFp_FRA(vect)
00037       ,CHFp_BOX(gridBox) );
00038 
00039 // Prototype for Fortran procedure CENTERED_DERIV ...
00040 //
00041 #define FORT_CENTERED_DERIV FORTRAN_NAME( CENTERED_DERIV ,centered_deriv )
00042 void 
00043 FORT_CENTERED_DERIV(
00044       CHFp_FRA1(deriv)
00045       ,CHFp_CONST_FRA1(phi)
00046       ,CHFp_BOX(grid)
00047       ,CHFp_CONST_REAL(dx)
00048       ,CHFp_INT(dir) );
00049 
00050 }
00051 
00052 #endif