From b03e83b33e90333c411a3b0833c9d6683bc467b8 Mon Sep 17 00:00:00 2001
From: goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac>
Date: Fri, 22 Oct 1999 13:52:10 +0000
Subject: 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
---
 src/util/Misc.c | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'src/util/Misc.c')

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);
 
-- 
cgit v1.2.3