diff options
| -rw-r--r-- | src/Extract.F | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/src/Extract.F b/src/Extract.F index 67259fe..5235415 100644 --- a/src/Extract.F +++ b/src/Extract.F @@ -683,9 +683,6 @@ c Only write odd parity waveforms if full grid openfile = 0 - 20 format(e24.15,e24.15,e24.15) - 21 format(e24.15,e24.15) - END SUBROUTINE Extract @@ -735,7 +732,6 @@ c Get the output directory sorted out character*200 fullname character*200 filestr - character*80 infoline c Get the output directory sorted out call CCTK_FortranString(nchar,out_dir,filestr) @@ -772,7 +768,6 @@ c Get the output directory sorted out character*200 fullname character*200 filestr - character*80 infoline c Get the output directory sorted out call CCTK_FortranString(nchar,out_dir,filestr) |