subroutine char SEGMENTS real KICK int MAP int NUM_MAPS real RFOBS

set vari MAP_APPLY int ?= MAP
set vari COUNT int ?= 0
set vari COUNT = COUNT + 1

! show vari KICK_ADDS
show vari COUNT


if ( COUNT .gt. NUM_MAPS ) then
! make map MAP rescale
ima map MAP over 
return
end_if

if ( COUNT .eq. 2 ) then
set vari MAP_APPLY = 3
make map MAP_APPLY from MAP init real cell
end_if

< ?MAIN_UTILS:calc_kick_map.com SEGMENTS KICK MAP_APPLY RFOBS
if ( COUNT .gt. 1 ) then
make map MAP from MAP_APPLY add
end_if

if ( COUNT .eq. 200 ) then
write over file xx_200x_map.xmap map MAP xpl
end_if
if ( COUNT .eq. 400 ) then
write over file xx_400x_map.xmap map MAP xpl
end_if
if ( COUNT .eq. 700 ) then
write over file xx_700x_map.xmap map MAP xpl
end_if
if ( COUNT .eq. 1000 ) then
write over file xx_1000x_map.xmap map MAP xpl
end_if
if ( COUNT .eq. 2000 ) then
write over file xx_2000x_map.xmap map MAP xpl
end_if
if ( COUNT .eq. 3000 ) then
write over file xx_3000x_map.xmap map MAP xpl
end_if
if ( COUNT .eq. 4000 ) then
write over file xx_4000x_map.xmap map MAP xpl
end_if
if ( COUNT .eq. 5000 ) then
write over file xx_5000x_map.xmap map MAP xpl
end_if
if ( COUNT .eq. 7000 ) then
write over file xx_7000x_map.xmap map MAP xpl
end_if
if ( COUNT .eq. 10000 ) then
write over file xx_10000x_map.xmap map MAP xpl
end_if
rewind file

return