diff --git a/lib/hspec.f90 b/lib/hspec.f90
index 8455a9be4..6327690f8 100644
--- a/lib/hspec.f90
+++ b/lib/hspec.f90
@@ -80,9 +80,10 @@ subroutine hspec(id2,k,nutc0,ntrpdepth,nrxfreq,ntol,bmsk144,ingain,   &
         tt1=sum(float(abs(id2(k0:k0+3583))))
         k0=k-3584
         tt2=sum(float(abs(id2(k0:k0+3583))))
-        if(tt.eq.0.0 .or. tt2.eq.0) print*,k,k/12000.0
-        call mskrtd(id2(k-7168+1:k),nutc0,tsec,ntol,nrxfreq,ndepth,   &
-             mycall,hiscall,bshmsg,line1)
+        if(tt.ne.0.0 .and. tt2.ne.0) then
+           call mskrtd(id2(k-7168+1:k),nutc0,tsec,ntol,nrxfreq,ndepth,   &
+                mycall,hiscall,bshmsg,line1)
+        endif
      endif
   endif