Now compiling on Aubrey.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@408 ab8295b8-cf94-4d9e-aec4-7959e3be5d79

ccf65.f

@@ -2,7 +2,8 @@
      +     snr2,ipol2,dt2)
 
       parameter (NFFT=512,NH=NFFT/2)
-      real ss(4,322)                   !Input: half-symbol powers, 4 pol'ns
+      real ss(4,322)
+!Input: half-symbol powers, 4 pol'ns
       real s(NFFT)                     !CCF = ss*pr
       complex cs(0:NH)                 !Complex FT of s
       real s2(NFFT)                    !CCF = ss*pr2

filbig.f

@@ -11,7 +11,8 @@ C  f_stop = 750 Hz.
       complex ca(NFFT1),cb(NFFT1)                !FFTs of input
       real*8 df
       real halfpulse(8)                !Impulse response of filter (one side)
-      complex cfilt(NFFT2)                       !Filter (complex; imag = 0)
+      complex cfilt(NFFT2)
+                       !Filter (complex; imag = 0)
       real rfilt(NFFT2)                          !Filter (real)
       integer plan1,plan2,plan3,plan4,plan5
       logical first

ftn_init.F90

@@ -77,6 +77,7 @@ subroutine ftn_init
        err=911)
 #endif
   endfile 19
+  rewind 19
 
 #ifdef Win32
   open(20,file=appdir(:iz)//'/bandmap2.txt',status='unknown',               &
@@ -86,6 +87,7 @@ subroutine ftn_init
        err=912)
 #endif
   endfile 20
+  rewind 20
 
 #ifdef Win32
   open(21,file=appdir(:iz)//'/ALL.TXT',status='unknown',                   &
@@ -120,6 +122,8 @@ subroutine ftn_init
 #else
   open(26,file=appdir(:iz)//'/tmp26.txt',status='unknown')
 #endif
+  end file 26
+  rewind 26
 
   return
 

map65a.f90

@@ -56,7 +56,7 @@ subroutine map65a
 !  nflip=-1                     !May need to try both +/- 1
 !  ip0=4                       !Try all four?
 
-!  open(23,file='CALL3.TXT',status='old')
+  open(23,file='CALL3.TXT',status='old')
 
   df=96000.0/NFFT                    !df = 96000/NFFT = 2.930 Hz
   fa=0.0
@@ -314,5 +314,6 @@ subroutine map65a
     
 999 newdat2=0
   nagain=0
+  close(23)
   return
 end subroutine map65a