mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-09-08 22:36:40 -04:00
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@355 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
parent
eb89a1fb3e
commit
a8ac0c3551
55
getfile2.f90
Normal file
55
getfile2.f90
Normal file
@ -0,0 +1,55 @@
|
||||
!----------------------------------------------------- getfile
|
||||
subroutine getfile2(fname,len)
|
||||
|
||||
#ifdef Win32
|
||||
use dflib
|
||||
#endif
|
||||
|
||||
parameter (NDMAX=661500) ! =60*11025
|
||||
character*(*) fname
|
||||
character infile*15
|
||||
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
|
||||
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
|
||||
|
||||
#ifdef Win32
|
||||
! open(10,file=fname,form='binary',status='old',err=998)
|
||||
n=8*NSMAX
|
||||
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,hdr,44+2*NDMAX,nr)
|
||||
#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
|
Loading…
Reference in New Issue
Block a user