integer function indx(x)
      integer i
      equivalence(i,y)
      y=x
      indx=i
      return
      end
c++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*