set vari MAT_ROT = 3

<work_hex
< MAIN_CMDS:re_phase.cmds "PR_H EN_H" MAP_HEX
< MAIN_CMDS:calc_fofc_diff_map.cmds MAP_HEX 2.0 1.0

<work_ort
< MAIN_CMDS:re_phase.cmds "PR_O EN_O" MAP_ORT
< MAIN_CMDS:calc_fofc_diff_map.cmds MAP_ORT 2.0 1.0
return


make map MAP_HEX + 1 conv real
make map MAP_HEX + 1 zero
make map MAP_HEX + 1 set -1 1 9999
make map MAP_HEX + 1 from MAP_HEX copy

make map MAP_ORT + 1 conv real
make map MAP_ORT + 1 zero
make map MAP_ORT + 1 set -1 1 9999
make map MAP_ORT + 1 from MAP_ORT copy

set vari CYCLE_N = 1
set vari CYCLE = 0

<aver_loop
<make_rota_maps
set lev 0
return



make map MAP_HEX conv real
make map MAP_HEX zero
make map MAP_HEX set -1 1 9999
make map MAP_HEX from MAP_HEX + 1 copy

make map MAP_ORT  conv real
make map MAP_ORT  zero
make map MAP_ORT  set -1 1 9999
make map MAP_ORT  from MAP_ORT + 1 copy