subroutine char METHOD
set vari ANAL_KIND char global = METHOD
if ( ANAL_KIND .eq. "FORCE" ) then
menu block ANALYSIS item BY_FORCE button on
menu block ANALYSIS item BY_ENERG button off
end_if

if ( ANAL_KIND .eq. "ENERGY" ) then
menu block ANALYSIS item BY_FORCE button off
menu block ANALYSIS item BY_ENERG button on
end_if

return