diff options
| author | tradke <tradke@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2001-02-15 10:38:35 +0000 |
|---|---|---|
| committer | tradke <tradke@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2001-02-15 10:38:35 +0000 |
| commit | cec94bb973313b80f59ef0081657bbbe7a5b5e64 (patch) | |
| tree | 82e87ccd4d9ea8fdd9c353abb84d496d928a6a17 | |
| parent | ffa346361948145f3f8e8bc01dfdd936281a0302 (diff) | |
CCTK_FortranString() needs a CCTK_INT to be passed as the length.
Now the testsuite on T3E passes again.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/Extract/trunk@33 5301f0c2-dbc4-4cee-b2f5-8d7afba4d129
| -rw-r--r-- | src/Extract.F | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/Extract.F b/src/Extract.F index ff9fbd3..d760596 100644 --- a/src/Extract.F +++ b/src/Extract.F @@ -679,7 +679,8 @@ c Only write odd parity waveforms if full grid DECLARE_CCTK_PARAMETERS - integer filehandle,openfile,nchar + integer filehandle,openfile + CCTK_INT nchar character*(*) filename CCTK_POINTER cctkGH @@ -711,7 +712,8 @@ c Get the output directory sorted out CCTK_POINTER cctkGH CCTK_REAL value1,value2 - integer openfile,nchar + integer openfile + CCTK_INT nchar character*(*) filename character*200 fullname @@ -747,7 +749,8 @@ c Get the output directory sorted out CCTK_POINTER cctkGH CCTK_REAL value1 CCTK_REAL value2(2) - integer openfile,nchar + integer openfile + CCTK_INT nchar character*(*) filename character*200 fullname |