subroutine char THE_WORK char THE_DEST
key from_work sele by sequence active .an segm name THE_WORK end
key to_work   sele by sequence active .an segm name THE_DEST end

key ca_from sele  segm name THE_WORK .a atom name CA end
key ca_to   sele  segm name THE_DEST .a atom name CA end
rms coor all eigen sele ca_from end sele ca_to end

copy weight sele from_work end sele to_work end
copy coor sele from_work end sele to_work end
rota atom sele to_work end rms
tran atom sele to_work end rms

key ca_from drop
key ca_to drop
key from_work drop
key to_work drop
return