pierwsza proba merga devela do adasko

[unres.git] / source / unres / src_MD / sc_move.F

diff --git a/source/unres/src_MD/sc_move.F b/source/unres/src_MD/sc_move.F
index b6837fd..02a329d 100644 (file)
--- a/source/unres/src_MD/sc_move.F
+++ b/source/unres/src_MD/sc_move.F
@@ -213,7 +213,7 @@ c     Define what is meant by "neighbouring side-chain"
 
 c     Don't do glycine or ends
       i=itype(res_pick)
-      if (i.eq.10 .or. i.eq.21) return
+      if (i.eq.10 .or. i.eq.ntyp1) return
 
 c     Freeze everything (later will relax only selected side-chains)
       mask_r=.true.