PROB_F_F.H Source File

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_FRA1(scal)
00032       ,CHFp_REAL(dx)
00033       ,CHFp_INT(comp)
00034       ,CHFp_BOX(domain)
00035       ,CHFp_INT(isEC) );
00036 
00037 // Prototype for Fortran procedure INITVORT ...
00038 //
00039 #define FORT_INITVORT FORTRAN_NAME( INITVORT ,initvort )
00040 void 
00041 FORT_INITVORT(
00042       CHFp_FRA1(vort)
00043       ,CHFp_INT(comp)
00044       ,CHFp_REAL(dx) );
00045 
00046 }
00047 #endif