Silence compiler warnings; reformmat some source code.

lib/ft8/bpdecode174_91.f90

@@ -33,6 +33,7 @@ do j=1,M
 enddo
 
 ncnt=0
+nclast=0
 
 do iter=0,maxiterations
 

lib/jt65_decode.f90

@@ -102,7 +102,7 @@ contains
     if(nsubmode.ge.100) then
 ! This is QRA64 mode
        mode64=2**(nsubmode-100)
-       call qra64a(dd,npts,nutc,nf1,nf2,nfqso,ntol,mode64,minsync,ndepth,   &
+       call qra64a(dd,npts,nf1,nf2,nfqso,ntol,mode64,minsync,ndepth,         &
             emedelay,mycall,hiscall,hisgrid,sync,nsnr,dtx,nfreq,decoded,nft)
        if (associated(this%callback)) then
           ndrift=0

lib/osd128_90.f90

@@ -1,7 +1,7 @@
 subroutine osd128_90(llr,apmask,ndeep,message77,cw,nhardmin,dmin)
-!
-! An ordered-statistics decoder for the (128,90) code.
-! 
+
+! Ordered-statistics decoder for the (128,90) code.
+
   integer, parameter:: N=128, K=90, M=N-K
   integer*1 apmask(N),apmaskr(N)
   integer*1 gen(K,N)
@@ -42,6 +42,11 @@ endif
 
   rx=llr
   apmaskr=apmask
+  d1=0.
+  ntheta=0
+  npre1=0
+  npre2=0
+  nt=0
 
 ! Hard decisions on the received word.
   hdec=0            
@@ -51,7 +56,7 @@ where(rx .ge. 0) hdec=1
   absrx=abs(rx) 
   call indexx(absrx,N,indx)  
 
-! Re-order the columns of the generator matrix in order of decreasing reliability.
+! Re-order columns of generator matrix in order of decreasing reliability.
   do i=1,N
      genmrb(1:K,i)=gen(1:K,indx(N+1-i))
      indices(i)=indx(N+1-i)
@@ -368,4 +373,3 @@ subroutine fetchit90(reset,e2,ntau,i1,i2)
   lastpat=ipat
   return
 end subroutine fetchit90
- 

lib/qra64a.f90

@@ -1,4 +1,4 @@
-subroutine qra64a(dd,npts,nutc,nf1,nf2,nfqso,ntol,mode64,minsync,ndepth,   &
+subroutine qra64a(dd,npts,nf1,nf2,nfqso,ntol,mode64,minsync,ndepth,   &
      emedelay,mycall_12,hiscall_12,hisgrid_6,sync,nsnr,dtx,nfreq,decoded,nft)
 
   use packjt
@@ -151,8 +151,5 @@ subroutine qra64a(dd,npts,nutc,nf1,nf2,nfqso,ntol,mode64,minsync,ndepth,   &
   endif
   call timer('qra64a  ',1)
 
-!  write(71,3001) nutc,dtx,f0,sync,sync2,width,minsync,decoded
-!3001 format(i4.4,f7.2,4f8.1,i3,2x,a22)
-  
   return
 end subroutine qra64a

lib/qratest.f90

@@ -39,7 +39,7 @@ program qratest
      if(nfqso0.ne.-1) nfqso=nfqso0
      if(ntol0.ne.-1) ntol=ntol0
 
-     call qra64a(dd,npts,nutc,nf1,nf2,nfqso,ntol,mode64,minsync,ndepth,      &
+     call qra64a(dd,npts,nf1,nf2,nfqso,ntol,mode64,minsync,ndepth,      &
           mycall,hiscall,hisgrid,sync,nsnr,dtx,nfreq,decoded,nft)
      c='a'
      if(mode64.eq.2) c='b'