Add rudimentary sanity checks to the values parsed from FST4W_ALSO_FST4.

2026-07-23 02:24:27 -04:00 · 2021-01-02 10:25:29 -06:00
parent 41f587c240
commit 46222c61ed
1 changed files with 1 additions and 0 deletions
@@ -275,6 +275,7 @@ contains
      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