One more protection against too-large FTol.

2020-12-16 15:51:46 -05:00 · 2020-12-16 15:51:46 -05:00 · 6b8abe32b1
parent 7051dc7ee6
commit 6b8abe32b1
1 changed files with 1 additions and 0 deletions
--- a/lib/q65_sync.f90
+++ b/lib/q65_sync.f90
@ -201,6 +201,7 @@ subroutine q65_sync(nutc,iwave,nmax,mode_q65,codewords,ncw,nsps,nfqso,ntol,    &
  irc=-2
  dat4=0
  ia=ntol/df
+  if(i0-ia.lt.1 .or. i0+ia.gt.iz) go to 900
  do lag=lag1,lag2
     do k=1,85
        n=NSTEP*(k-1) + 1