remove save statement from ft8d.f90

2018-04-02 10:45:57 +02:00 · 2018-04-02 10:45:57 +02:00 · a882612409
parent afd405291e
commit a882612409
1 changed files with 3 additions and 4 deletions
--- a/ft8d.f90
+++ b/ft8d.f90
@ -15,7 +15,6 @@ program ft8d
  logical newdat,lsubtract,ldupe,bcontest
  integer apsym(KK)
  integer allsnrs(100)
-  save s,dd

  nargs=iargc()
  if(nargs.lt.1) then