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

!echo " ------>>>>>>>>>>>> NOW RMS ============ -----------" SEGMENTS
!rms coor sele segm name SEGMENTS end sele segm name #* end
!return

!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