InterpF_F.H Source File

00001 #ifndef _InterpF_F_H_
00002 #define _InterpF_F_H_
00003 
00004 #include "FORT_PROTO.H"
00005 #include "REAL.H"
00006 
00007 extern "C"
00008 {
00009 
00010 // Prototype for Fortran procedure interpconstant ...
00011 //
00012 #define FORT_INTERPCONSTANT FORTRAN_NAME( INTERPCONSTANT ,interpconstant )
00013 void 
00014 FORT_INTERPCONSTANT(
00015       CHFp_FRA(fine)
00016       ,CHFp_CONST_FRA(coarse)
00017       ,CHFp_BOX(b)
00018       ,CHFp_CONST_INT(ref_ratio)
00019       ,CHFp_BOX(bref) );
00020 
00021 // Prototype for Fortran procedure interpcentralslope ...
00022 //
00023 #define FORT_INTERPCENTRALSLOPE FORTRAN_NAME( INTERPCENTRALSLOPE ,interpcentralslope )
00024 void 
00025 FORT_INTERPCENTRALSLOPE(
00026       CHFp_FRA(slope)
00027       ,CHFp_CONST_FRA(state)
00028       ,CHFp_BOX(b)
00029       ,CHFp_CONST_INT(dir) );
00030 
00031 // Prototype for Fortran procedure interphisideslope ...
00032 //
00033 #define FORT_INTERPHISIDESLOPE FORTRAN_NAME( INTERPHISIDESLOPE ,interphisideslope )
00034 void 
00035 FORT_INTERPHISIDESLOPE(
00036       CHFp_FRA(slope)
00037       ,CHFp_CONST_FRA(state)
00038       ,CHFp_BOX(b)
00039       ,CHFp_CONST_INT(dir) );
00040 
00041 // Prototype for Fortran procedure interplosideslope ...
00042 //
00043 #define FORT_INTERPLOSIDESLOPE FORTRAN_NAME( INTERPLOSIDESLOPE ,interplosideslope )
00044 void 
00045 FORT_INTERPLOSIDESLOPE(
00046       CHFp_FRA(slope)
00047       ,CHFp_CONST_FRA(state)
00048       ,CHFp_BOX(b)
00049       ,CHFp_CONST_INT(dir) );
00050 
00051 // Prototype for Fortran procedure interplimit ...
00052 //
00053 #define FORT_INTERPLIMIT FORTRAN_NAME( INTERPLIMIT ,interplimit )
00054 void 
00055 FORT_INTERPLIMIT(
00056       CHFp_FRA(islope)
00057       ,CHFp_FRA(jslope)
00058       ,CHFp_FRA(kslope)
00059       ,CHFp_CONST_FRA(state)
00060       ,CHFp_BOX(bcoarse)
00061       ,CHFp_BOX(bn)
00062       ,CHFp_BOX(physdomain) );
00063 
00064 // Prototype for Fortran procedure interplinear ...
00065 //
00066 #define FORT_INTERPLINEAR FORTRAN_NAME( INTERPLINEAR ,interplinear )
00067 void 
00068 FORT_INTERPLINEAR(
00069       CHFp_FRA(fine)
00070       ,CHFp_CONST_FRA(slope)
00071       ,CHFp_BOX(b)
00072       ,CHFp_CONST_INT(dir)
00073       ,CHFp_CONST_INT(ref_ratio)
00074       ,CHFp_BOX(bref) );
00075 
00076 }
00077 #endif