Lines Matching defs:GetVectorLocalSolution
620 SUBROUTINE GetVectorLocalSolution( x,name,UElement,USolver,tStep, UVariable ) subroutine
621 REAL(KIND=dp) :: x(:,:)
622 CHARACTER(LEN=*), OPTIONAL :: name
623 TYPE(Solver_t), OPTIONAL, TARGET :: USolver
624 TYPE(Element_t), OPTIONAL, TARGET :: UElement
625 TYPE(Variable_t), OPTIONAL, TARGET :: UVariable
626 INTEGER, OPTIONAL :: tStep
628 TYPE(Variable_t), POINTER :: Variable
629 TYPE(Solver_t) , POINTER :: Solver
630 TYPE(Element_t), POINTER :: Element
632 INTEGER :: i, j, k, l, n local
633 INTEGER, POINTER :: Indexes(:)
634 REAL(KIND=dp), POINTER :: Values(:)