X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2FMCM_MD.f90;h=657f0826ff89e6072a0bb62a1b0056b57306eb64;hb=bbbdc8e18680625d3004f414aec255e9ca7b7353;hp=2296ddb45923c3e46eb63f4e964daf23570c270c;hpb=4367d241fbb2bc284580092d2d177b7c79ac3a42;p=unres4.git

diff --git a/source/unres/MCM_MD.f90 b/source/unres/MCM_MD.f90
index 2296ddb..657f082 100644
--- a/source/unres/MCM_MD.f90
+++ b/source/unres/MCM_MD.f90
@@ -1920,7 +1920,7 @@
           i2=winend(i)
           it1=itype(i1,1)
           it2=itype(i2,1)
-          write (iout,'(a,i3,a,i3,a,i3)') restyp(it1),i1,restyp(it2),i2,&
+          write (iout,'(a,i3,a,i3,a,i3)') restyp(it1,1),i1,restyp(it2,1),i2,&
                               ' length',winlen(i)
         enddo
       endif
@@ -3074,7 +3074,7 @@
           goto 301 
         endif
         if (print_mc.gt.1) write (iout,'(2a,i4,a,2f8.3)') &
-         'Side chain ',restyp(iti),ii,' moved to ',&
+         'Side chain ',restyp(iti,1),ii,' moved to ',&
          alph(ii)*rad2deg,omeg(ii)*rad2deg
       enddo
       moves(3)=moves(3)+1