subroutine char SEGMENTS real KICK int MAP int NUM_MAPS

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

show vari KICK_ADDS
show vari NUM_MAPS


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

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

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

rewind file

return