subroutine char MODE char WORK char SEGMENT

if ( MODE .eq. "WORK" ) then
shell ${MAIN_CONF}create_work_model.pl SEGMENT
<work_model.com
shell ${MAIN_CONF}create_rotate_maps.pl SEGMENT
return
end_if

if ( MODE .eq. "PUT_TO" ) then
<MAIN_CMDS:nmol_getput_other.com WORK SEGMENT PUT
image over false
return
end_if

if ( MODE .eq. "GET_FROM" ) then
<MAIN_CMDS:nmol_getput_other.com WORK SEGMENT  GET
image over false
return
end_if

if ( MODE .eq. "GOTO_SEQ" ) then
<MAIN_CMDS:nmol_goto_seq.com  SEGMENT 
return
end_if