subroutine char SEGMENTS char GROUP char AKIND
if ( GROUP .eq. "RESIDUE" ) then
anal resi init
else
anal atom init
end_if

if ( AKIND .eq. "FORCE" ) then
 ener sele segm name SEGMENTS end

! energy forces for the whole segment in a single step
 anal sele segm name SEGMENTS end force
end_if

if ( AKIND .eq. "ENERGY" ) then
! energy along the chain is calculated - 2 residue interaction embeded
 anal sele segm name SEGMENTS end energy resid 2
end_if

< ?MAIN_CMDS:anal_image.cmds SEGMENTS GROUP
return

! energy along the chain is calculated - 6 residue interaction embeded
! anal sele .not atom name H* end energy neigh 6

! interactions are calculated through space on distance criteria
! useful for packing interactions - raw Ramachandran
!anal sele .not atom name H* end dist 8.
return