include 'COMMON.NAMES'
include 'COMMON.CONTROL'
integer i,j,ibeg,ishift1,ires,iii,ires_old,ishift,ity
include 'COMMON.NAMES'
include 'COMMON.CONTROL'
integer i,j,ibeg,ishift1,ires,iii,ires_old,ishift,ity
double precision e1(3),e2(3),e3(3)
double precision dcj,efree_temp
character*3 seq,res
double precision e1(3),e2(3),e3(3)
double precision dcj,efree_temp
character*3 seq,res
endif
! Read free energy
if (index(card,"FREE ENERGY").gt.0) read(card(35:),*) efree_temp
! Fish out the ATOM cards.
if (index(card(1:4),'ATOM').gt.0) then
endif
! Read free energy
if (index(card,"FREE ENERGY").gt.0) read(card(35:),*) efree_temp
! Fish out the ATOM cards.
if (index(card(1:4),'ATOM').gt.0) then
read (card(12:16),*) atom
c write (2,'(a)') card
! write (iout,*) "! ",atom," !",ires
read (card(12:16),*) atom
c write (2,'(a)') card
! write (iout,*) "! ",atom," !",ires