| /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
60 KU(1,i) = KU(1,i) + K(1,j)*U(1,colPtr(j))
66 col = colPtr(j)
74 col = colPtr(j)
86 col = colPtr(j)
100 col = colPtr(j)
117 SUBROUTINE SPARMULVS(dof, nNo, nnz, commu, cS, rowPtr, colPtr, argument
125 INTEGER, INTENT(IN) :: rowPtr(2,nNo), colPtr(nnz) local
136 KU(i) = KU(i) + K(1,j)*U(1,colPtr(j))
[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 | 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),
80 lhs%colPtr(i) = colPtr(i)
86 a = colPtr(i)
196 lhs%colPtr(i) = lhs%map(colPtr(i))
201 a = lhs%colPtr(i)
299 DEALLOCATE (lhs%colPtr, lhs%rowPtr, lhs%diagPtr, lhs%map, lhs%cS,
308 2 rowPtr, colPtr, nFaces) argument
315 INTEGER, INTENT(IN) :: gNodes(nNo), rowPtr(nNo+1), colPtr(nnz) local
[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 | 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 | PRECOND.f | 42 2 rowPtr, colPtr, diagPtr, Val, R, W) argument
50 INTEGER, INTENT(IN) :: rowPtr(2,nNo), colPtr(nnz), diagPtr(nNo) local
161 a = colPtr(i)
168 a = colPtr(i)
176 a = colPtr(i)
185 a = colPtr(i)
195 a = colPtr(i)
|
| 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
59 2 colPtr(nnz) local
|
| H A D | svLS_API_c.h | 47 …mmuType *commu, int *gnNo, int *nNo, int *nnz, int *gNodes, int *rowPtr, int *colPtr, int *nFaces);
|
| H A D | svLS_API.h | 52 2 gNodes, rowPtr, colPtr, nFaces)
58 2 colPtr(nnz)
|
| H A D | svLS_STRUCT.h | 132 INTEGER, ALLOCATABLE :: colPtr(:)
|