subroutine char SEGMENTS real KICK int MAP 
make map MAP conv real
make map MAP zero 
make map MAP set -10 10 -9999.
set coor sele all end kick KICK 

if ( MAP_OMIT .eq. "ON" ) then
   make map THE_MAP atom symm -
           atom dens -
           sele segm name SEGMENTS end
else
   make map THE_MAP atom symm -
           atom dens -
           sele segm name SEGMENTS .a .n active end

end_if

<>cmds/un_do.cmds

 make map MAP set -100000 -100 0.
 fourier map MAP 
 reflection select defined end r-values 
<?MAIN_CMDS:calc_fofc_diff_map.cmds MAP 1. 1. 
return