subroutine char FROM char TRIES -
           real Z1 real Y1 real Z2 real C1 real C2 real  C3

dele atom sele segm name TRIES #* end
symm select segm name FROM end matr 1 tran 0 0 0
rena segm TRIES sele segm name #* end
copy weight sele segm name FROM end sele segm name TRIES end
copy temp  sele segm name FROM end sele segm name TRIES end

set matr 2  init z-ax Z1  y-ax  Y1 z-ax Z2
!set matr 3 tran 2

read coor
*
CXX   

set coor sele atom name CXX end values C1 C2 C3
set coor sele atom name CXX end ortho
set cent calc sele atom name CXX end
show image center


rota atom sele segm name TRIES end matr 2
tran atom sele segm name TRIES end vector RESULT_0 RESULT_1 RESULT_2
set weight sele segm name TRIES end = 1.0
set temp sele segm name TRIES end = 30.

set cent calc sele segm name TRIES end
show image center
set coor sele atom name CXX end values RESULT_0 RESULT_1 RESULT_2
ima hist pick natom

<?MAIN_CMDS:re_image.cmds TRIES
<?MAIN_CMDS:symmetry_ca.cmds TRIES
delete atom sele atom name CXX end
return