subroutine char FROM_ITEM

if ( FROM_ITEM .eq. SKELETON ) then
ima era

key image sele .n all end
set vari TRACE_LAST global = TRC_SKEL
key active sele segm name SKEL end
<?MAIN_CMDS:use_atoms.cmds ACTIVE 
image sele segm name SKEL end set bond

end_if


if ( FROM_ITEM .eq. HYBRID ) then
ima era
key image sele .n all end
set vari TRACE_LAST global = TRC_HYBR
set vari WORK_SEGM global = HYBR 
ima sele segm name SKEL end set bond
image sele segm name HYBR end col 160 bond stick

<?MAIN_CMDS:use_atoms.cmds WORK

end_if
if ( FROM_ITEM .eq. POLYALA ) then
ima era
key image sele .n all end
set vari TRACE_LAST global = TRC_ALA
set vari WORK_SEGM global = HELP

<?MAIN_CMDS:use_atoms.cmds WORK
<?MAIN_CMDS:re_image.cmds WORK_SEGM

end_if

return