c=======================================================================
c purpose: returns the largest index i, such zz(i).ne.zip


      integer function numset(zip,zz,nz) 21
      dimension zz(nz)
      numset=0
      do 10 i=1,nz
        if(zz(i).ne.zip) numset=i
 10   continue
      return
      end