from_ptr_arr Function

public function from_ptr_arr(ptr_arr) result(arr)

Arguments

Type IntentOptional Attributes Name
type(dbl_pointer_t), intent(inout) :: ptr_arr(:)

Return Value real(kind=dp), allocatable, (:)


Called by

proc~~from_ptr_arr~~CalledByGraph proc~from_ptr_arr from_ptr_arr proc~pardiso_fact_solve Pardiso_fact_solve proc~pardiso_fact_solve->proc~from_ptr_arr proc~main_loop main_loop proc~main_loop->proc~pardiso_fact_solve program~reims_p reims_p program~reims_p->proc~main_loop

Source Code

function from_ptr_arr(ptr_arr) result(arr)
    type(dbl_pointer_t), intent(inout) :: ptr_arr(:)
    real(dp), allocatable :: arr(:)
    integer :: i

    allocate(arr(size(ptr_arr)))
    do i = 1,size(ptr_arr)
        arr(i) = ptr_arr(i)%p
    enddo
end function from_ptr_arr