subroutine char METHOD
set vari ANAL_GRP char global = METHOD
if ( ANAL_GRP .eq. "RESIDUE" ) then
menu block ANALYSIS item GRP_RESI button on
menu block ANALYSIS item GRP_ATOM  button off
end_if

if ( ANAL_GRP .eq. "ATOM" ) then
menu block ANALYSIS item GRP_RESI button off
menu block ANALYSIS item GRP_ATOM  button on
end_if

return