include 'COMMON.SBRIDGE'
include 'COMMON.DISTFIT'
include 'COMMON.MD'
- character*50 tytul
+ character*(*) tytul
character*1 chainid(10) /'A','B','C','D','E','F','G','H','I','J'/
dimension ica(maxres)
write (iunit,'(3a,1pe15.5)') 'REMARK ',tytul,' ENERGY ',etot