      integer i,j
      real a(10),b
      call mysub(i,a,b,j)
      stop
      end
