      dimension vc2d(1000,250), prs2d(1000,250)
      common /vctran/ nscross,mkzhcross,ivcs,vc2d,prs2d
