diff options
-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 |