C & .or. itype(i+5).eq.ntyp1
C & .or. itype(i).eq.ntyp1
C & .or. itype(i-1).eq.ntyp1
- & ) goto 178
+ & ) goto 179
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
enddo
endif
+ 179 continue
else if (j.eq.i+3 .and. itype(i+2).ne.ntyp1) then
if (itype(i).eq.ntyp1 .or. itype(i+1).eq.ntyp1
C changes suggested by Ana to avoid out of bounds