subroutine char METHOD real WEIGHT
set vari ACTION_TYPE char global = METHOD

if ( ACTION_TYPE .eq. "SELECT" ) then
set weight sele active end = WEIGHT
 < ?MAIN_CMDS:re_image.cmds WORK_SEGM
end_if

if ( ACTION_TYPE .eq. "ATOM" ) then
set weight sele atom numb $1 end = WEIGHT
 < ?MAIN_CMDS:re_image.cmds WORK_SEGM
end_if

if ( ACTION_TYPE .eq. "SIDE" ) then
set weight sele by resi atom numb $1 .and \
  .not atom name H* CA N C O end = WEIGHT
 < ?MAIN_CMDS:re_image.cmds WORK_SEGM
end_if

if ( ACTION_TYPE .eq. "RESIDUE" ) then
set weight sele by resi atom numb $1 .a .not atom name H* end = WEIGHT
 < ?MAIN_CMDS:re_image.cmds WORK_SEGM
end_if