diff options
author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2000-05-10 11:47:43 +0000 |
---|---|---|
committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2000-05-10 11:47:43 +0000 |
commit | 156ca7c447ef63ace625ff58187260a371ad5517 (patch) | |
tree | f7eb3df8e449fda25929824836c6b6130efa9e9b /src/comm/Interp.c | |
parent | 96c60b1271238d6e7361c149596046d8839355ae (diff) |
New macros for fortran calls
git-svn-id: http://svn.cactuscode.org/flesh/trunk@1637 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'src/comm/Interp.c')
-rw-r--r-- | src/comm/Interp.c | 69 |
1 files changed, 41 insertions, 28 deletions
diff --git a/src/comm/Interp.c b/src/comm/Interp.c index a70fc041..f88f192f 100644 --- a/src/comm/Interp.c +++ b/src/comm/Interp.c @@ -129,13 +129,15 @@ int CCTK_GetInterpHandle(const char *interp) #endif if (handle < 0) - CCTK_Warn(1,__LINE__,__FILE__,"Cactus","No handle found for this interpolation operator"); + CCTK_Warn(1,__LINE__,__FILE__,"Cactus", + "No handle found for this interpolation operator"); return handle; } -void FMODIFIER FORTRAN_NAME(CCTK_GetInterpHandle)(int *handle, ONE_FORTSTRING_ARG) +void CCTK_FCALL CCTK_FNAME(CCTK_GetInterpHandle) + (int *handle, ONE_FORTSTRING_ARG) { ONE_FORTSTRING_CREATE(interp) *handle = CCTK_GetInterpHandle(interp); @@ -320,21 +322,23 @@ int CCTK_InterpGF (cGH *GH, } else - CCTK_Warn(3,__LINE__,__FILE__,"Cactus","Interpolation operation is not registered and cannot be called"); + CCTK_Warn(3,__LINE__,__FILE__,"Cactus", + "Interpolation operation not registered and cannot be called"); } return retcode; } -void FMODIFIER FORTRAN_NAME(CCTK_InterpGF)(int *fortranreturn, - cGH *GH, - int *operation_handle, - int *nPoints, - int *nDims, - int *nInFields, - int *nOutFields, - ...) +void CCTK_FCALL CCTK_FNAME(CCTK_InterpGF) + (int *fortranreturn, + cGH *GH, + int *operation_handle, + int *nPoints, + int *nDims, + int *nInFields, + int *nOutFields, + ...) { va_list indices; int i, retcode; @@ -352,7 +356,8 @@ void FMODIFIER FORTRAN_NAME(CCTK_InterpGF)(int *fortranreturn, if (*operation_handle < 0) - CCTK_Warn(3,__LINE__,__FILE__,"Cactus","Invalid handle passed to CCTK_Interp"); + CCTK_Warn(3,__LINE__,__FILE__,"Cactus", + "Invalid handle passed to CCTK_Interp"); else { @@ -381,7 +386,8 @@ void FMODIFIER FORTRAN_NAME(CCTK_InterpGF)(int *fortranreturn, timelevel = CCTK_NumTimeLevelsFromVarI (index); retcode = 0; if (timelevel < 0) { - CCTK_Warn (1,__LINE__,__FILE__,"Cactus", "Invalid variable index in CCTK_InterpGF()"); + CCTK_Warn (1,__LINE__,__FILE__,"Cactus", + "Invalid variable index in CCTK_InterpGF()"); retcode = -1; } else { if (--timelevel > 0) @@ -417,7 +423,8 @@ void FMODIFIER FORTRAN_NAME(CCTK_InterpGF)(int *fortranreturn, } else - CCTK_Warn(3,__LINE__,__FILE__,"Cactus","Interpolation operation is not registered and cannot be called"); + CCTK_Warn(3,__LINE__,__FILE__,"Cactus", + "Interpolation operation not registered and cannot be called"); } *fortranreturn = retcode; @@ -598,7 +605,8 @@ int CCTK_Interp (cGH *GH, break; default: - CCTK_Warn(1,__LINE__,__FILE__,"Cactus", "Invalid variable type for coordinates"); + CCTK_Warn(1,__LINE__,__FILE__,"Cactus", + "Invalid variable type for coordinates"); retcode = -1; break; } @@ -632,7 +640,8 @@ int CCTK_Interp (cGH *GH, break; default: - CCTK_Warn (1,__LINE__,__FILE__,"Cactus", "Invalid variable type for coordinates"); + CCTK_Warn (1,__LINE__,__FILE__,"Cactus", + "Invalid variable type for coordinates"); retcode = -1; break; } @@ -677,7 +686,7 @@ int CCTK_Interp (cGH *GH, else { CCTK_Warn(3,__LINE__,__FILE__,"Cactus", - "Interpolation operation is not registered and cannot be called"); + "Interpolation operation not registered and cannot be called"); } } @@ -685,14 +694,15 @@ int CCTK_Interp (cGH *GH, } -void FMODIFIER FORTRAN_NAME(CCTK_Interp)(int *fortranreturn, - cGH *GH, - int *operation_handle, - int *nPoints, - int *nDims, - int *nInFields, - int *nOutFields, - ...) +void CCTK_FCALL CCTK_FNAME(CCTK_Interp) + (int *fortranreturn, + cGH *GH, + int *operation_handle, + int *nPoints, + int *nDims, + int *nInFields, + int *nOutFields, + ...) { va_list indices; int i, retcode; @@ -710,7 +720,8 @@ void FMODIFIER FORTRAN_NAME(CCTK_Interp)(int *fortranreturn, if (*operation_handle < 0) - CCTK_Warn(3,__LINE__,__FILE__,"Cactus","Invalid handle passed to CCTK_Interp"); + CCTK_Warn(3,__LINE__,__FILE__,"Cactus", + "Invalid handle passed to CCTK_Interp"); else { @@ -798,7 +809,8 @@ void FMODIFIER FORTRAN_NAME(CCTK_Interp)(int *fortranreturn, break; default: - CCTK_Warn (1,__LINE__,__FILE__,"Cactus", "Invalid variable type for coordinates"); + CCTK_Warn (1,__LINE__,__FILE__,"Cactus", + "Invalid variable type for coordinates"); retcode = -1; break; } @@ -829,7 +841,8 @@ void FMODIFIER FORTRAN_NAME(CCTK_Interp)(int *fortranreturn, free (dims); } else - CCTK_Warn(3,__LINE__,__FILE__,"Cactus","Interpolation operation is not registered and cannot be called"); + CCTK_Warn(3,__LINE__,__FILE__,"Cactus", + "Interpolation operation not registered and cannot be called"); } *fortranreturn = retcode; |