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 inv 2

rota atom sele segm name TRIES end matr 2
tran atom sele segm name TRIES end vector C1 C2 C3
set weight sele segm name TRIES end = 1.0
set temp sele segm name TRIES end = 30.

image cent calc sele segm name TRIES end
<?MAIN_CMDS:re_image.cmds TRIES
<?MAIN_CMDS:symmetry_ca.cmds TRIES

return