From 8e26b009c14da9ce3252511b7037830e668e6b66 Mon Sep 17 00:00:00 2001 From: schnetter Date: Fri, 11 Feb 2005 13:14:43 +0000 Subject: Remove unused formats and variables git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/Extract/trunk@101 5301f0c2-dbc4-4cee-b2f5-8d7afba4d129 --- src/Extract.F | 5 ----- 1 file changed, 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) -- cgit v1.2.3