Added

void CCTK_PrintString(char *data)
{
  printf("%s",data);
}

void FORTRAN_NAME(CCTK_PrintString)(char *arg1)
{
  CCTK_PrintString(arg1);
}

with the idea that you could use it to print the vlaue of a string parameter
from the pointer that you have in fortran. But it doesn't work. Maybe
someone can tell me why?


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

1 files changed, 24 insertions, 0 deletions

diff --git a/src/util/Misc.c b/src/util/Misc.c
index baee6628..a8ef9cb9 100644
--- a/src/util/Misc.c
+++ b/src/util/Misc.c
@@ -547,6 +547,30 @@ int CCTK_SetString(char **data, const char *value)
 }
 
  /*@@
+   @routine    CCTK_PrintString
+   @date       Fri Apr 1 1999
+   @author     Gabrielle Allen
+   @desc
+   Prints the value of a string (this is for fortran)
+   @enddesc 
+   @calls     
+   @calledby   
+   @history 
+ 
+   @endhistory 
+
+@@*/
+void CCTK_PrintString(char *data)
+{
+  printf("%s",data);
+}
+
+void FORTRAN_NAME(CCTK_PrintString)(char *arg1)
+{
+  CCTK_PrintString(arg1);
+}
+
+ /*@@
    @routine    CCTK_SetLogical
    @date       Thu Jan 21 10:35:11 1999
    @author     Tom Goodale