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
This commit is contained in:
Joe Taylor 2007-06-28 00:44:19 +00:00
parent 3620d66451
commit abd6ef6f77
4 changed files with 9 additions and 7 deletions

View File

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

View File

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

View File

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

View File

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