Searched refs:DOTS (Results 1 – 3 of 3) sorted by relevance
| /phasta/svLS/ |
| H A D | DOT.f | 89 FUNCTION DOTS(nNo, commu, U, V) function
98 REAL*8 tmp, DOTS local
100 DOTS = 0D0
102 DOTS = DOTS + U(i)*V(i)
107 CALL MPI_ALLREDUCE(DOTS, tmp, 1, mpreal, MPI_SUM, commu%comm,
110 DOTS = tmp
113 END FUNCTION DOTS
|
| H A D | CGRAD.f | 57 REAL*8 CPUT, NORMS, DOTS local
97 alpha = errO/DOTS(mynNo, commu, P, SP)
191 REAL*8 CPUT, NORMS, DOTS local
213 alpha = errO/DOTS(mynNo, commu, P, KP)
|
| H A D | NSSOLVER.f | 57 REAL*8 CPUT, NORMS, NORMV, DOTS, DOTV, eps local
127 2 + DOTS( mynNo, commu, MP(:,j), MP(:,k))
133 2 + DOTS ( mynNo, commu, MP(:,k), Rci)
|