Chombo&AMRSelfGravity: TestsIBCF

00001 #ifndef _TESTSIBCF_F_H_
00002 #define _TESTSIBCF_F_H_
00003 
00004 #include "FORT_PROTO.H"
00005 #include "REAL.H"
00006 
00007 extern "C"
00008 {
00009 
00010 // Prototype for Fortran procedure SETTESTS ...
00011 //
00012 #define FORT_SETTESTS FORTRAN_NAME( SETTESTS ,settests )
00013 void 
00014 FORT_SETTESTS(
00015       CHFp_CONST_REAL(aums)
00016       ,CHFp_CONST_REALVECT(aucenter)
00017       ,CHFp_CONST_REAL(ausize)
00018       ,CHFp_CONST_REALVECT(auvelocity)
00019       ,CHFp_CONST_REAL(auartvisc) );
00020 
00021 // Prototype for Fortran procedure EXPLOSIONINITC ...
00022 //
00023 #define FORT_EXPLOSIONINITC FORTRAN_NAME( EXPLOSIONINITC ,explosioninitc )
00024 void 
00025 FORT_EXPLOSIONINITC(
00026       CHFp_FRA(U)
00027       ,CHFp_CONST_REAL(dx)
00028       ,CHFp_BOX(box) );
00029 
00030 // Prototype for Fortran procedure EXPLOSIONINITC2 ...
00031 //
00032 #define FORT_EXPLOSIONINITC2 FORTRAN_NAME( EXPLOSIONINITC2 ,explosioninitc2 )
00033 void 
00034 FORT_EXPLOSIONINITC2(
00035       CHFp_FRA(U)
00036       ,CHFp_CONST_REAL(dx)
00037       ,CHFp_BOX(box) );
00038 
00039 // Prototype for Fortran procedure WINDCOLLISION ...
00040 //
00041 #define FORT_WINDCOLLISION FORTRAN_NAME( WINDCOLLISION ,windcollision )
00042 void 
00043 FORT_WINDCOLLISION(
00044       CHFp_FRA(U)
00045       ,CHFp_CONST_REAL(dx)
00046       ,CHFp_BOX(box) );
00047 
00048 // Prototype for Fortran procedure EXPANDINGSHOCK ...
00049 //
00050 #define FORT_EXPANDINGSHOCK FORTRAN_NAME( EXPANDINGSHOCK ,expandingshock )
00051 void 
00052 FORT_EXPANDINGSHOCK(
00053       CHFp_FRA(U)
00054       ,CHFp_CONST_REAL(dx)
00055       ,CHFp_BOX(box) );
00056 
00057 // Prototype for Fortran procedure DUSTCOLLAPSE ...
00058 //
00059 #define FORT_DUSTCOLLAPSE FORTRAN_NAME( DUSTCOLLAPSE ,dustcollapse )
00060 void 
00061 FORT_DUSTCOLLAPSE(
00062       CHFp_FRA(U)
00063       ,CHFp_CONST_REAL(radius)
00064       ,CHFp_CONST_REAL(density)
00065       ,CHFp_CONST_REAL(dx)
00066       ,CHFp_BOX(box) );
00067 
00068 }
00069 
00070 #endif
TestsIBCF_F.H
