subroutine char FILE_PARAM char SEGMENTS inte ICLR

echo "--------- ======== SEGMENTS =========== ---------" SEGMENTS
show vari SEGMENTS

dele atom sele segm name #* end
symm sele segm name SEGMENTS end matr 1 tran 0 0 0
copy coor sele segm name SEGMENTS end sele segm name #* end
<FILE_PARAM
rota atom sele segm name #* end matr MAT_ROT
tran atom sele segm name #* end vector XTRAN YTRAN ZTRAN

image group name WRK_ + SEGMENTS
image col ICLR sele segm name #* .a .n atom name H* end bond
image col ICLR sele segm name #* .a .not by bond all  end atom cros

!rena segm WRK sele segm name #* end
dele atom sele segm name #* end
image from
image erase

return