subroutine char SEL_METHOD

if ( NICE_SELMOD .eq. 0 ) key active select .not all end

if ( SEL_METHOD .eq. WORK ) then
key active sele active .or. segm name WORK_SEGM end

menu block NICE_SEL item ACT_WORK button on
menu block NICE_SEL item ACT_SEGM button off
menu block NICE_SEL item ACT_2RES button off
menu block NICE_SEL item ACT_NEIG button off
menu block NICE_SEL item ACT_LAST button off

end_if

if ( SEL_METHOD .eq. NEIGHBOR ) then
key active sele active .or. neigh $1 14 end
menu block NICE_SEL item ACT_WORK button off
menu block NICE_SEL item ACT_SEGM button off
menu block NICE_SEL item ACT_2RES button off
menu block NICE_SEL item ACT_NEIG button on
menu block NICE_SEL item ACT_LAST button off
end_if

if ( SEL_METHOD .eq. SEGMENT ) then
key active sele active .or. neigh $1 -1 end
menu block NICE_SEL item ACT_WORK button off
menu block NICE_SEL item ACT_SEGM button on
menu block NICE_SEL item ACT_2RES button off
menu block NICE_SEL item ACT_NEIG button off
menu block NICE_SEL item ACT_LAST button off
end_if

if ( SEL_METHOD .eq. 2RES_RANGE ) then
key active sele active .or. by res atom numb $2 : $1 .or. - 
        by res atom numb $1 : $2 end
menu block NICE_SEL item ACT_WORK button off
menu block NICE_SEL item ACT_SEGM button off
menu block NICE_SEL item ACT_2RES button on
menu block NICE_SEL item ACT_NEIG button off
menu block NICE_SEL item ACT_LAST button off

end_if

if ( SEL_METHOD .eq. LAST ) then
key active sele by res atom numb $1 end
menu block NICE_SEL item ACT_WORK button off
menu block NICE_SEL item ACT_SEGM button off
menu block NICE_SEL item ACT_2RES button off
menu block NICE_SEL item ACT_NEIG button off
menu block NICE_SEL item ACT_LAST button on

end_if


key passive sele by bond active end
key passive sele by residue passive end
image mark sele active end
sleep 1
image mark off
return
!key anchor sele active .a atom name CA end
<DEF_ALL
return