Lines Matching refs:NORMV
41 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
83 NORMV = SQRT(NORMV)
86 END FUNCTION NORMV