subroutine getfile2(fname,len) #ifdef CVF use dflib #endif character*(*) fname character infile*15 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 !#ifdef CVF ! 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 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(1,k,1)))**2 + & float(int(id(1,k,1)))**2 + float(int(id(1,k,1)))**2 enddo sqave=174*sq/(kb-ka+1) rxnoise=10.0*log10(sqave) - 48.0 read(filename(8:11),*) nutc ndiskdat=1 mousebutton=0 go to 999 998 ierr=1001 999 close(10) return end subroutine getfile2