!----------------------------------------------------- getfile
subroutine getfile(fname,len)
  character*(*) fname
  character*80 fname80
  parameter (NSMAX=60*96000)          !Samples per 60 s file
  integer*2 id(4,NSMAX)               !46 MB: raw data from Linrad timf2
  common/datcom/nutc,newdat2,id,fname80,nlen

  fname80=fname
  nlen=len
  newdat2=1

  return
end subroutine getfile