subroutine char SEGMENTS integer THE_MAP

set vari I_START inte atom sele atom numb $1 end
set vari I_END   inte atom sele atom numb $2 end
if ( I_STRAT .le. 0 .or. I_END .le. 0 ) return
set vari SKEL_CUT = MAP_CONT

< ?MAIN_UTILS:auto_stuff_path.com SEGMENTS I_START I_END THE_MAP SKEL_CUT
return