Searched defs:hecmw_mat_ass_equation (Results 1 – 1 of 1) sorted by relevance
| /dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/hecmw1/src/solver/matrix/ |
| H A D | hecmw_mat_ass.f90 | 175 subroutine hecmw_mat_ass_equation ( hecMESH, hecMAT ) subroutine
176 type (hecmwST_matrix), target :: hecMAT
177 type (hecmwST_local_mesh) :: hecMESH
179 real(kind=kreal), pointer :: penalty
180 real(kind=kreal) :: ALPHA, a1_2inv, ai, aj, factor
181 integer(kind=kint) :: impc, is, iE, i, j, inod, idof, jnod, jdof
182 logical :: is_internal_i, is_internal_j
|