IdealMHDIBCF_F.H Source File

00001 #ifndef _IdealMHDIBCF_F_H_
00002 #define _IdealMHDIBCF_F_H_
00003 
00004 #include "FORT_PROTO.H"
00005 #include "REAL.H"
00006 
00007 extern "C"
00008 {
00009 
00010 // Prototype for Fortran procedure SETMHD ...
00011 //
00012 #define FORT_SETMHD FORTRAN_NAME( SETMHD ,setmhd )
00013 void 
00014 FORT_SETMHD(
00015       CHFp_CONST_REAL(a_gamma) );
00016 
00017 // Prototype for Fortran procedure MHDINIT ...
00018 //
00019 #define FORT_MHDINIT FORTRAN_NAME( MHDINIT ,mhdinit )
00020 void 
00021 FORT_MHDINIT(
00022       CHFp_FRA(U)
00023       ,CHFp_CONST_REAL(dx)
00024       ,CHFp_BOX(box) );
00025 
00026 // Prototype for Fortran procedure MHDBC ...
00027 //
00028 #define FORT_MHDBC FORTRAN_NAME( MHDBC ,mhdbc )
00029 void 
00030 FORT_MHDBC(
00031       CHFp_FRA(F)
00032       ,CHFp_CONST_FRA(W)
00033       ,CHFp_CONST_REAL(time)
00034       ,CHFp_CONST_INT(lohisign)
00035       ,CHFp_CONST_REAL(dx)
00036       ,CHFp_CONST_INT(dir)
00037       ,CHFp_BOX(box) );
00038 
00039 // Prototype for Fortran procedure MHDSOLIDBC ...
00040 //
00041 #define FORT_MHDSOLIDBC FORTRAN_NAME( MHDSOLIDBC ,mhdsolidbc )
00042 void 
00043 FORT_MHDSOLIDBC(
00044       CHFp_FRA(F)
00045       ,CHFp_CONST_FRA(Wextrap)
00046       ,CHFp_CONST_REAL(dx)
00047       ,CHFp_CONST_INT(dir)
00048       ,CHFp_BOX(box) );
00049 
00050 // Prototype for Fortran procedure MHDSLOPEBCS ...
00051 //
00052 #define FORT_MHDSLOPEBCS FORTRAN_NAME( MHDSLOPEBCS ,mhdslopebcs )
00053 void 
00054 FORT_MHDSLOPEBCS(
00055       CHFp_FRA(dW)
00056       ,CHFp_CONST_FRA(W)
00057       ,CHFp_CONST_REAL(dx)
00058       ,CHFp_CONST_INT(dir)
00059       ,CHFp_BOX(loBox)
00060       ,CHFp_CONST_INT(hasLo)
00061       ,CHFp_BOX(hiBox)
00062       ,CHFp_CONST_INT(hasHi) );
00063 
00064 }
00065 #endif