subroutine char THE_WORK char THE_GET
key to_work    sele by sequence active .an segm name THE_WORK end
key get_from   sele by sequence active .an segm name THE_GET end

wr sele get_from end res seq segm
wr sele to_work end res seq segm

key ca_from sele  segm name THE_GET  .a atom name CA end
key ca_to   sele  segm name THE_WORK .a atom name CA end

!rms coor all eigen sele ca_from end sele ca_to end
< mol_ + THE_GET + _to_ + THE_WORK + .com

copy weight sele get_from end sele to_work end
copy coor sele get_from end sele to_work end
rota atom sele to_work end matr MAT_ROT
tran atom sele to_work end vect XTRAN YTRAN ZTRAN

key ca_from drop
key ca_to drop
key get_from drop
key to_work drop
return