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$
#
from Tkinter import *

View File

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

View File

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