Searched defs:mark_slave_dof (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 | 1496 subroutine mark_slave_dof(BTmat, mark, n_slave, slaves) subroutine
1498 type (hecmwST_local_matrix), intent(in) :: BTmat
1499 integer(kind=kint), intent(out) :: mark(:)
1500 integer(kind=kint), intent(out) :: n_slave
1501 integer(kind=kint), allocatable, intent(out) :: slaves(:)
1502 integer(kind=kint) :: ndof, ndof2, irow, js, je, j, jcol, idof, jdof, i
|