random generation for nucleic acids

[unres4.git] / source / unres / minim.F90

diff --git a/source/unres/minim.F90 b/source/unres/minim.F90
index 4d3115c..73b6fd2 100644 (file)
--- a/source/unres/minim.F90
+++ b/source/unres/minim.F90
@@ -4412,8 +4412,8 @@
       n_try=0
       do while (n_try.lt.n_maxtry .and. orig_e-cur_e.lt.e_drop)
 !     Move the selected residue (don't worry if it fails)
-        call gen_side(iabs(itype(res_pick,1)),theta(res_pick+1),&
-             alph(res_pick),omeg(res_pick),fail)
+        call gen_side(iabs(itype(res_pick,molnum(res_pick))),theta(res_pick+1),&
+             alph(res_pick),omeg(res_pick),fail,molnum(res_pick))
 
 !     Minimize the side-chains starting from the new arrangement
         call geom_to_var(nvar,var)