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