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

diff --git a/source/unres/io.F90 b/source/unres/io.F90
index 2a6147e..86b40ef 100644
--- a/source/unres/io.F90
+++ b/source/unres/io.F90
@@ -1056,7 +1056,8 @@
         do i=1,nres_molec(molec)
           itmp=itmp+1
           istype(itmp)=sugarcode(sequence(i,molec)(1:1),i)
-          itype(itmp,molec)=rescode(i,sequence(i,molec)(1:2),iscode,molec)
+          sequence(i,molec)=sequence(i,molec)(1:2)
+          itype(itmp,molec)=rescode(i,sequence(i,molec),iscode,molec)
         enddo
        endif