Home
last modified time | relevance | path

Searched refs:DOTV (Results 1 – 5 of 5) sorted by relevance

/phasta/svLS/
H A DDOT.f41 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
[all …]
H A DADDBCMUL.f53 REAL*8 S, DOTV local
79 S = coef(faIn)*DOTV(dof, mynNo, commu, v, X)
H A DGMRES.f56 REAL*8 CPUT, NORMV, DOTV local
115 h(j,i) = DOTV(dof, mynNo, commu, u(:,:,i+1), u(:,:,j))
178 REAL*8 CPUT, NORMV, DOTV local
219 h(j,i) = DOTV(dof, mynNo, commu, u(:,:,i+1), u(:,:,j))
H A DNSSOLVER.f57 REAL*8 CPUT, NORMS, NORMV, DOTS, DOTV, eps local
126 A(j,k) = DOTV(nsd, mynNo, commu, MU(:,:,j), MU(:,:,k))
132 B(k) = DOTV (nsd, mynNo, commu, MU(:,:,k), Rmi)
H A DCGRAD.f132 REAL*8 CPUT, NORMV, DOTV local
156 alpha = errO/DOTV(dof, mynNo, commu, P, KP)