Searched defs:make_BTmat (Results 1 – 1 of 1) sorted by relevance
| /dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/fistr1/src/analysis/static/ |
| H A D | solve_LINEQ_iter_contact.f90 | 639 subroutine make_BTmat(hecMAT, fstrMAT, iw2, wSL, BTmat, fg_paracon) subroutine
641 type (hecmwST_matrix ), intent(inout) :: hecMAT
642 …type (fstrST_matrix_contact_lagrange), intent(inout) :: fstrMAT !< type fstrST_matrix_contact_lagr…
643 integer, intent(in) :: iw2(:)
644 real(kind=kreal), intent(in) :: wSL(:)
645 type (hecmwST_local_matrix), intent(out) :: BTmat
646 logical, intent(in) :: fg_paracon
647 type (hecmwST_local_matrix) :: Tmat
648 integer :: ndof, n, i, nnz, l, js, je, j, k, jdof, kk, jj local
649 real(kind=kreal) :: factor
|