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 end  
<>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_2fofc_sigma_a_map.cmds MAP 

 < ?MAIN_CMDS:calc_fofc_diff_map.cmds MAP 2. 1.
return