Chombo&INSwithParticles: PROB_F

00001 #ifndef _PROB_F_F_H_
00002 #define _PROB_F_F_H_
00003 
00004 #include "FORT_PROTO.H"
00005 #include "REAL.H"
00006 
00007 extern "C"
00008 {
00009 
00010 // Prototype for Fortran procedure INITVEL ...
00011 //
00012 #define FORT_INITVEL FORTRAN_NAME( INITVEL ,initvel )
00013 void 
00014 FORT_INITVEL(
00015       CHFp_FRA(vel)
00016       ,CHFp_REAL(dx) );
00017 
00018 // Prototype for Fortran procedure SETTAGGINGVAR ...
00019 //
00020 #define FORT_SETTAGGINGVAR FORTRAN_NAME( SETTAGGINGVAR ,settaggingvar )
00021 void 
00022 FORT_SETTAGGINGVAR(
00023       CHFp_FRA1(tagvar)
00024       ,CHFp_CONST_REAL(dx) );
00025 
00026 // Prototype for Fortran procedure INITSCAL ...
00027 //
00028 #define FORT_INITSCAL FORTRAN_NAME( INITSCAL ,initscal )
00029 void 
00030 FORT_INITSCAL(
00031       CHFp_FRA(scal)
00032       ,CHFp_REAL(dx)
00033       ,CHFp_REAL(time)
00034       ,CHFp_INT(comp)
00035       ,CHFp_BOX(domain)
00036       ,CHFp_INT(isEC) );
00037 
00038 // Prototype for Fortran procedure INITVORT ...
00039 //
00040 #define FORT_INITVORT FORTRAN_NAME( INITVORT ,initvort )
00041 void 
00042 FORT_INITVORT(
00043       CHFp_FRA1(vort)
00044       ,CHFp_INT(comp)
00045       ,CHFp_REAL(dx) );
00046 
00047 // Prototype for Fortran procedure computeexact ...
00048 //
00049 #define FORT_COMPUTEEXACT FORTRAN_NAME( COMPUTEEXACT ,computeexact )
00050 void 
00051 FORT_COMPUTEEXACT(
00052       CHFp_FRA(exact)
00053       ,CHFp_CONST_REAL(nu)
00054       ,CHFp_CONST_REAL(time)
00055       ,CHFp_CONST_REAL(dx) );
00056 
00057 }
00058 
00059 #endif
PROB_F_F.H
