debugging 5Dia

[unres4.git] / source / unres / MCM_MD.f90

diff --git a/source/unres/MCM_MD.f90 b/source/unres/MCM_MD.f90
index 2296ddb..657f082 100644 (file)
--- 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