From 46222c61eddb6b98e35c11d2252e59527359262f Mon Sep 17 00:00:00 2001
From: Steven Franke <s.j.franke@icloud.com>
Date: Sat, 2 Jan 2021 10:25:29 -0600
Subject: [PATCH] Add rudimentary sanity checks to the values parsed from
 FST4W_ALSO_FST4.

---
 lib/fst4_decode.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/fst4_decode.f90 b/lib/fst4_decode.f90
index 9a1aa0f16..9b066e61f 100644
--- a/lib/fst4_decode.f90
+++ b/lib/fst4_decode.f90
@@ -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