subroutine char SEGMENTS real KICK int THE_MAP real RFOBS
make map THE_MAP conv real
make map THE_MAP zero 
!make map THE_MAP set -10 10 -9999.

set coor sele segm name WORK_SEGM end kick KICK 

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

end_if

<>cmds/un_do.cmds

! make map THE_MAP set -100000 -100 0.
 fourier map THE_MAP 
 reflection select WORK_REFL end r-values 

!set vari BSHARP = -6 * 3.14 * 3.14 * KICK * KICK

<?MAIN_UTILS:calc_fofc_diff_next.com THE_MAP RFOBS 1.0 BSHARP
! make map THE_MAP scale 1.0 - R-VALUE
return

setfin B test

sharp -8
 MAIN>show map 1 cor 8
 SHOW> MAP 1 8  CORRELATION 0.5053646

- 1.5
 MAIN>show map 1 cor 8
 SHOW> MAP 1 8  CORRELATION 0.50731194
 
-6 balk + aniso
 MAIN>show map 1 cor 8
 SHOW> MAP 1 8  CORRELATION 0.5101946

 + ML
SHOW> MAP 1 8  CORRELATION 0.4744748