mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-27 14:48:46 -05:00
cb0093239d
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/jtms3@2502 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
38 lines
697 B
Fortran
38 lines
697 B
Fortran
program ms3
|
|
|
|
! Starting code for a JTMS3 decoder.
|
|
|
|
character*80 infile
|
|
integer hdr(11)
|
|
integer*2 id
|
|
common/mscom/id(1440000),s1(215,703),s2(215,703)
|
|
|
|
nargs=iargc()
|
|
if(nargs.lt.1) then
|
|
print*,'Usage: ms3 file1 [file2 ...]'
|
|
print*,' Reads data from *.wav files.'
|
|
go to 999
|
|
endif
|
|
|
|
npts=30*48000
|
|
kstep=4096
|
|
|
|
do ifile=1,nargs
|
|
call getarg(ifile,infile)
|
|
open(10,file=infile,access='stream',status='old',err=998)
|
|
read(10) hdr
|
|
read(10) id
|
|
close(10)
|
|
|
|
do k=kstep,npts,kstep
|
|
call specjtms(k)
|
|
enddo
|
|
enddo
|
|
|
|
go to 999
|
|
|
|
998 print*,'Cannot open file:'
|
|
print*,infile
|
|
|
|
999 end program ms3
|