Searched refs:n_contact_dof (Results 1 – 2 of 2) sorted by relevance
| /dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/fistr1/src/lib/contact/ |
| H A D | fstr_contact_comm.f90 | 40 subroutine fstr_contact_comm_init(conComm, hecMESH, ndof, n_contact_dof, contact_dofs) argument
44 integer(kind=kint), intent(in) :: ndof, n_contact_dof local
60 do ilag = 1, n_contact_dof
98 do ilag = 1, n_contact_dof
|
| /dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/fistr1/src/analysis/static/ |
| H A D | solve_LINEQ_iter_contact.f90 | 138 integer(kind=kint) :: n_contact_dof, n_slave local
178 call make_contact_dof_list(hecMAT, fstrMAT, n_contact_dof, contact_dofs)
182 call fstr_contact_comm_init(conCOMM, hecMESH, ndof, n_contact_dof, contact_dofs)
817 subroutine make_contact_dof_list(hecMAT, fstrMAT, n_contact_dof, contact_dofs) argument
821 integer(kind=kint), intent(out) :: n_contact_dof local
827 n_contact_dof = 0
876 n_contact_dof = icnt
1317 subroutine check_solution2(hecMESH, hecMAT, conMAT, fstrMAT, n_contact_dof, contact_dofs, & argument
1324 integer(kind=kint), intent(in) :: n_contact_dof local
1379 do icon = 1, n_contact_dof
|