subroutine char METHOD
set vari REF_METHOD char global = METHOD
if ( REF_METHOD .eq. "REF_DENS" ) then
menu block REFINE item REF_DENS button on
menu block REFINE item REF_DIFF button off
menu block REFINE item REF_XLSQ button off
menu block REFINE item REF_MLSQ button off
end_if

if ( REF_METHOD .eq. "REF_DIFF" ) then
menu block REFINE item REF_DENS button off
menu block REFINE item REF_DIFF button on
menu block REFINE item REF_XLSQ button off
menu block REFINE item REF_MLSQ button off
end_if

if ( REF_METHOD .eq. "REF_XLSQ" ) then
menu block REFINE item REF_DENS button off
menu block REFINE item REF_DIFF button off
menu block REFINE item REF_XLSQ button on
menu block REFINE item REF_MLSQ button off
end_if

if ( REF_METHOD .eq. "REF_MLSQ" ) then
menu block REFINE item REF_DENS button off
menu block REFINE item REF_DIFF button off
menu block REFINE item REF_XLSQ button off
menu block REFINE item REF_MLSQ button on
end_if

return