common /vectors/ uy(3,maxres),uz(3,maxres),
     &          uygrad(3,3,2,maxres),uzgrad(3,3,2,maxres)