diff --git a/lib/fst240_decode.f90 b/lib/fst240_decode.f90
index 4fded52ae..2465065fd 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