subroutine char SEGMENTS
set vari SUB_PASS ?= 0


set vari TEST_ATOM int =   -1
if ( nathis .gt. 0 ) then
set vari TEST_ATOM int atoms sele atom numb $1 end
end_if
show vari TEST_ATOM

dele atom sele segm name #* end

set vari MAP_TARG = MAP_ACT
set vari WALK_STEP = 1.42 * 1.1

if ( AUTO_SEL .eq. "HISTORY" ) key XX_KEY sele 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

rena segm NEW sele segm name TRAC end

find model XXX sele XX_KEY end from "SP4 SP3R" map 1 test TEST_ATOM

image erase
key image sele .n all end

set vari WORK_SEGM global = NEW

<DEF_ALL WORK_SEGM
ener vdw off elec off
 mini sele segm name WORK_SEGM end  step 80 writ 10
ener vdw on elec on
 mini sele segm name WORK_SEGM end  step 80 writ 10

ima col 160 sele segm name NEW end bond
ima col 200 sele segm name NEW .a .n atom name CA end atom name
ima col 1 sele segm name NEW .a atom name CA end atom numb

return