subroutine char SEGMENTS char GROUP
if ( GROUP .eq. "RESIDUE" ) then
anal resi init
else
anal atom init
end_if
!analyze sele wei 0.1 1100 .a segm name SEGMENTS end temperature
analyze sele segm name SEGMENTS end temperature

< ?MAIN_CMDS:anal_image.cmds SEGMENTS
return