From 655e0029fd503320186c3c51671266cfc91bf5e3 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Wed, 17 Apr 2019 14:03:27 -0400
Subject: [PATCH] Define the expected file length for FT4 data.

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

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