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