Home
last modified time | relevance | path

Searched refs:U (Results 1 – 5 of 5) sorted by relevance

/phasta/svLS/ !
H A DNORM.f41 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
[all …]
H A DSPARMUL.f42 2 K, U, KU)
50 REAL*8, INTENT(IN) :: K(dof*dof,nnz), U(dof,nNo) local
60 KU(1,i) = KU(1,i) + K(1,j)*U(1,colPtr(j))
67 KU(1,i) = KU(1,i) + K(1,j)*U(1,col) + K(2,j)*U(2,col)
68 KU(2,i) = KU(2,i) + K(3,j)*U(1,col) + K(4,j)*U(2,col)
75 KU(1,i) = KU(1,i) + K(1,j)*U(1,col) + K(2,j)*U(2,col)
76 2 + K(3,j)*U(3,col)
77 KU(2,i) = KU(2,i) + K(4,j)*U(1,col) + K(5,j)*U(2,col)
78 2 + K(6,j)*U(3,col)
79 KU(3,i) = KU(3,i) + K(7,j)*U(1,col) + K(8,j)*U(2,col)
[all …]
H A DDOT.f41 FUNCTION DOTV(dof, nNo, commu, U, V)
47 REAL*8, INTENT(IN) :: V(dof,nNo), U(dof,nNo) local
56 DOTV = DOTV + U(1,i)*V(1,i)
60 DOTV = DOTV + U(1,i)*V(1,i) + U(2,i)*V(2,i)
64 DOTV = DOTV + U(1,i)*V(1,i) + U(2,i)*V(2,i) +U(3,i)*V(3,i)
68 DOTV = DOTV + U(1,i)*V(1,i) + U(2,i)*V(2,i)
69 2 + U(3,i)*V(3,i) + U(4,i)*V(4,i)
73 DOTV = DOTV + SUM(U(:,i)*V(:,i))
89 FUNCTION DOTS(nNo, commu, U, V)
95 REAL*8, INTENT(IN) :: V(nNo), U(nNo) local
[all …]
H A DNSSOLVER.f58 REAL*8, ALLOCATABLE :: U(:,:,:), P(:,:), local
66 2 U(nsd,nNo,iB), P(nNo,iB), MU(nsd,nNo,nB), MP(nNo,nB),
96 2 ls%GM, rowPtr, colPtr, mK, Rm, U(:,:,i))
99 2 rowPtr, colPtr, mD, U(:,:,i), P(:,i))
110 2 ls%GM, rowPtr, colPtr, mK, MU(:,:,iBB), U(:,:,i))
113 2 rowPtr, colPtr, mK, U(:,:,i), MU(:,:,iBB))
116 2 face, U(:,:,i), MU(:,:,iBB))
122 2 rowPtr, colPtr, mD, U(:,:,i), MP(:,iBB))
166 Rmi = xB(2)*U(:,:,1)
172 Rmi = Rmi + xB(iBB)*U(:,:,i)
[all …]
/phasta/phSolver/common/ !
H A Dsymtri.c47 #define U 0.082851075618374 macro
83 static double wt12[] = {S,S,S,T,T,T,U,U,U,U,U,U};