X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fio.F90;h=2a6147e7984a62c36bd49c55a89d572e9cd7ab64;hb=52d6371a0781ac6214af501666a2fbffbded3a40;hp=ffce3d7df38b702d46b416a9a93c9f62a4f1da81;hpb=a280f55746ca567cfd02f1184da61a28fbe9ebc7;p=unres4.git

diff --git a/source/unres/io.F90 b/source/unres/io.F90
index ffce3d7..2a6147e 100644
--- a/source/unres/io.F90
+++ b/source/unres/io.F90
@@ -225,7 +225,7 @@
                fail=.true.
                ii=0
                do while (fail .and. ii .le. maxsi)
-                 call gen_side(itype(i,1),theta(i+1),alph(i),omeg(i),fail)
+                 call gen_side(itype(i,1),theta(i+1),alph(i),omeg(i),fail,molnum(i))
                  ii = ii+1
                enddo
              endif
@@ -1004,7 +1004,7 @@
             nsi=0
             fail=.true.
             do while (fail.and.nsi.le.maxsi)
-              call gen_side(iti,theta(i+1),alph(i),omeg(i),fail)
+              call gen_side(iti,theta(i+1),alph(i),omeg(i),fail,molnum(i))
               nsi=nsi+1
             enddo
             if(fail) write(iout,*)'Adding sidechain failed for res ',&