Added implementation information to the IOMethod structure

Two new functions:

 const char *CCTK_IOMethodImplementation(int handle);

 int CCTK_NumIOMethods(void);


git-svn-id: http://svn.cactuscode.org/flesh/trunk@2421 17b73243-c579-4c4c-a9d2-2d5706c11dac

1 files changed, 5 insertions, 4 deletions

diff --git a/src/IO/FortranBindingsIO.c b/src/IO/FortranBindingsIO.c
index 129ae496..c5d54933 100644
--- a/src/IO/FortranBindingsIO.c
+++ b/src/IO/FortranBindingsIO.c
@@ -23,11 +23,12 @@ void CCTK_FCALL CCTK_FNAME(CCTK_OutputGH)
   *istat = CCTK_OutputGH(GH);
 }
 
-void CCTK_FCALL CCTK_FNAME(CCTK_RegisterIOMethod)
-     (int *handle, ONE_FORTSTRING_ARG)
+void CCTK_FCALL CCTK_FNAME(CCTKi_RegisterIOMethod)
+     (int *handle, TWO_FORTSTRING_ARG)
 {
-  ONE_FORTSTRING_CREATE(name);
-  *handle = CCTK_RegisterIOMethod(name);
+  TWO_FORTSTRING_CREATE(thorn,name);
+  *handle = CCTKi_RegisterIOMethod(thorn,name);
+  free(thorn);
   free(name);
 }