HelmholtzOpF_F.H Source File

00001 #ifndef _HelmholtzOpF_F_H_
00002 #define _HelmholtzOpF_F_H_
00003 
00004 #include "FORT_PROTO.H"
00005 #include "REAL.H"
00006 
00007 extern "C"
00008 {
00009 
00010 // Prototype for Fortran procedure GSRBLEVELHELM ...
00011 //
00012 #define FORT_GSRBLEVELHELM FORTRAN_NAME( GSRBLEVELHELM ,gsrblevelhelm )
00013 void 
00014 FORT_GSRBLEVELHELM(
00015       CHFp_FRA(phi)
00016       ,CHFp_CONST_FRA(rhs)
00017       ,CHFp_BOX(region)
00018       ,CHFp_CONST_REAL(dx)
00019       ,CHFp_CONST_REAL(alpha)
00020       ,CHFp_CONST_INT(redBlack) );
00021 
00022 // Prototype for Fortran procedure OPERATORHELM ...
00023 //
00024 #define FORT_OPERATORHELM FORTRAN_NAME( OPERATORHELM ,operatorhelm )
00025 void 
00026 FORT_OPERATORHELM(
00027       CHFp_FRA(lofphi)
00028       ,CHFp_CONST_FRA(phi)
00029       ,CHFp_BOX(region)
00030       ,CHFp_CONST_REAL(dx)
00031       ,CHFp_CONST_REAL(alpha) );
00032 
00033 }
00034 #endif