subroutine char SEGMENTS char METHOD

!if ( MAP_TARG .gt. nmaps ) del vari MAP_TARG
set vari MAP_TARG glob = 3
set vari MAP_FROM = MAP_ACT
if ( MAP_FROM .eq. MAP_TARG ) set vari MAP_FROM = MAP_2FOFC
set vari WALK_CUSION = 5

if ( AUTO_SEL .eq. "HISTORY" ) key XX_KEY sele history end
if ( AUTO_SEL .eq. "ACTIVE" ) key XX_KEY sele active end
if ( AUTO_SEL .eq. "WORK" ) key XX_KEY sele  segm name SEGMENTS end

set vari TRACE_MAP char global = METHOD
if ( METHOD .eq. "GRADIENT" ) then

set vari MAP_CUT = MAP_CONT - 0.4
make map MAP_TARG from MAP_FROM init around  WALK_CUSION sele XX_KEY end 
make map MAP_TARG from MAP_FROM atom mask 6 sele  XX_KEY end 
make map MAP_TARG from MAP_FROM short MAP_CUT 1000.

menu block TRACE item TRC_DENS button off
menu block TRACE item TRC_GRAD button on
menu block TRACE item TRC_MIDL button off
end_if

if ( METHOD .eq. "DENSITY" ) then

make map MAP_TARG from MAP_FROM init 9999 \ 
     around WALK_CUSION sele XX_KEY end copy

menu block TRACE item TRC_DENS button on
menu block TRACE item TRC_GRAD button off
menu block TRACE item TRC_MIDL button off
end_if

if ( METHOD .eq. "MIDDLE" ) then

set vari MAP_CUT = MAP_CONT - 0.2
make map MAP_TARG from MAP_FROM inte init 0 \ 
     around WALK_CUSION sele XX_KEY end middle MAP_CUT 1000.0

menu block TRACE item TRC_MIDL button on
menu block TRACE item TRC_DENS button off
menu block TRACE item TRC_GRAD button off
end_if


return