BCF_F.H Source File

00001 #ifndef _BCF_F_H_
00002 #define _BCF_F_H_
00003 
00004 #include "FORT_PROTO.H"
00005 #include "REAL.H"
00006 
00007 extern "C"
00008 {
00009 
00010 // Prototype for Fortran procedure EXTRAPGHOSTBC ...
00011 //
00012 #define FORT_EXTRAPGHOSTBC FORTRAN_NAME( EXTRAPGHOSTBC ,extrapghostbc )
00013 void 
00014 FORT_EXTRAPGHOSTBC(
00015       CHFp_FRA(state)
00016       ,CHFp_BOX(bcBox)
00017       ,CHFp_CONST_INT(idir)
00018       ,CHFp_CONST_INT(side)
00019       ,CHFp_CONST_REAL(dx)
00020       ,CHFp_CONST_INT(startcomp)
00021       ,CHFp_CONST_INT(endcomp) );
00022 
00023 // Prototype for Fortran procedure HOEXTRAPGHOSTBC ...
00024 //
00025 #define FORT_HOEXTRAPGHOSTBC FORTRAN_NAME( HOEXTRAPGHOSTBC ,hoextrapghostbc )
00026 void 
00027 FORT_HOEXTRAPGHOSTBC(
00028       CHFp_FRA(state)
00029       ,CHFp_BOX(bcBox)
00030       ,CHFp_CONST_INT(idir)
00031       ,CHFp_CONST_INT(side)
00032       ,CHFp_CONST_REAL(dx)
00033       ,CHFp_CONST_INT(startcomp)
00034       ,CHFp_CONST_INT(endcomp) );
00035 
00036 // Prototype for Fortran procedure REFLECTGHOSTBC ...
00037 //
00038 #define FORT_REFLECTGHOSTBC FORTRAN_NAME( REFLECTGHOSTBC ,reflectghostbc )
00039 void 
00040 FORT_REFLECTGHOSTBC(
00041       CHFp_FRA(state)
00042       ,CHFp_BOX(bcBox)
00043       ,CHFp_CONST_INT(idir)
00044       ,CHFp_CONST_INT(side)
00045       ,CHFp_CONST_REAL(dx)
00046       ,CHFp_CONST_INT(startcomp)
00047       ,CHFp_CONST_INT(endcomp)
00048       ,CHFp_CONST_REAL(scale) );
00049 
00050 }
00051 
00052 #endif