00001 #ifndef _CYLINDEREQUIANGULARMAPSF_F_H_
00002 #define _CYLINDEREQUIANGULARMAPSF_F_H_
00003
00004 #include "FORT_PROTO.H"
00005 #include "CH_Timer.H"
00006 #include "REAL.H"
00007
00008 extern "C"
00009 {
00010
00011 #ifndef GUARDCYLINDEREQUIANGULARREAL
00012 #define GUARDCYLINDEREQUIANGULARREAL
00013
00014
00015 void FORTRAN_NAME( CYLINDEREQUIANGULARREAL ,cylinderequiangularreal )(
00016 CHFp_REALVECT(x)
00017 ,CHFp_CONST_INT(iblock)
00018 ,CHFp_CONST_REALVECT(xi) );
00019
00020 #define FORT_CYLINDEREQUIANGULARREAL FORTRAN_NAME( inlineCYLINDEREQUIANGULARREAL, inlineCYLINDEREQUIANGULARREAL)
00021 #define FORTNT_CYLINDEREQUIANGULARREAL FORTRAN_NAME( CYLINDEREQUIANGULARREAL, cylinderequiangularreal)
00022
00023 inline void FORTRAN_NAME(inlineCYLINDEREQUIANGULARREAL, inlineCYLINDEREQUIANGULARREAL)(
00024 CHFp_REALVECT(x)
00025 ,CHFp_CONST_INT(iblock)
00026 ,CHFp_CONST_REALVECT(xi) )
00027 {
00028 CH_TIMELEAF("FORT_CYLINDEREQUIANGULARREAL");
00029 FORTRAN_NAME( CYLINDEREQUIANGULARREAL ,cylinderequiangularreal )(
00030 CHFt_REALVECT(x)
00031 ,CHFt_CONST_INT(iblock)
00032 ,CHFt_CONST_REALVECT(xi) );
00033 }
00034 #endif // GUARDCYLINDEREQUIANGULARREAL
00035
00036 #ifndef GUARDCYLINDEREQUIANGULARMAPPED
00037 #define GUARDCYLINDEREQUIANGULARMAPPED
00038
00039
00040 void FORTRAN_NAME( CYLINDEREQUIANGULARMAPPED ,cylinderequiangularmapped )(
00041 CHFp_REALVECT(xi)
00042 ,CHFp_CONST_INT(iblock)
00043 ,CHFp_CONST_REALVECT(x) );
00044
00045 #define FORT_CYLINDEREQUIANGULARMAPPED FORTRAN_NAME( inlineCYLINDEREQUIANGULARMAPPED, inlineCYLINDEREQUIANGULARMAPPED)
00046 #define FORTNT_CYLINDEREQUIANGULARMAPPED FORTRAN_NAME( CYLINDEREQUIANGULARMAPPED, cylinderequiangularmapped)
00047
00048 inline void FORTRAN_NAME(inlineCYLINDEREQUIANGULARMAPPED, inlineCYLINDEREQUIANGULARMAPPED)(
00049 CHFp_REALVECT(xi)
00050 ,CHFp_CONST_INT(iblock)
00051 ,CHFp_CONST_REALVECT(x) )
00052 {
00053 CH_TIMELEAF("FORT_CYLINDEREQUIANGULARMAPPED");
00054 FORTRAN_NAME( CYLINDEREQUIANGULARMAPPED ,cylinderequiangularmapped )(
00055 CHFt_REALVECT(xi)
00056 ,CHFt_CONST_INT(iblock)
00057 ,CHFt_CONST_REALVECT(x) );
00058 }
00059 #endif // GUARDCYLINDEREQUIANGULARMAPPED
00060
00061 #ifndef GUARDCYLINDEREQUIANGULARDERIV
00062 #define GUARDCYLINDEREQUIANGULARDERIV
00063
00064
00065 void FORTRAN_NAME( CYLINDEREQUIANGULARDERIV ,cylinderequiangularderiv )(
00066 CHFp_REAL(deriv)
00067 ,CHFp_CONST_INT(iblock)
00068 ,CHFp_CONST_REALVECT(xi)
00069 ,CHFp_CONST_INT(indx)
00070 ,CHFp_CONST_INT(indxi) );
00071
00072 #define FORT_CYLINDEREQUIANGULARDERIV FORTRAN_NAME( inlineCYLINDEREQUIANGULARDERIV, inlineCYLINDEREQUIANGULARDERIV)
00073 #define FORTNT_CYLINDEREQUIANGULARDERIV FORTRAN_NAME( CYLINDEREQUIANGULARDERIV, cylinderequiangularderiv)
00074
00075 inline void FORTRAN_NAME(inlineCYLINDEREQUIANGULARDERIV, inlineCYLINDEREQUIANGULARDERIV)(
00076 CHFp_REAL(deriv)
00077 ,CHFp_CONST_INT(iblock)
00078 ,CHFp_CONST_REALVECT(xi)
00079 ,CHFp_CONST_INT(indx)
00080 ,CHFp_CONST_INT(indxi) )
00081 {
00082 CH_TIMELEAF("FORT_CYLINDEREQUIANGULARDERIV");
00083 FORTRAN_NAME( CYLINDEREQUIANGULARDERIV ,cylinderequiangularderiv )(
00084 CHFt_REAL(deriv)
00085 ,CHFt_CONST_INT(iblock)
00086 ,CHFt_CONST_REALVECT(xi)
00087 ,CHFt_CONST_INT(indx)
00088 ,CHFt_CONST_INT(indxi) );
00089 }
00090 #endif // GUARDCYLINDEREQUIANGULARDERIV
00091
00092 }
00093
00094 #endif
