Lines Matching refs:U
41 FUNCTION NORMV(dof, nNo, commu, U)
47 REAL*8, INTENT(IN) :: U(dof,nNo) local
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)
69 2 + U(3,i)*U(3,i) + U(4,i)*U(4,i)
73 NORMV = NORMV + SUM(U(:,i)*U(:,i))
90 FUNCTION NORMS(nNo, commu, U)
96 REAL*8, INTENT(IN) :: U(nNo) local
103 NORMS = NORMS + U(i)*U(i)