subroutine char THE_WORK char THE_DEST  char ACTION_MOD

echo action model: ACTION_MOD

if ( ACTION_MOD .eq. "GET" ) then
key to_work    sele by sequence active .an segm name THE_WORK end
key get_from   sele by sequence active .an segm name THE_DEST end

< mol_ + THE_DEST + _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 get_from drop
key to_work drop

else

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

< mol_ + THE_WORK + _to_ + THE_DEST + .com

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 from_work drop
key to_work drop
end_if

return