w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-07-31 13:12:30 -04:00
Code Issues Packages Projects Releases Wiki Activity

Fixed getfile for 16-bit reads in Win32.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/WSJT/trunk@12 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2005-12-24 01:51:12 +00:00
parent f1c65870e6
commit 9b4227f935
3 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
decode3.f90
View File

@ -37,8 +37,6 @@ subroutine decode3(d2,jz,istart,filename)
sum=sum+d2(i) sum=sum+d2(i)
enddo enddo
nave=nint(sum/jz) nave=nint(sum/jz)
! sq=0.d0
! nsq=0
do i=1,jz do i=1,jz
d2(i)=d2(i)-nave d2(i)=d2(i)-nave
d2d(i)=d2(i) d2d(i)=d2(i)

2
getfile.f90
View File

@ -41,6 +41,7 @@ subroutine getfile(fname,len)
#ifdef Win32 #ifdef Win32
open(10,file=fname,form='binary',status='old',err=998) open(10,file=fname,form='binary',status='old',err=998)
read(10,end=998) hdr read(10,end=998) hdr
#else #else
call rfile2(fname,hdr,44+2*NDMAX,nr) call rfile2(fname,hdr,44+2*NDMAX,nr)
#endif #endif
@ -64,6 +65,7 @@ subroutine getfile(fname,len)
if(ndata.gt.2*NDMAX) ndata=2*NDMAX if(ndata.gt.2*NDMAX) ndata=2*NDMAX
#ifdef Win32 #ifdef Win32
call rfile(10,d2c,ndata,ierr) call rfile(10,d2c,ndata,ierr)
jzc=ndata/2
if(ierr.ne.0) go to 999 if(ierr.ne.0) go to 999
#else #else
jzc=ndata/2 jzc=ndata/2

1
wsjt1.f
View File

@ -140,6 +140,7 @@
sq=sq + (sum-avesq)**2 sq=sq + (sum-avesq)**2
enddo enddo
rmspower=sqrt(sq/nz) rmspower=sqrt(sq/nz)
pick=.false. pick=.false.
if(istart.gt.1) pick=.true. !This is a mouse-picked decoding if(istart.gt.1) pick=.true. !This is a mouse-picked decoding
if(.not.pick .and. (basevb.lt.-15.0 .or. basevb.gt.20.0)) goto 900 if(.not.pick .and. (basevb.lt.-15.0 .or. basevb.gt.20.0)) goto 900