From 45286b034501d0f1d339d18d4421702ca0d86a8e Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Sat, 23 Jun 2007 15:22:08 +0000
Subject: [PATCH] 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      | 3 ++-
 filbig.f     | 3 ++-
 ftn_init.F90 | 4 ++++
 map65a.f90   | 3 ++-
 4 files changed, 10 insertions(+), 3 deletions(-)

diff --git a/ccf65.f b/ccf65.f
index ec705dce5..88d599d73 100644
--- a/ccf65.f
+++ b/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
diff --git a/filbig.f b/filbig.f
index c501ea83b..88b9a1783 100644
--- a/filbig.f
+++ b/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
diff --git a/ftn_init.F90 b/ftn_init.F90
index 7614dc93c..e6b2a3c66 100644
--- a/ftn_init.F90
+++ b/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
 
diff --git a/map65a.f90 b/map65a.f90
index f5669d07c..6d310a0ca 100644
--- a/map65a.f90
+++ b/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