subroutine char SEGMENTS char DIRECTION char AUTO_REN


if ( AUTO_SEL .eq. "HISTORY" ) key XX_KEY sele by resi history end
if ( AUTO_SEL .eq. "ACTIVE" ) key XX_KEY sele active end
if ( AUTO_SEL .eq. "WORK" ) key XX_KEY sele segm name SEGMENTS end

key XX_KEY sele by resi XX_KEY end

set vari R_AUTO real = -1.0
if ( AUTO_REN .eq. "REN" ) set vari R_AUTO real = 4.0
if ( AUTO_REN .eq. "COMP" ) set vari R_AUTO real = -1.0

if ( DIRECTION .eq. "FORWARD" ) \
       find sequ top 5 sele XX_KEY end auto R_AUTO forward 
if ( DIRECTION .eq. "REVERSE" ) \
       find seq top 5 sele XX_KEY end auto R_AUTO reverse 
if ( DIRECTION .eq. "BOTH" ) \
       find seq top 5 sele XX_KEY end auto R_AUTO both 

if ( AUTO_REN .eq. "REN" ) then
< ?MAIN_UTILS:fill_atoms.com SEGMENTS
< ?MAIN_CMDS:re_image.cmds SEGMENTS
< DEF_ALL SEGMENTS

show vari R_AUTO
show vari AUTO_REN
echo SEGMENTS

end_if

return

find seq top 5 sele active end auto -3.0 forw

!wr sele active end res seq segm
!find top 5 sele active end seq forw confine 109 170 auto 4.0 ! oblige C
find top 5 sele active end seq auto -3.0 forw ! exclude 40 119 oblige C
!find top 5 sele segm name PRO end seq auto -4.0 both ! oblige W

! conf 90 150 igno X  auto -0.02 ! check oblige C 
!find sele segm name CATC end seq both ! check 
return

 find sele by resi atom numb $1 end map 1 0.7 side 
image over false
return