dimension a(3),b(3)
      call sub1(a,b)
      stop
      end
      subroutine sub1(b,aux)
      dimension b(5)
      b(1)=aux(1)
      return
      end