subroutine char SEGMENTS

dele atom sele segm name NEW #* end
! delete atom sele segm name HELP ORIG end
! read file help_3ang_2.pdb coor pdb
! read file help_3ang_2.ctab ctab first sele segm name HELP end
! set vari WORK_SEGM char glob = HELP

set vari MAP_TARG = map_to
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 HELP sele segm name WORK_SEGM end
key OLD sele all end

 symm sele segm name HELP .a ctab 3 100 end matr 1 tran 0 0 0

 make ct ini sele segm name #* end
 rena atom C0 sele segm name #* end
 make segm sele segm name #* end from atoms
 rena segm NEW sele .not OLD end 
 rena resi SP2 sele segm name NEW end

 set vari WORK_SEGM char glob = NEW
< ?MAIN_UTILS:fill_atoms.com NEW

!set weight sele segm name NEW end = 1.0

set clas sele segm name NEW .a .not clas name SP2 SP3 end = HELP

 find residue sele segm name NEW end sele segm name HELP .a ctab 3 1000 end \ 
 map map_to root C0 side C1 list "SP2 SP3 SP3R" fit 

 dele atom sele segm name HELP end

 find residue sele segm name NEW end sele segm name NEW end \
 root C0 map map_to merge step WALK_STEP del

 set weight sele segm name NEW end = 1.0

key XX_KEY drop
rena segm HELP sele segm name NEW end
 set vari WORK_SEGM char glob = HELP

 dele atom sele segm name HELP .a map map_to -1000. map_cont - 0.2 end
 delete atom sele segm name WORK_SEGM .a .not by bond all end

 <DEF_ALL WORK_SEGM
 mini sele segm name WORK_SEGM end 
 dele atom sele segm name HELP .a map map_to -1000. map_cont - 0.2 end
< MAIN_CMDS:re_image.cmds WORK_SEGM

return

image col 220 sele segm name HELP end bond

image col 160 sele atom name XEXT end atom cros
return

 key OLD sele all end
 clo uni 4
 read file fort.4 coor
 image col 200 sele .not OLD end atom cros
 clo uni 4
 delete atom sele .not OLD end
 
 clo uni 3
 read file fort.3 coor
 image col 150 sele .not OLD end atom cros
 clo uni 3
 delete atom sele .not OLD end
 
 clo uni 2
 read file fort.2 coor
 image col 120 sele .not OLD end atom cros
 clo uni 2
 delete atom sele .not OLD end
 
 clo uni 1
 read file fort.1 coor
 image col 85 sele .not OLD end atom cros
 clo uni 1
 delete atom sele .not OLD end

return

key OLD sele all end
clo uni 4
read file fort.4 coor
image col 200 sele .not OLD end atom cros
clo uni 4
delete atom sele .not OLD end

clo uni 3
read file fort.3 coor
image col 150 sele .not OLD end atom cros
clo uni 3
delete atom sele .not OLD end

clo uni 2
read file fort.2 coor
image col 140 sele .not OLD end atom cros
clo uni 2
delete atom sele .not OLD end

clo uni 1
read file fort.1 coor
image col 100 sele .not OLD end atom cros
clo uni 1
delete atom sele .not OLD end

key OLD sele all end
clo uni 9
read file fort.9 coor
image col 220 sele .not OLD end atom cros
clo uni 9
delete atom sele .not OLD end

key OLD sele all end
clo uni 8
read file fort.8 coor
image col 165 sele .not OLD end atom cros
clo uni 8
delete atom sele .not OLD end

key OLD sele all end
clo uni 11
read file fort.11 coor
image col 114 sele .not OLD end atom cros
clo uni 11
delete atom sele .not OLD end


return

image col 110 sele segm name MOL1 CLUS end bond
key image sele image .a .not segm name MOL1 CLUS end 

return

!image col 220 sele .not OLD .a weight 0.01 1000. end bond
!image col 200 sele .not OLD end bond
image col 220 sele .not OLD end atom name
image col 220 sele .not by bond all .a .not OLD end atom cros