Fixed several gfortran complaints.

Brought Makefile.in up to date.


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

Makefile.in

@@ -47,7 +47,7 @@ SRCS2F90 = astro0.F90 audio_init.F90 azdist0.f90 \
 	decode1.F90 ftn_init.F90 ftn_quit.f90 wsjtgen.F90 \
 	runqqq.F90 fivehz.F90 flushqqq.F90 map65a0.f90 \
 	rfile.f90 rfile3a.f90 spec.f90 map65a.f90 display.F90 \
-	getfile.F90 getfile2.F90 recvpkt.F90
+	getfile.F90 getfile2.F90 recvpkt.F90 savetf2.F90
 
 SRCS2F77 = indexx.f gen65.f chkmsg.f \
 	gentone.f gencwid.f set.f db.f pctile.f sort.f ssort.f \

getfile2.F90

@@ -49,8 +49,10 @@ subroutine getfile2(fname,len)
 
 #endif
 
-  read(filename(8:11),*) nutc
-  ndiskdat=1
+  read(filename(8:11),*,err=996,end=996) nutc
+  go to 997
+996 print*,'Error reading UTC: ',filename,nutc
+997  ndiskdat=1
   ndecoding=4
   mousebutton=0
   go to 999

recvpkt.F90

@@ -65,8 +65,8 @@ subroutine recvpkt(iarg)
         do i=1,174
            k=k+1
            d8(k)=buf8(i)
-           sq=sq + float(id(1,k,1))**2 + float(id(1,k,1))**2 +      &
-                float(id(1,k,1))**2 + float(id(1,k,1))**2
+           sq=sq + float(int(id(1,k,1)))**2 + float(int(id(1,k,1)))**2 +  &
+                float(int(id(1,k,1)))**2 + float(int(id(1,k,1)))**2
         enddo
         sqave=sqave + u*(sq-sqave)
         rxnoise=10.0*log10(sqave) - 48.0

savetf2.F90

@@ -16,8 +16,8 @@ subroutine savetf2(id,nsave,nutc)
   do i=1,NPKTS
      s=0.
      do n=1,NSPP
-        s=s + float(id(1,i))**2 + float(id(2,i))**2 + float(id(3,i))**2 + &
-             float(id(4,i))**2 
+        s=s + float(int(id(1,i)))**2 + float(int(id(2,i)))**2 +     &
+             float(int(id(3,i)))**2 + float(int(id(4,i)))**2 
      enddo
      ss(i)=fac*s
      t=t+dt