viscousBCF_F.H Source File

00001 #ifndef _VISCOUSBCF_F_H_
00002 #define _VISCOUSBCF_F_H_
00003 
00004 #include "FORT_PROTO.H"
00005 #include "REAL.H"
00006 
00007 extern "C"
00008 {
00009 
00010 // Prototype for Fortran procedure VISCOUSBC ...
00011 //
00012 #define FORT_VISCOUSBC FORTRAN_NAME( VISCOUSBC ,viscousbc )
00013 void 
00014 FORT_VISCOUSBC(
00015       CHFp_FRA(viscous)
00016       ,CHFp_BOX(gridBox)
00017       ,CHFp_BOX(loBox)
00018       ,CHFp_BOX(hiBox)
00019       ,CHFp_INT(dir)
00020       ,CHFp_INT(nComp) );
00021 
00022 }
00023 
00024 #endif