Fix Makefile.MinGW.

Fix error computing signal level in getfile2.F90.


git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@1015 ab8295b8-cf94-4d9e-aec4-7959e3be5d79

Makefile.MinGW

@@ -3,7 +3,7 @@
 CC = /mingw/bin/gcc
 FC = g95
 CFLAGS = -I. -fPIC
-FFLAGS = -Wall -Wno-precisiion-loss -fbounds-check -fPIC
+FFLAGS = -Wall -Wno-precision-loss -fbounds-check -fPIC
 
 .f.o:
 	${FC} ${CPPFLAGS} ${FFLAGS} -c -o ${<:.f=.o} $<

ftn_init.F90

@@ -1,6 +1,6 @@
 ! Fortran logical units used in WSJT6
 !
-!   10
+!   10  binary input data, *.tf2 files
 !   11  decoded.txt
 !   12  decoded.ave
 !   13  tsky.dat

getfile2.F90

@@ -43,8 +43,8 @@ subroutine getfile2(fname,len)
   ka=0.1*NSMAX
   kb=0.8*NSMAX
   do k=ka,kb
-     sq=sq + float(int(id(1,k,1)))**2 + float(int(id(1,k,1)))**2 +    &
+     sq=sq + float(int(id(1,k,1)))**2 + float(int(id(2,k,1)))**2 +    &
-          float(int(id(1,k,1)))**2 + float(int(id(1,k,1)))**2
+          float(int(id(3,k,1)))**2 + float(int(id(4,k,1)))**2
   enddo
   sqave=174*sq/(kb-ka+1)
   rxnoise=10.0*log10(sqave) - 48.0
@@ -52,6 +52,5 @@ subroutine getfile2(fname,len)
   ndiskdat=1
   mousebutton=0
 
-999 close(10)
+999 return
-  return
 end subroutine getfile2

map65.py

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