AMRNS_F_F.H Source File

00001 #ifndef _AMRNS_F_F_H_
00002 #define _AMRNS_F_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 MAGVECT ...
00022 //
00023 #define FORT_MAGVECT FORTRAN_NAME( MAGVECT ,magvect )
00024 void 
00025 FORT_MAGVECT(
00026       CHFp_FRA1(magVector)
00027       ,CHFp_FRA(vect)
00028       ,CHFp_BOX(gridBox) );
00029 
00030 // Prototype for Fortran procedure CENTERED_DERIV ...
00031 //
00032 #define FORT_CENTERED_DERIV FORTRAN_NAME( CENTERED_DERIV ,centered_deriv )
00033 void 
00034 FORT_CENTERED_DERIV(
00035       CHFp_FRA1(deriv)
00036       ,CHFp_CONST_FRA1(phi)
00037       ,CHFp_BOX(grid)
00038       ,CHFp_CONST_REAL(dx)
00039       ,CHFp_INT(dir) );
00040 
00041 }
00042 #endif