WSJT-X/getfile2.F90

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