Fix an off-by-1 bug introduced in the previous commit.

This commit is contained in:
Joe Taylor 2021-01-03 11:18:14 -05:00
parent 04b22ce250
commit a02cbabb99

View File

@ -167,7 +167,7 @@ subroutine q65_sync(nutc,iwave,ntrperiod,mode_q65,codewords,ncw,nsps, &
endif
n=n+1
if(j.ge.1 .and. j.le.jz) then
do i=0,LL
do i=0,LL-1
s3(i-64,n)=s1(i+i1,j)
enddo
endif