subroutine real R_VALUE
set vari set_weight global = R_VALUE
if ( R_VALUE .le. 0.0 ) then
menu block XRAY_BUILD item WEIGH_0 button on
menu block XRAY_BUILD item WEIGH_1 button off
menu block DEPP_XRAY_B item WEIGH_0 button on
menu block DEPP_XRAY_B item WEIGH_1 button off
else
menu block XRAY_BUILD item WEIGH_1 button on
menu block XRAY_BUILD item WEIGH_0 button off
menu block DEPP_XRAY_B item WEIGH_1 button on
menu block DEPP_XRAY_B item WEIGH_0 button off
end_if
return