RampF_F.H Source File

00001 #ifndef _RampF_F_H_
00002 #define _RampF_F_H_
00003 
00004 #include "FORT_PROTO.H"
00005 #include "REAL.H"
00006 
00007 extern "C"
00008 {
00009 
00010 // Prototype for Fortran procedure SETRAMP ...
00011 //
00012 #define FORT_SETRAMP FORTRAN_NAME( SETRAMP ,setramp )
00013 void 
00014 FORT_SETRAMP(
00015       CHFp_CONST_REAL(augamma)
00016       ,CHFp_CONST_REAL(aualpha)
00017       ,CHFp_CONST_REAL(aums)
00018       ,CHFp_CONST_REAL(auxcorner) );
00019 
00020 // Prototype for Fortran procedure RAMPINIT ...
00021 //
00022 #define FORT_RAMPINIT FORTRAN_NAME( RAMPINIT ,rampinit )
00023 void 
00024 FORT_RAMPINIT(
00025       CHFp_FRA(U)
00026       ,CHFp_CONST_REAL(dx)
00027       ,CHFp_BOX(box) );
00028 
00029 // Prototype for Fortran procedure RAMPBC ...
00030 //
00031 #define FORT_RAMPBC FORTRAN_NAME( RAMPBC ,rampbc )
00032 void 
00033 FORT_RAMPBC(
00034       CHFp_FRA(F)
00035       ,CHFp_CONST_FRA(W)
00036       ,CHFp_CONST_REAL(time)
00037       ,CHFp_CONST_INT(lohisign)
00038       ,CHFp_CONST_REAL(dx)
00039       ,CHFp_CONST_INT(dir)
00040       ,CHFp_BOX(box) );
00041 
00042 // Prototype for Fortran procedure RAMPSOLIDBC ...
00043 //
00044 #define FORT_RAMPSOLIDBC FORTRAN_NAME( RAMPSOLIDBC ,rampsolidbc )
00045 void 
00046 FORT_RAMPSOLIDBC(
00047       CHFp_FRA(F)
00048       ,CHFp_CONST_FRA(Wextrap)
00049       ,CHFp_CONST_REAL(dx)
00050       ,CHFp_CONST_INT(dir)
00051       ,CHFp_BOX(box) );
00052 
00053 // Prototype for Fortran procedure RAMPSLOPEBCS ...
00054 //
00055 #define FORT_RAMPSLOPEBCS FORTRAN_NAME( RAMPSLOPEBCS ,rampslopebcs )
00056 void 
00057 FORT_RAMPSLOPEBCS(
00058       CHFp_FRA(dW)
00059       ,CHFp_CONST_FRA(W)
00060       ,CHFp_CONST_REAL(dx)
00061       ,CHFp_CONST_INT(dir)
00062       ,CHFp_BOX(loBox)
00063       ,CHFp_CONST_INT(hasLo)
00064       ,CHFp_BOX(hiBox)
00065       ,CHFp_CONST_INT(hasHi) );
00066 
00067 }
00068 #endif