Lines Matching refs:Val
42 2 rowPtr, colPtr, diagPtr, Val, R, W) argument
51 REAL*8, INTENT(INOUT) :: Val(dof*dof,nnz), R(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)
98 Val(i*dof-dof+i,d) = 1D0
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)
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)
208 IF (Val(b,i) .EQ. 0D0) Val(b,i) = 1D0