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

map65.py

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

plrs.f90

@@ -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)

recvpkt.F90

@@ -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