Searched refs:Ac (Results 1 – 5 of 5) sorted by relevance
| /phasta/svLS/ |
| H A D | PRECOND.f | 54 INTEGER i, j, a, b, d, Ac, faIn local
58 DO Ac=1, nNo
59 W(1,Ac) = Val(1,diagPtr(Ac))
62 DO Ac=1, nNo
63 d = diagPtr(Ac)
64 W(1,Ac) = Val(1,d)
65 W(2,Ac) = Val(4,d)
68 DO Ac=1, nNo
69 d = diagPtr(Ac)
70 W(1,Ac) = Val(1,d)
[all …]
|
| H A D | LHS.f | 52 INTEGER i, j, k, a, Ac, ai, s, e, nTasks, tF, maxnNo, ierr, local
82 DO Ac=1, nNo
83 s = rowPtr(Ac)
84 e = rowPtr(Ac+1) - 1
87 IF (Ac .EQ. a) THEN
88 lhs%diagPtr(Ac) = i
93 lhs%rowPtr(1,Ac) = s
94 lhs%rowPtr(2,Ac) = e
96 lhs%map(Ac) = Ac
121 Ac = gNodes(a)
[all …]
|
| H A D | ADDBCMUL.f | 52 INTEGER faIn, i, a, Ac, nsd local
74 Ac = face(faIn)%glob(a)
76 v(i,Ac) = face(faIn)%valM(i,a)
81 Ac = face(faIn)%glob(a)
83 Y(i,Ac) = Y(i,Ac) + v(i,Ac)*S
89 Ac = face(faIn)%glob(a)
91 S = S + face(faIn)%valM(i,a)*X(i,Ac)
96 Ac = face(faIn)%glob(a)
98 Y(i,Ac) = Y(i,Ac) + face(faIn)%valM(i,a)*S
|
| H A D | BC.f | 52 INTEGER a, Ac, i local
78 Ac = lhs%map(gNodes(a))
79 lhs%face(faIn)%glob(a) = Ac
93 CALL MPI_ALLREDUCE(a, Ac, 1, mpint,
95 IF (Ac .GT. 1) THEN
100 Ac = lhs%face(faIn)%glob(a)
101 v(:,Ac) = lhs%face(faIn)%val(:,a)
106 Ac = lhs%face(faIn)%glob(a)
107 lhs%face(faIn)%val(:,a) = v(:,Ac)
|
| H A D | NSSOLVER.f | 268 INTEGER faIn, i, a, Ac local
278 Ac = face(faIn)%glob(a)
280 v(i,Ac) = face(faIn)%valM(i,a)
287 Ac = face(faIn)%glob(a)
|