| /phasta/svLS/ |
| H A D | PRECOND.f | 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)
[all …]
|
| H A D | SOLVE.f | 41 SUBROUTINE svLS_SOLVE (lhs, ls, dof, Ri, Val, incL, res) argument
49 REAL*8, INTENT(INOUT) :: Val(dof*dof,lhs%nnz) local
91 2 lhs%face, lhs%rowPtr, lhs%colPtr, lhs%diagPtr, Val, R, W)
97 3 Val, R)
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 | dummy_prototypes.f | 84 2 gNodes, Val) argument
90 REAL*8, INTENT(IN), OPTIONAL :: Val(dof,nNo) local
99 SUBROUTINE svLS_SOLVE (lhs, ls, dof, Ri, Val, res) argument
105 REAL*8, INTENT(IN) :: Val(dof*dof,lhs%nnz) local
|
| H A D | BC.f | 42 2 Val) argument
50 REAL*8, INTENT(IN), OPTIONAL :: Val(dof,nNo) local
82 IF (PRESENT(Val)) THEN
84 lhs%face(faIn)%val(:,a) = Val(:,a)
|
| H A D | svLS_API_c.h | 53 … svls_bc_create_(void *lhs, int *faIn, int *nNo, int *dof, int *BC_type, int *gNodes, double *Val);
56 void svls_solve_(void *lhs, svLS_lsType *ls, int *dof, double *Ri, double *Val, int *incL, double *…
|
| H A D | GMRES.f | 42 2 ls, rowPtr, colPtr, Val, R, X) argument
52 REAL*8, INTENT(IN) :: Val(dof*dof,nnz), R(dof,nNo) local
74 2 Val, X, u(:,:,1))
104 2 Val, u(:,:,i), u(:,:,i+1))
164 2 ls, rowPtr, colPtr, Val, R) argument
174 REAL*8, INTENT(IN) :: Val(dof*dof,nnz) local
204 2 Val, X, u(:,:,1))
214 2 Val, u(:,:,i), u(:,:,i+1))
|
| H A D | svLS_API.h | 81 2 gNodes, Val)
87 REAL*8, INTENT(IN), OPTIONAL :: Val(dof,nNo)
95 SUBROUTINE svLS_SOLVE (lhs, ls, dof, Ri, Val, incL, res)
101 REAL*8, INTENT(IN) :: Val(dof*dof,lhs%nnz)
|
| H A D | NSSOLVER.f | 42 2 cS, face, ls, rowPtr, colPtr, Val, Ri) argument
53 REAL*8, INTENT(IN) :: Val(dof*dof,nnz) local
204 tmp = Val(:,i)
221 tmp = Val(:,i)
|