Remove some debug code.

lib/fst4_decode.f90

@@ -43,7 +43,6 @@ contains
       procedure(fst4_decode_callback) :: callback
       character*37 decodes(100)
       character*37 msg,msgsent
-      character*8 s_nfa_nfb
       character*20 wcalls(MAXWCALLS), wpart
       character*77 c77
       character*12 mycall,hiscall
@@ -264,27 +263,6 @@ contains
          inb1=0                !Fixed NB value, 0 to 25%
       endif
 
-! If environment variable FST4W_ALSO_FST4 exists then, when in FST4W mode,
-! do a second pass for FST4 decodes. The value of FST4W_ALSO_FST4 
-! is of the form xxxxyyyy where nfa=xxxx and nfb=yyyy are the 
-! search limits for the FST4 decoding pass, e.g. 
-! FST4W_ALSO_FST4=08001700 will set FST4 search window to [800Hz,1700Hz]
-!
-      nmode=1
-      call get_environment_variable("FST4W_ALSO_FST4",s_nfa_nfb,nlength)
-      if(iwspr.eq.1 .and. nlength.eq.8) then
-         read(s_nfa_nfb,"(i4.4,i4.4)") nfa_mode2,nfb_mode2
-         nmode=2
-         if(nfa_mode2.lt.100 .or. nfb_mode2.gt.4910 .or. nfb_mode2.le.nfa_mode2) nmode=1
-      endif
-
-      do imode=1,nmode
-         if(imode.eq.1) iwspr=1
-         if(imode.eq.2) then ! this is FST4 after a FST4W pass
-            iwspr=0
-            nfa=nfa_mode2
-            nfb=nfb_mode2
-         endif
 
 ! nfa,nfb: define the noise-baseline analysis window
 !  fa, fb: define the signal search window
@@ -297,7 +275,7 @@ contains
          fa=max(100,nint(nfqso+1.5*baud-ntol))  ! signal search window
          fb=min(4800,nint(nfqso+1.5*baud+ntol))
       else if(iwspr.eq.0) then
-            if(imode.eq.1 .and. single_decode) then
+         if(single_decode) then
             fa=max(100,nint(nfa+1.5*baud))
             fb=min(4800,nint(nfb+1.5*baud))
             ! extend noise fit 100 Hz outside of search window
@@ -635,7 +613,7 @@ contains
                      endif
                      call this%callback(nutc,smax1,nsnr,xdt,fsig,msg,    &
                         iaptype,qual,ntrperiod,lwspr,fmid,w50)
-                        if(iwspr.eq.0 .and. nb.lt.0 .and. imode.eq.1) go to 900
+                     if(iwspr.eq.0 .and. nb.lt.0) go to 900
                      goto 800
                   endif
                enddo  ! metrics
@@ -651,8 +629,6 @@ contains
          close(42)
       endif
 
-      enddo ! mode loop
-
 900   return
    end subroutine decode