! MODEL phases 
refl key WORK_REFL select defined .a resol RESOL_MIN 2.40 end 
 <?MAIN_CMDS:re_phase.cmds  WORK_SEGM 1
 <?MAIN_CMDS:calc_fofc_diff_map.cmds 1 2.0 1.0

make map 2 zero
make map 2 conv real
make map 2 set -1 1 9999.
make map 2 from 1 copy
make map 3 from 2 init -9999  real cell

set vari MAT_ROT int global = 3

return