subroutine char SEGMENTS

if ( AUTO_SEL .eq. "WORK" .or. AUTO_SEL .eq. "ACTIVE" ) then
  if ( AUTO_SEL .eq. "WORK" ) key STUFF_TMP sele segm name SEGMENTS end
  if ( AUTO_SEL .eq. "ACTIVE" ) key STUFF_TMP sele by resi active end
  set geometry sele STUFF_TMP end peptide
  key STUFF_TMP drop
  image over false
  return
end_if

if ( AUTO_SEL .eq. "HISTORY" ) then
  set geometry sele by resi atom numb $1 $2 end peptide
  image over false
  return
end_if