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
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