subroutine char CURRENT char SEGM_FROM char SEGM_TO char FILE_MATRIX

if ( CURRENT .ne. SEGM_FROM ) return

symm sele segm name CURRENT end matr 1 tran 0 0 0
copy weigh sele segm name CURRENT end sele segm name #* end
copy temp  sele segm name CURRENT end sele segm name #* end

< FILE_MATRIX

rota atom sele segm name #* end matr MAT_ROT
tran atom sele segm name #* end vect XTRAN YTRAN ZTRAN
rename segm SEGM_TO sele segm name #* end

return