Searched refs:NORMS (Results 1 – 3 of 3) sorted by relevance
| /phasta/svLS/ |
| H A D | NORM.f | 90 FUNCTION NORMS(nNo, commu, U) function
99 REAL*8 tmp, NORMS local
101 NORMS = 0D0
103 NORMS = NORMS + U(i)*U(i)
107 CALL MPI_ALLREDUCE(NORMS, tmp, 1, mpreal, MPI_SUM,
109 NORMS = tmp
112 NORMS = SQRT(NORMS)
115 END FUNCTION NORMS
|
| H A D | CGRAD.f | 57 REAL*8 CPUT, NORMS, DOTS local
66 errO = NORMS(mynNo, commu, R)
100 err = NORMS(mynNo, commu, R)
191 REAL*8 CPUT, NORMS, DOTS local
198 err = NORMS(mynNo, commu, R)
216 err = NORMS(mynNo, commu, R)
|
| H A D | NSSOLVER.f | 57 REAL*8 CPUT, NORMS, NORMV, DOTS, DOTV, eps local
77 2 + NORMS( mynNo, commu, Rc)**2D0)
131 2 + NORMS( mynNo, commu, MP(:,k))**2D0
162 ls%Resc = NINT(1D2*(NORMS(mynNo, commu, Rc)/
|