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
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
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
00031
00032 #define FORT_WINDCOLLISION FORTRAN_NAME( WINDCOLLISION ,windcollision )
00033 void
00034 FORT_WINDCOLLISION(
00035 CHFp_FRA(U)
00036 ,CHFp_CONST_REAL(dx)
00037 ,CHFp_BOX(box) );
00038
00039
00040
00041 #define FORT_EXPANDINGSHOCK FORTRAN_NAME( EXPANDINGSHOCK ,expandingshock )
00042 void
00043 FORT_EXPANDINGSHOCK(
00044 CHFp_FRA(U)
00045 ,CHFp_CONST_REAL(dx)
00046 ,CHFp_BOX(box) );
00047
00048 }
00049
00050 #endif