subroutine char FILE_PARAM char SEGMENTS inte ICLR

dele atom sele segm name #* end
symm sele segm name SEGMENTS end matr 1 tran 0 0 0

<FILE_PARAM
rota atom sele segm name #* end matr MAT_ROT
tran atom sele segm name #* end vector XTRAN YTRAN ZTRAN

image col ICLR sele segm name #* end bond
image col ICLR sele segm name #* .a .not by bond all  end atom cros

dele atom sele segm name #* end
image from
image erase

return