C
C     Common variables
C
      DOUBLE PRECISION    U(0:NBP1,0:NBP1,2),       UX(0:NBP1,0:NBP1)
      DOUBLE PRECISION    UY(0:NBP1,0:NBP1),        VX(0:NBP1,0:NBP1)
      DOUBLE PRECISION    VY(0:NBP1,0:NBP1)
C
      COMMON / VEL    /   U,           UY,          VY,          UX
      COMMON / VEL    /   VX
C