Home
last modified time | relevance | path

Searched refs:NORMV (Results 1 – 4 of 4) sorted by relevance

/phasta/svLS/
H A DNORM.f41 FUNCTION NORMV(dof, nNo, commu, U) function
50 REAL*8 tmp, NORMV local
52 NORMV = 0D0
56 NORMV = NORMV + U(1,i)*U(1,i)
60 NORMV = NORMV + U(1,i)*U(1,i) + U(2,i)*U(2,i)
64 NORMV = NORMV+ U(1,i)*U(1,i) + U(2,i)*U(2,i) + U(3,i)*U(3,i)
68 NORMV = NORMV + U(1,i)*U(1,i) + U(2,i)*U(2,i)
73 NORMV = NORMV + SUM(U(:,i)*U(:,i))
78 CALL MPI_ALLREDUCE(NORMV, tmp, 1, mpreal, MPI_SUM,
80 NORMV = tmp
[all …]
H A DGMRES.f56 REAL*8 CPUT, NORMV, DOTV local
87 err(1) = NORMV(dof, mynNo, commu, u(:,:,1))
118 h(i+1,i) = NORMV(dof, mynNo, commu, u(:,:,i+1))
178 REAL*8 CPUT, NORMV, DOTV local
188 eps = NORMV(dof, mynNo, commu, R)
209 err(1) = NORMV(dof, mynNo, commu, u(:,:,1))
222 h(i+1,i) = NORMV(dof, mynNo, commu, u(:,:,i+1))
H A DNSSOLVER.f57 REAL*8 CPUT, NORMS, NORMV, DOTS, DOTV, eps local
76 eps = SQRT(NORMV(nsd, mynNo, commu, Rm)**2D0
130 A(k,k) = NORMV(nsd, mynNo, commu, MU(:,:,k))**2D0
269 REAL*8 NORMV local
283 face(faIn)%nS = NORMV(nsd, mynNo, commu, v)**2D0
H A DCGRAD.f132 REAL*8 CPUT, NORMV, DOTV local
139 err = NORMV(dof, mynNo, commu, R)
159 err = NORMV(dof, mynNo, commu, R)