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
2024-11-23 04:38:37 -05:00 · 2007-06-29 22:57:26 +00:00 · 2007-06-29 22:57:26 +00:00 · 264c76f4b7
commit 264c76f4b7
parent 00370607ce
3 changed files with 4 additions and 4 deletions
--- a/map65.py
+++ b/map65.py
@ -1,4 +1,4 @@
-#---------------------------------------------------------------------- MAP65
+#--------------------------------------------------------------------- MAP65
 # $Date$ $Revision$
 #
 from Tkinter import *
--- a/plrs.f90
+++ b/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)
--- a/recvpkt.F90
+++ b/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