Lines Matching refs:DOTV
41 FUNCTION DOTV(dof, nNo, commu, U, V) function
50 REAL*8 tmp, DOTV local
52 DOTV = 0D0
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)
73 DOTV = DOTV + SUM(U(:,i)*V(:,i))
79 CALL MPI_ALLREDUCE(DOTV, tmp, 1, mpreal, MPI_SUM, commu%comm,
82 DOTV = tmp
85 END FUNCTION DOTV