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

@@ -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

decode1.F90

@@ -20,7 +20,6 @@ subroutine decode1(iarg)
   save
 
   kkdone=-99
-  ntr0=ntr
   ns0=999999
 
 10 continue

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

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

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
 

map65.py

@@ -1,4 +1,4 @@
-#--------------------------------------------------------------------- MAP65
+#-------------------------------------------------------------------- MAP65
 # $Date$ $Revision$
 #
 from Tkinter import *

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