subroutine char CURRENT char SEGM_FROM char SEGM_TO char FILE_MATRIX if ( CURRENT .ne. SEGM_FROM ) return rena segm 9999 sele segm name SEGM_TO end 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 make pair init sele segm name 9999 end sele segm name SEGM_TO end name_match sequ copy coor pairs copy temp pairs copy temp pairs return