From c123761014ebd580a6a27b4b17fa08c2990a68aa Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Thu, 11 Sep 2008 15:57:13 +0000
Subject: [PATCH] Cleaning up compiler warning messages ...

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@1011 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 afc65b.f     |  1 -
 decode1.F90  |  1 -
 decode1a.f   |  1 -
 fivehz.F90   | 20 --------------------
 ftn_init.F90 |  3 +--
 map65.py     |  2 +-
 wsjtgen.F90  | 24 ++++--------------------
 7 files changed, 6 insertions(+), 46 deletions(-)

diff --git a/afc65b.f b/afc65b.f
index 237967fa2..fb3d4aeb8 100644
--- a/afc65b.f
+++ b/afc65b.f
@@ -21,7 +21,6 @@
       nfree=npts-nterms
 
 C  Start the iteration
-      free=nfree
       chisqr0=1.e6
       do iter=1,3                               !One iteration is enough?
          do j=1,nterms
diff --git a/decode1.F90 b/decode1.F90
index 973f09e20..ca705a5a1 100644
--- a/decode1.F90
+++ b/decode1.F90
@@ -20,7 +20,6 @@ subroutine decode1(iarg)
   save
 
   kkdone=-99
-  ntr0=ntr
   ns0=999999
 
 10 continue
diff --git a/decode1a.f b/decode1a.f
index c17a8aca5..82a1c8c2d 100644
--- a/decode1a.f
+++ b/decode1a.f
@@ -83,7 +83,6 @@ C  Adding or subtracting a small number (e.g., 5) to j may make it decode.
       nfft=256
       j=(dt00+dtbest+2.685)*1378.125 + joff
       if(j.lt.0) j=0
-      j0=j
       do k=1,nsym
          do i=1,nfft
             j=j+1
diff --git a/fivehz.F90 b/fivehz.F90
index c9da99b73..5a8d73e9e 100644
--- a/fivehz.F90
+++ b/fivehz.F90
@@ -16,7 +16,6 @@ subroutine fivehz
 
   parameter (NTRING=64)
   real*8 tt1(0:NTRING-1)
-  real*8 tstart,tstop,t60
   logical first,txtime,filled
   integer ptt
   integer TxOKz
@@ -157,25 +156,6 @@ subroutine fivehz
      rxdone=.true.
      ibuf00=ibuf0
   endif
-
-! Diagnostic timing information:
-!  t60=mod(tsec,60.d0)
-!  if(TxOK.ne.TxOKz) then
-!     if(TxOK.eq.1) write(*,1101) 'D2:',t
-!1101 format(a3,f8.1,i8)
-!     if(TxOK.eq.0) then
-!        tstop=tsec
-!        write(*,1101) 'D3:',t,nc0a
-!     endif
-!  endif
-!  if(iptt.ne.iptt0) then
-!     if(iptt.eq.1) then
-!        tstart=tsec
-!        write(*,1101) 'D1:',t,nc1a
-!     endif
-!     if(iptt.eq.0) write(*,1101) 'D4:',t
-!  endif
-
   iptt0=iptt
   TxOKz=TxOK
   ntr0=ntr
diff --git a/ftn_init.F90 b/ftn_init.F90
index a8e1a6ecc..e6a3e05fe 100644
--- a/ftn_init.F90
+++ b/ftn_init.F90
@@ -24,6 +24,7 @@
 subroutine ftn_init
 
   character*1 cjunk
+  integer ptt
   include 'gcom1.f90'
   include 'gcom2.f90'
   include 'gcom3.f90'
@@ -158,8 +159,6 @@ subroutine ftn_init
   stop
 930 print*,'Error opening AZEL.DAT'
   stop
-940 print*,'Error opening DEBUG.TXT'
-  stop
 950 print*,'Error opening ALL65.TXT'
   stop
 
diff --git a/map65.py b/map65.py
index 8f1a50f49..7b5bdb029 100644
--- a/map65.py
+++ b/map65.py
@@ -1,4 +1,4 @@
-#--------------------------------------------------------------------- MAP65
+#-------------------------------------------------------------------- MAP65
 # $Date$ $Revision$
 #
 from Tkinter import *
diff --git a/wsjtgen.F90 b/wsjtgen.F90
index 8e8b6fcbb..4609030f6 100644
--- a/wsjtgen.F90
+++ b/wsjtgen.F90
@@ -12,13 +12,11 @@ subroutine wsjtgen
   parameter (NMSGMAX=28)             !Max characters per message
   parameter (NSPD=25)                !Samples per dit
   parameter (NDPC=3)                 !Dits per character
-  parameter (NWMAX=661500)         !Max length of waveform = 60*11025
+  parameter (NWMAX=661500)           !Max length of waveform = 60*11025
   parameter (NTONES=4)               !Number of FSK tones
-
-  integer   itone(84)
   character msg*28,msgsent*22,idmsg*22
-  real*8 freq,pha,dpha,twopi,dt
-  character testfile*27,tfile2*80
+  real*8 freq,dpha,twopi
+  character testfile*27
   logical lcwid
   integer*2 icwid(110250),jwave(NWMAX)
 
@@ -43,6 +41,7 @@ subroutine wsjtgen
 
   msg=txmsg
   ntxnow=ntxreq
+
 ! Convert all letters to upper case
   do i=1,28
      if(msg(i:i).ge.'a' .and. msg(i:i).le.'z')                  &
@@ -75,18 +74,6 @@ subroutine wsjtgen
         call rfile(18,iwave,ndata,ierr)
         close(18)
         if(ierr.ne.0) print*,'Error reading test file ',msg(2:)
-
-!#else
-!        tfile2=testfile
-!	call rfile2(tfile2,hdr,44+2*661500,nr)
-!	if(nr.le.0) then
-!           print*,'Error reading ',testfile
-!	   stop
-!        endif
-!	do i=1,ndata/2
-!	   iwave(i)=jwave(i)
-!        enddo
-!#endif
         nwave=ndata/2
         do i=nwave,NTXMAX
            iwave(i)=0
@@ -117,9 +104,6 @@ subroutine wsjtgen
      goto 900
   endif
 
-  dt=1.d0/fsample_out
-  LTone=2
-
 !  We're in JT65 mode.
   if(mode(5:5).eq.'A') mode65=1
   if(mode(5:5).eq.'B') mode65=2