From 932e100a2cba479a6b64e7c5b98948aab9a6e1ba Mon Sep 17 00:00:00 2001
From: Steve Franke <s.j.franke@icloud.com>
Date: Thu, 23 May 2019 09:55:50 -0500
Subject: [PATCH] Update jt9.f90 to account for changes to FT4.

---
 lib/jt9.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/jt9.f90 b/lib/jt9.f90
index 68984e33a..67e7ac319 100644
--- a/lib/jt9.f90
+++ b/lib/jt9.f90
@@ -226,7 +226,7 @@ program jt9
      endif
 
      shared_data%id2=0          !??? Why is this necessary ???
-     if(mode.eq.5) npts=62208
+     if(mode.eq.5) npts=21*3456
      do iblk=1,npts/kstep
         k=iblk*kstep
         if(mode.eq.8 .and. k.gt.179712) exit