subroutine char SEGMENTS
set weight sele segm name SEGMENTS end = 1.0
set weight sele segm name SEGMENTS .a ( elem 1 .o elem 0 ) end = 0.0
set weight sele segm name SEGMENTS .a map MAP_ACT -1000 MAP_CONT - 0.2 end = 0.0
return