Searched defs:fillsparseI (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | fillsparse.f | 1 subroutine fillsparseI( iens, xKebe, lhsK, subroutine
8 real*8 xKebe(npro,9,nshl,nshl), xGoC(npro,4,nshl,nshl)
9 integer ien(npro,nshl), col(nshg+1), row(nshg*nnz)
10 real*8 lhsK(9,nnz_tot), lhsP(4,nnz_tot)
12 integer aa, b, c, e, i, k, n local
14 integer sparseloc
16 integer iens(npro,nshl)
|