diff options
Diffstat (limited to 'src/CheckpointRecovery.c')
-rw-r--r-- | src/CheckpointRecovery.c | 25 |
1 files changed, 22 insertions, 3 deletions
diff --git a/src/CheckpointRecovery.c b/src/CheckpointRecovery.c index f12161b..9b18728 100644 --- a/src/CheckpointRecovery.c +++ b/src/CheckpointRecovery.c @@ -11,6 +11,7 @@ #include "cctk.h" #include "cctk_Parameters.h" +#include "cctk_FortranString.h" #include "StoreHandledData.h" #include "ioGH.h" @@ -32,6 +33,8 @@ CCTK_FILEVERSION(CactusBase_IOUtil_CheckpointRecovery_c) ********************************************************************/ void IOUtil_RecoverGH (cGH *GH); void IOUtil_RecoverIDFromDatafiles (cGH *GH); +void CCTK_FCALL CCTK_FNAME (IOUtil_RecoverVarsFromDatafiles) + (int *result, cGH *GH, TWO_FORTSTRING_ARG); /******************************************************************** @@ -365,10 +368,15 @@ void IOUtil_RecoverGH (cGH *GH) @vtype const char * @vio in @endvar + + @returntype int + @returndesc + 0 for success + @endreturndesc @@*/ -void IOUtil_RecoverVarsFromDatafiles (cGH *GH, - const char *in_files, - const char *in_vars) +int IOUtil_RecoverVarsFromDatafiles (cGH *GH, + const char *in_files, + const char *in_vars) { ioGH *myGH; char *basefilename, *delim, delim_char; @@ -433,6 +441,17 @@ void IOUtil_RecoverVarsFromDatafiles (cGH *GH, free (myGH->do_inVars); myGH->do_inVars = NULL; } + + return (0); +} + +void CCTK_FCALL CCTK_FNAME (IOUtil_RecoverVarsFromDatafiles) + (int *result, cGH *GH, TWO_FORTSTRING_ARG) +{ + TWO_FORTSTRING_CREATE (in_files, in_vars) + *result = IOUtil_RecoverVarsFromDatafiles (GH, in_files, in_vars); + free (in_files); + free (in_vars); } |