X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Fsc_move.F;h=af6e99d16594605562c19a6a61ca773ed8496980;hb=f4a7e366d8b9513779319977c2954e72d85293af;hp=c552ee06068b36564aa2c6568b1040f3fad88897;hpb=a8d848a53132a158ba39f3aa1cb20cb382d18f84;p=unres.git

diff --git a/source/unres/src_MD-M/sc_move.F b/source/unres/src_MD-M/sc_move.F
index c552ee0..af6e99d 100644
--- a/source/unres/src_MD-M/sc_move.F
+++ b/source/unres/src_MD-M/sc_move.F
@@ -720,6 +720,7 @@ c     if (icall.eq.0) lprn=.true.
 
 
         itypi=iabs(itype(i))
+        if (itypi.gt.ntyp .or. itypi.le.0) cycle
         itypi1=iabs(itype(i+1))
         xi=c(1,nres+i)
         yi=c(2,nres+i)
@@ -765,6 +766,7 @@ C
           IF (mask_side(j).eq.1.or.mask_side(i).eq.1) THEN
             ind=ind+1
             itypj=iabs(itype(j))
+            if (itypj.gt.ntyp .or. itypj.le.0) cycle
             dscj_inv=dsc_inv(itypj)
             sig0ij=sigma(itypi,itypj)
             chi1=chi(itypi,itypj)