Searched defs:DefaultUpdateForceC (Results 1 – 1 of 1) sorted by relevance
| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/ |
| H A D | DefUtils.F90 | 3801 SUBROUTINE DefaultUpdateForceC( FC, UElement, USolver ) subroutine
3803 COMPLEX(KIND=dp) :: FC(:)
3804 TYPE(Solver_t), OPTIONAL, TARGET :: USolver
3805 TYPE(Element_t), OPTIONAL, TARGET :: UElement
3807 TYPE(Solver_t), POINTER :: Solver
3808 TYPE(Variable_t), POINTER :: x local
3809 TYPE(Element_t), POINTER :: Element, P1, P2
3811 REAL(KIND=dp), ALLOCATABLE :: F(:)
3813 INTEGER :: i,n,DOFs
3814 INTEGER, POINTER :: Indexes(:)
|