Searched refs:index_imp (Results 1 – 2 of 2) sorted by relevance
| /dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/fistr1/src/analysis/static/ |
| H A D | solve_LINEQ_iter_contact.f90 | 1642 integer(kind=kint), allocatable :: index_imp(:), item_imp(:) local
1778 allocate(index_imp(0:nr_imp))
1780 call HECMW_RECV_INT(index_imp(0), nr_imp+1, irank, tag, &
1782 if (index_imp(nr_imp) /= nnz_imp(idom)) then !!! ASSERTION
1785 nr_imp, index_imp(nr_imp), nnz_imp(idom)
1790 BT_imp%index(jj) = index_imp(j) - index_imp(j-1)
1792 deallocate(index_imp)
|
| /dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/hecmw1/src/solver/matrix/ |
| H A D | hecmw_local_matrix.f90 | 3016 integer(kind=kint), allocatable :: nnz_imp(:), cnt(:), index_imp(:) local
3078 allocate(index_imp(0:nr))
3080 call HECMW_RECV_INT(index_imp(0:nr), nr+1, irank, tag, &
3082 nnz_imp(idom) = index_imp(nr)
3087 cnt(jj) = index_imp(j) - index_imp(j-1)
3089 deallocate(index_imp)
|