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