subroutine int ii
! removes the symmetry related peaks by checking the neighbors
set vari ii = ii + 1
if ( ii .gt. nsegm ) return
set vari nold = nsegm
key out sele by pair seg numb ii .and. xxx end
del atom sele by sequence out .and. ( xxx .or. symm ) end
if ( nold .gt. nsegm ) set vari ii int = ii - 1
rewind file