program main
      integer dat(100)         !原始数据
    integer val(50)          !各组数值的大小
    integer Num(50)          !各组内元素的数目
    integer position(100,50) !各组内各元素的位置

      dat(:)= ...    !赋值
    Neq = 0        !出现相同值的组数
      do 30 i = 1, 99
       k = 1
c            如果第i个数值不是第一次出现，则跳过
       if ( Neq .ge. 1) then
         do L = 1,Neq
           if  (dat(i) .eq.  val(Neq)) goto 30
         enddo
       endif

c           寻找与第i个数大小相同的元素
         do 20 j = i+1, 10
          if (dat(j) .eq. dat(i)) then
            k=k+1               
            position(k,Neq+1) = j
          end if
   20     continue 
        if ( k .gt. 1)then 
            position(1,Neq+1) = i 
            Neq = Neq+1
            Num(Neq) = k
            val(Neq) = dat(i)
        endif
   30    continue
    stop
    end