Protect against a bounds error.

2020-11-30 13:26:14 -05:00 · 2020-11-30 13:26:14 -05:00 · 5c947178ce
parent de6f5e4975
commit 5c947178ce
1 changed files with 1 additions and 1 deletions
--- a/lib/q65_sync.f90
+++ b/lib/q65_sync.f90
@ -153,7 +153,7 @@ subroutine q65_sync(nutc,iwave,nmax,mode_q65,codewords,ncw,nsps,nfqso,ntol,    &
        cycle
     endif
     n=n+1
-     s3(-64:LL-65,n)=s1(ia:ib,j)
+     if(j.ge.1 .and. j.le.jz) s3(-64:LL-65,n)=s1(ia:ib,j)
  enddo
  
  nsubmode=0