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 
make map MAP atom symm \
     atom dens \
     sele segm name SEGMENTS .a .not active end  ! insert your segment names here
<>cmds/un_do.cmds

! uncoment to increase the solvent density
! make map MAP rescale   
 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