diff --git a/lib/detectmsk144.f90 b/lib/detectmsk144.f90 index e78ba2d65..4240bb6ff 100644 --- a/lib/detectmsk144.f90 +++ b/lib/detectmsk144.f90 @@ -202,7 +202,6 @@ subroutine detectmsk144(cbig,n,pchk_file,lines,nmessages,nutc,ntol,t00) crmax=maxval(abs(ccr)) ishort=0 if( crmax .gt. cmax ) ishort=1 -if( ishort .eq. 1 ) write(*,*) 'Short message detected' ! Find 6 largest peaks do ipk=1, 6