Fixed float(int(id ... in recvpkt.F90

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@444 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2007-06-29 22:57:26 +00:00
parent 00370607ce
commit 264c76f4b7
3 changed files with 4 additions and 4 deletions

View File

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

View File

@ -89,7 +89,7 @@ program plrs
enddo enddo
if(pause) then if(pause) then
print*,'Type anything to continue:' print*,'Type anything to continue:'
read(*,*) cjunk read(*,*) cjunk,pause,fast
endif endif
enddo enddo
i=close(fd) i=close(fd)

View File

@ -63,8 +63,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