subroutine getfile2(fname,len)

#ifdef Win32
  use dflib
#endif

  parameter (NDMAX=661500)  ! =60*11025
  character*(*) fname
  character infile*15

  include 'datcom.f90'
  include 'gcom1.f90'
  include 'gcom2.f90'
  include 'gcom4.f90'

1 if(ndecoding.eq.0) go to 2
#ifdef Win32
  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
  monitoring=0
  kbuf=1
#ifdef Win32
!  open(10,file=fname,form='binary',status='old',err=998)
  call rfile3a(fname,id,n,ierr)
  if(ierr.ne.0) then
     print*,'Error opening or reading file: ',fname,ierr
     go to 999
  endif
#else
  call rfile2(fname,id,n,nr)
  if(nr.ne.n) then
     print*,'Error opening or reading file: ',fname,n,nr
     ierr=1002
     go to 999
  endif

#endif

  read(filename(8:11),*) nutc
  ndiskdat=1
  ndecoding=4
  mousebutton=0
  go to 999

998 ierr=1001
999 close(10)
  return
end subroutine getfile2