include 'COMMON.SBRIDGE'
include 'COMMON.DISTFIT'
include 'COMMON.MD'
- character*50 tytul
+ character*(*) tytul
dimension ica(maxres)
write (iunit,'(3a,1pe15.5)') 'REMARK ',tytul,' ENERGY ',etot
cmodel write (iunit,'(a5,i6)') 'MODEL',1
& restyp(iti),hfrag(1,j)-1,
& restyp(itj),hfrag(2,j)-1,1,hfrag(2,j)-hfrag(1,j)
else
- write (iunit,'(a5,i5,1x,a1,i2,1x,a3,i7,2x,a3,i7,i3)')
+ write (iunit,'(a5,i5,1x,a1,i2,1x,a3,i7,2x,a3,i7,i3,t76,i5)')
& 'HELIX',j,'H',j,
& restyp(iti),hfrag(1,j)-1,
& restyp(itj),hfrag(2,j)-1,1,hfrag(2,j)-hfrag(1,j)