Lines Matching refs:U
41 FUNCTION DOTV(dof, nNo, commu, U, V)
47 REAL*8, INTENT(IN) :: V(dof,nNo), U(dof,nNo) local
56 DOTV = DOTV + U(1,i)*V(1,i)
60 DOTV = DOTV + U(1,i)*V(1,i) + U(2,i)*V(2,i)
64 DOTV = DOTV + U(1,i)*V(1,i) + U(2,i)*V(2,i) +U(3,i)*V(3,i)
68 DOTV = DOTV + U(1,i)*V(1,i) + U(2,i)*V(2,i)
69 2 + U(3,i)*V(3,i) + U(4,i)*V(4,i)
73 DOTV = DOTV + SUM(U(:,i)*V(:,i))
89 FUNCTION DOTS(nNo, commu, U, V)
95 REAL*8, INTENT(IN) :: V(nNo), U(nNo) local
102 DOTS = DOTS + U(i)*V(i)