mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-03 16:01:18 -05:00
c8e94ea0ee
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@1299 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
64 lines
1.1 KiB
Fortran
64 lines
1.1 KiB
Fortran
subroutine getfile2(fname,len)
|
|
|
|
#ifdef CVF
|
|
use dflib
|
|
#endif
|
|
|
|
character*(*) fname
|
|
real*8 sq
|
|
|
|
include 'datcom.f90'
|
|
include 'gcom1.f90'
|
|
include 'gcom2.f90'
|
|
include 'gcom4.f90'
|
|
|
|
1 if(ndecoding.eq.0) go to 2
|
|
#ifdef CVF
|
|
call sleepqq(100)
|
|
#else
|
|
call usleep(100*1000)
|
|
#endif
|
|
|
|
go to 1
|
|
|
|
2 do i=len,1,-1
|
|
if(fname(i:i).eq.'/' .or. fname(i:i).eq.'\\') go to 10
|
|
enddo
|
|
i=0
|
|
10 filename=fname(i+1:)
|
|
ierr=0
|
|
|
|
n=8*NSMAX
|
|
ndecoding=4
|
|
monitoring=0
|
|
kbuf=1
|
|
|
|
call cs_lock('getfile2a')
|
|
call rfile3a(fname,id,n,ierr)
|
|
call cs_unlock
|
|
if(ierr.ne.0) then
|
|
print*,'Error opening or reading file: ',fname,ierr
|
|
go to 999
|
|
endif
|
|
|
|
sq=0.
|
|
ka=0.1*NSMAX
|
|
kb=0.8*NSMAX
|
|
do k=ka,kb
|
|
sq=sq + float(int(id(1,k,1)))**2 + float(int(id(2,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
|
|
call cs_lock('getfile2b')
|
|
read(filename(8:11),*,err=20,end=20) nutc
|
|
call cs_unlock
|
|
go to 30
|
|
20 nutc=0
|
|
|
|
30 ndiskdat=1
|
|
mousebutton=0
|
|
|
|
999 return
|
|
end subroutine getfile2
|