construct_type_solver_dense_lu Module Function

module function construct_type_solver_dense_lu(N) result(structure)

Arguments

Type IntentOptional Attributes Name
integer(kind=int32), intent(in) :: N

Return Value class(abst_solver), allocatable


Calls

proc~~construct_type_solver_dense_lu~~CallsGraph proc~construct_type_solver_dense_lu construct_type_solver_dense_lu ipiv ipiv proc~construct_type_solver_dense_lu->ipiv

Source Code

    module function construct_type_solver_dense_lu(N) result(structure)
        implicit none
        integer(int32), intent(in) :: N
        class(abst_solver), allocatable :: structure

        allocate (type_solver_dense_lu :: structure)
        select type (this => structure)
        type is (type_solver_dense_lu)
            this%N = transfer(N, this%N)
            allocate (this%IPIV(this%N))
        end select

    end function construct_type_solver_dense_lu