Fortran string stuff on the T3E. Have introduced

ONE_FORTRSTRING_PTR(arg)

etc

to get the pointer to a fortran string.

Still needs testing on other architectures.

Tom


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

1 files changed, 5 insertions, 4 deletions

diff --git a/src/util/Misc.c b/src/util/Misc.c
index 25726f91..8a8d45dc 100644
--- a/src/util/Misc.c
+++ b/src/util/Misc.c
@@ -970,8 +970,9 @@ int CCTK_RegexMatch(const char *string,
 void FORTRAN_NAME(CCTK_FortranString)(int *nchar, char **cstring,ONE_FORTSTRING_ARG)
 {
 
-  ONE_FORTSTRING_CREATE(fstring)
   int i;
+  ONE_FORTSTRING_CREATE(fstring)
+  ONE_FORTSTRING_PTR(fptr)
 
   if (strlen(*cstring) > cctk_strlen1) 
   {
@@ -986,15 +987,15 @@ void FORTRAN_NAME(CCTK_FortranString)(int *nchar, char **cstring,ONE_FORTSTRING_
 
   for (i=0;i<strlen(*cstring);i++) 
   {
-    cctk_str1[i] = (*cstring)[i];
+    fptr[i] = (*cstring)[i];
   }
 
   for (i=strlen(*cstring);i<cctk_strlen1;i++)
   {
-    cctk_str1[i] = ' ';
+    fptr[i] = ' ';
   }
 
-  cctk_str1[strlen(*cstring)] = '\0';
+  fptr[strlen(*cstring)] = '\0';
 
   *nchar = strlen(*cstring);