| /phasta/svLS/ |
| H A D | SPARMUL.f | 41 SUBROUTINE SPARMULVV(dof, nNo, nnz, commu, cS, rowPtr, colPtr, argument
49 INTEGER, INTENT(IN) :: rowPtr(2,nNo), colPtr(nnz) local
59 DO j=rowPtr(1,i), rowPtr(2,i)
65 DO j=rowPtr(1,i), rowPtr(2,i)
73 DO j=rowPtr(1,i), rowPtr(2,i)
85 DO j=rowPtr(1,i), rowPtr(2,i)
99 DO j=rowPtr(1,i), rowPtr(2,i)
117 SUBROUTINE SPARMULVS(dof, nNo, nnz, commu, cS, rowPtr, colPtr, argument
125 INTEGER, INTENT(IN) :: rowPtr(2,nNo), colPtr(nnz) local
135 DO j=rowPtr(1,i), rowPtr(2,i)
[all …]
|
| H A D | PRECOND.f | 42 2 rowPtr, colPtr, diagPtr, Val, R, W) argument
50 INTEGER, INTENT(IN) :: rowPtr(2,nNo), colPtr(nnz), diagPtr(nNo) local
118 a = rowPtr(1,Ac)
119 b = rowPtr(2,Ac)
124 a = rowPtr(1,Ac)
125 b = rowPtr(2,Ac)
131 a = rowPtr(1,Ac)
132 b = rowPtr(2,Ac)
139 a = rowPtr(1,Ac)
140 b = rowPtr(2,Ac)
[all …]
|
| H A D | LHS.f | 42 2 rowPtr, colPtr, nFaces) argument
49 INTEGER, INTENT(IN) :: gNodes(nNo), rowPtr(nNo+1), colPtr(nnz) local
75 ALLOCATE (lhs%colPtr(nnz), lhs%rowPtr(2,nNo), lhs%diagPtr(nNo),
83 s = rowPtr(Ac)
84 e = rowPtr(Ac+1) - 1
93 lhs%rowPtr(1,Ac) = s
94 lhs%rowPtr(2,Ac) = e
191 lhs%rowPtr(1,Ac) = rowPtr(a)
192 lhs%rowPtr(2,Ac) = rowPtr(a+1) - 1
200 DO i=lhs%rowPtr(1,Ac), lhs%rowPtr(2,Ac)
[all …]
|
| H A D | CGRAD.f | 42 2 ls, rowPtr, colPtr, D, G, L, R) argument
51 INTEGER, INTENT(IN) :: rowPtr(2,nNo), colPtr(nnz) local
81 CALL SPARMULSV(dof, nNo, nnz, commu, cS, rowPtr, colPtr,
90 CALL SPARMULVS(dof, nNo, nnz, commu, cS, rowPtr, colPtr,
93 CALL SPARMULSS( nNo, nnz, commu, cS, rowPtr, colPtr,
118 2 rowPtr, colPtr, K, R) argument
126 INTEGER, INTENT(IN) :: rowPtr(2,nNo), colPtr(nnz) local
153 CALL SPARMULVV(dof, nNo, nnz, commu, cS, rowPtr, colPtr,
177 2 rowPtr, colPtr, K, R) argument
185 INTEGER, INTENT(IN) :: rowPtr(2,nNo), colPtr(nnz) local
[all …]
|
| H A D | NSSOLVER.f | 42 2 cS, face, ls, rowPtr, colPtr, Val, Ri) argument
52 INTEGER, INTENT(IN) :: rowPtr(2,nNo), colPtr(nnz) local
96 2 ls%GM, rowPtr, colPtr, mK, Rm, U(:,:,i))
99 2 rowPtr, colPtr, mD, U(:,:,i), P(:,i))
103 2 ls%CG, rowPtr, colPtr, Gt, mG, mL, P(:,i))
106 2 rowPtr, colPtr, mG, P(:,i), MU(:,:,iB))
110 2 ls%GM, rowPtr, colPtr, mK, MU(:,:,iBB), U(:,:,i))
113 2 rowPtr, colPtr, mK, U(:,:,i), MU(:,:,iBB))
119 2 rowPtr, colPtr, mL, P(:,i), MP(:,iB))
122 2 rowPtr, colPtr, mD, U(:,:,i), MP(:,iBB))
[all …]
|
| H A D | SOLVE.f | 91 2 lhs%face, lhs%rowPtr, lhs%colPtr, lhs%diagPtr, Val, R, W)
96 2 lhs%commu, lhs%cS, lhs%face, ls, lhs%rowPtr, lhs%colPtr,
100 2 lhs%cS, lhs%face, ls%RI, lhs%rowPtr, lhs%colPtr, Val, R)
104 2 ls%RI, lhs%rowPtr, lhs%colPtr, Val, R)
107 2 ls%RI, lhs%rowPtr, lhs%colPtr, Val, R)
|
| H A D | GMRES.f | 42 2 ls, rowPtr, colPtr, Val, R, X) argument
51 INTEGER, INTENT(IN) :: rowPtr(2,nNo), colPtr(nnz) local
73 CALL SPARMULVV(dof, nNo, nnz, commu, cS, rowPtr, colPtr,
103 CALL SPARMULVV(dof, nNo, nnz, commu, cS, rowPtr, colPtr,
164 2 ls, rowPtr, colPtr, Val, R) argument
173 INTEGER, INTENT(IN) :: rowPtr(2,nNo), colPtr(nnz) local
203 CALL SPARMULVV(dof, nNo, nnz, commu, cS, rowPtr, colPtr,
213 CALL SPARMULVV(dof, nNo, nnz, commu, cS, rowPtr, colPtr,
|
| H A D | dummy_prototypes.f | 53 2 gNodes, rowPtr, colPtr, nFaces) argument
58 INTEGER, INTENT(IN) :: gNodes(nNo), rowPtr(nNo+1), local
|
| H A D | svLS_API_c.h | 47 … svLS_commuType *commu, int *gnNo, int *nNo, int *nnz, int *gNodes, int *rowPtr, int *colPtr, int …
|
| H A D | svLS_API.h | 52 2 gNodes, rowPtr, colPtr, nFaces)
57 INTEGER, INTENT(IN) :: gNodes(nNo), rowPtr(nNo+1),
|
| H A D | svLS_STRUCT.h | 134 INTEGER, ALLOCATABLE :: rowPtr(:,:)
|