program testmsk

  use timer_module, only: timer

  parameter (NMAX=359424)
  integer*2 id2(NMAX)
  integer narg(0:11)
  character*80 line(100)
  character infile*80

  nargs=iargc()
  if(nargs.lt.1) then
     print*,'Usage:     testmsk infile1 [infile2 ...]'
     print*,'Examples:  testmsk ~/data/JTMSK3/150825_115515.wav'
     print*,'           testmsk C:/data/JTMSK3/150825_120245.wav'
     go to 999
  endif

  nfiles=nargs
  tsync1=0.
  tsync2=0.
  tsoft=0.
  tvit=0.
  ttotal=0.
  ndecodes=0

  call init_timer()
  call timer('testmsk ',0)
  do ifile=1,nfiles
     call getarg(ifile,infile)
     open(10,file=infile,access='stream',status='old')
     read(10) id2(1:22)                     !Skip 44 header bytes
     npts=179712                            !### T/R = 15 s
     read(10,end=1) id2(1:npts)             !Read the raw data
1    close(10)
     i1=index(infile,'.wav')
     read(infile(i1-6:i1-1),*) narg(0)

     nrxfreq=1500
     ntol=100
     narg(1)=npts        !npts
     narg(2)=0           !nsubmode
     narg(3)=1           !newdat
     narg(4)=0           !minsync
     narg(5)=0           !npick
     narg(6)=0           !t0 (ms)
     narg(7)=npts/12     !t1 (ms) ???
     narg(8)=2           !maxlines
     narg(9)=103         !nmode
     narg(10)=nrxfreq
     narg(11)=ntol

     call timer('jtmsk   ',0)
     call jtmsk(id2,narg,line)
     call timer('jtmsk   ',1)
     do i=1,narg(8)
        if(line(i)(1:1).eq.char(0)) exit
        ndecodes=ndecodes+1
        write(*,1002) line(i)(1:60),ndecodes
1002    format(a60,i10)
     enddo
  enddo

  call timer('testmsk ',1)
  call timer('testmsk ',101)

999 end program testmsk