Allow 2-digit input of ndepth in test_q65.

This commit is contained in:
Joe Taylor 2020-11-17 10:47:07 -05:00
parent abe06e5dbb
commit d3ed0be318

View File

@ -73,8 +73,8 @@ program test_q65
write(cmd1(55:59),'(i5)') nfiles write(cmd1(55:59),'(i5)') nfiles
write(cmd2(11:13),'(i3)') ntrperiod write(cmd2(11:13),'(i3)') ntrperiod
write(cmd2(33:33),'(i1)') ndepth write(cmd2(33:34),'(i2)') ndepth
cmd2(38:38)=csubmode cmd2(39:39)=csubmode
call system('rm -f *.wav') call system('rm -f *.wav')
! call qra_params(ndepth,maxaptype,idf0max,idt0max,ibwmin,ibwmax,maxdist) ! call qra_params(ndepth,maxaptype,idf0max,idt0max,ibwmin,ibwmax,maxdist)