Searched refs:nnz_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 | 1641 integer(kind=kint),allocatable :: nnz_imp(:) local
1764 allocate(nnz_imp(hecMESH%n_neighbor_pe))
1771 nnz_imp(idom) = recvbuf(2)
1777 BT_imp%nnz = BT_imp%nnz + nnz_imp(idom)
1782 if (index_imp(nr_imp) /= nnz_imp(idom)) then !!! ASSERTION
1785 nr_imp, index_imp(nr_imp), nnz_imp(idom)
1819 allocate(item_imp(nnz_imp(idom)))
1821 call HECMW_Recv_INT(item_imp, nnz_imp(idom), &
1823 allocate(val_imp(nnz_imp(idom) * ndof2))
1825 call HECMW_Recv_R(val_imp, nnz_imp(idom) * ndof2, &
[all …]
|
| /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
3065 allocate(nnz_imp(nnb))
3075 nnz_imp(idom) = 0
3082 nnz_imp(idom) = index_imp(nr)
3093 call make_index(nnb, nnz_imp, imp_cols_index)
3094 deallocate(nnz_imp)
|