diff --git a/lib/fst240_decode.f90 b/lib/fst240_decode.f90 index 1347654a4..106344139 100644 --- a/lib/fst240_decode.f90 +++ b/lib/fst240_decode.f90 @@ -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