Lines Matching refs:W
42 2 rowPtr, colPtr, diagPtr, Val, R, W) argument
52 REAL*8, INTENT(OUT) :: W(dof,nNo) local
59 W(1,Ac) = Val(1,diagPtr(Ac))
64 W(1,Ac) = Val(1,d)
65 W(2,Ac) = Val(4,d)
70 W(1,Ac) = Val(1,d)
71 W(2,Ac) = Val(5,d)
72 W(3,Ac) = Val(9,d)
77 W(1,Ac) = Val(1,d)
78 W(2,Ac) = Val(6,d)
79 W(3,Ac) = Val(11,d)
80 W(4,Ac) = Val(16,d)
86 W(i,Ac) = Val(i*dof-dof+i,d)
91 CALL COMMUV(dof, nNo, commu, cS, W)
96 IF (W(i,Ac) .EQ. 0D0) THEN
97 W(i,Ac) = 1D0
103 W = 1D0/SQRT(ABS(W))
110 W(1:i,Ac) = W(1:i,Ac)*face(faIn)%val(1:i,a)
120 Val(1,a:b) = Val(1,a:b)*W(1,Ac)
126 Val(1:2,a:b) = Val(1:2,a:b)*W(1,Ac)
127 Val(3:4,a:b) = Val(3:4,a:b)*W(2,Ac)
133 Val(1:3,a:b) = Val(1:3,a:b)*W(1,Ac)
134 Val(4:6,a:b) = Val(4:6,a:b)*W(2,Ac)
135 Val(7:9,a:b) = Val(7:9,a:b)*W(3,Ac)
141 Val(1:4,a:b) = Val(1:4,a:b)*W(1,Ac)
142 Val(5:8,a:b) = Val(5:8,a:b)*W(2,Ac)
143 Val(9:12,a:b) = Val(9:12,a:b)*W(3,Ac)
144 Val(13:16,a:b) = Val(13:16,a:b)*W(4,Ac)
152 Val(j:i*dof,a:b) = Val(j:i*dof,a:b)*W(i,Ac)
156 R = W*R
162 Val(1,i) = Val(1,i)*W(1,a)
169 Val(1:3:2,i) = Val(1:3:2,i)*W(1,a)
170 Val(2:4:2,i) = Val(2:4:2,i)*W(2,a)
177 Val(1:7:3,i) = Val(1:7:3,i)*W(1,a)
178 Val(2:8:3,i) = Val(2:8:3,i)*W(2,a)
179 Val(3:9:3,i) = Val(3:9:3,i)*W(3,a)
186 Val(1:13:4,i) = Val(1:13:4,i)*W(1,a)
187 Val(2:14:4,i) = Val(2:14:4,i)*W(2,a)
188 Val(3:15:4,i) = Val(3:15:4,i)*W(3,a)
189 Val(4:16:4,i) = Val(4:16:4,i)*W(4,a)
198 Val(b:j:dof,i) = Val(b:j:dof,i)*W(b,a)
217 face(faIn)%valM(i,a) = face(faIn)%val(i,a)*W(i,Ac)