Chombo&AMRSelfGravity: TensorOpF

00001 #ifndef _TENSOROPF_F_H_
00002 #define _TENSOROPF_F_H_
00003 
00004 #include "FORT_PROTO.H"
00005 #include "REAL.H"
00006 
00007 extern "C"
00008 {
00009 
00010 // Prototype for Fortran procedure GSRBLEVELTENSORLAP ...
00011 //
00012 #define FORT_GSRBLEVELTENSORLAP FORTRAN_NAME( GSRBLEVELTENSORLAP ,gsrbleveltensorlap )
00013 void 
00014 FORT_GSRBLEVELTENSORLAP(
00015       CHFp_FRA(phi)
00016       ,CHFp_CONST_FRA(rhs)
00017       ,CHFp_BOX(region)
00018       ,CHFp_CONST_REAL(dx)
00019       ,CHFp_CONST_INT(redBlack) );
00020 
00021 // Prototype for Fortran procedure GSRBLEVELTENSORDIR ...
00022 //
00023 #define FORT_GSRBLEVELTENSORDIR FORTRAN_NAME( GSRBLEVELTENSORDIR ,gsrbleveltensordir )
00024 void 
00025 FORT_GSRBLEVELTENSORDIR(
00026       CHFp_FRA(phi)
00027       ,CHFp_CONST_FRA(divPhi)
00028       ,CHFp_BOX(region)
00029       ,CHFp_CONST_REAL(dx)
00030       ,CHFp_CONST_INT(redBlack)
00031       ,CHFp_CONST_INT(dir) );
00032 
00033 // Prototype for Fortran procedure INCREMENTTENSOROP ...
00034 //
00035 #define FORT_INCREMENTTENSOROP FORTRAN_NAME( INCREMENTTENSOROP ,incrementtensorop )
00036 void 
00037 FORT_INCREMENTTENSOROP(
00038       CHFp_FRA(lofphi)
00039       ,CHFp_CONST_FRA(phi)
00040       ,CHFp_CONST_FRA(divPhi)
00041       ,CHFp_BOX(region)
00042       ,CHFp_CONST_REAL(dx)
00043       ,CHFp_CONST_INT(dir) );
00044 
00045 }
00046 
00047 #endif
TensorOpF_F.H
