Remove a diagnostic write statement.

This commit is contained in:
Joe Taylor 2020-06-29 13:28:06 -04:00
parent 83fddb1f57
commit 67422f2ede

View File

@ -61,9 +61,6 @@ contains
1,0,0,1,0,1,1,0,0,0,0,1,0,0,0,1,0,1,0,0,1,1,1,1,0,0,1,0,1, &
0,1,0,1,0,1,1,0,1,1,1,1,1,0,0,0,1,0,1/
write(*,3001) nzhsym,emedelay,lapcqonly,napwid,mycall,hiscall
3001 format(i4,f6.1,L3,i3,2x,2a12)
this%callback => callback
hmod=2**nsubmode
if(nfqso+nqsoprogress.eq.-999) return