From 264c76f4b7372e6f76205129381b1f7076a40d89 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Fri, 29 Jun 2007 22:57:26 +0000
Subject: [PATCH] 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    | 2 +-
 plrs.f90    | 2 +-
 recvpkt.F90 | 4 ++--
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/map65.py b/map65.py
index 252f8c74f..d9da8889a 100644
--- a/map65.py
+++ b/map65.py
@@ -1,4 +1,4 @@
-#---------------------------------------------------------------------- MAP65
+#--------------------------------------------------------------------- MAP65
 # $Date$ $Revision$
 #
 from Tkinter import *
diff --git a/plrs.f90 b/plrs.f90
index 63ce564aa..5b3447d18 100644
--- 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)
diff --git a/recvpkt.F90 b/recvpkt.F90
index adb5e97a7..c46d0d75e 100644
--- 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