diff options
| author | schnetter <schnetter@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2005-02-11 13:14:43 +0000 |
|---|---|---|
| committer | schnetter <schnetter@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2005-02-11 13:14:43 +0000 |
| commit | 8e26b009c14da9ce3252511b7037830e668e6b66 (patch) | |
| tree | 35898573b93177467fe5fb8a7e03dee63211d866 | |
| parent | cdad12dda9a658fe213751cd59b4f7d136a1c663 (diff) | |
Remove unused formats and variables
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/Extract/trunk@101 5301f0c2-dbc4-4cee-b2f5-8d7afba4d129
| -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) |