solve_system Function

public function solve_system(a, b) result(x)

Uses

  • proc~~solve_system~~UsesGraph proc~solve_system solve_system iso_fortran_env iso_fortran_env proc~solve_system->iso_fortran_env

Solve a linear sytem AX = b

Arguments

Type IntentOptional Attributes Name
real(kind=pr), intent(in) :: a(size(b),size(b))
real(kind=pr), intent(in) :: b(:)

Return Value real(kind=pr), (size(b))


Calls

proc~~solve_system~~CallsGraph proc~solve_system solve_system none~dgesv dgesv proc~solve_system->none~dgesv

Called by

proc~~solve_system~~CalledByGraph proc~solve_system solve_system proc~binary_llv_from_cep binary_llv_from_cep proc~binary_llv_from_cep->proc~solve_system proc~three_phase_line_f_solve three_phase_line_F_solve proc~binary_llv_from_cep->proc~three_phase_line_f_solve proc~continuation continuation proc~continuation->proc~solve_system proc~full_newton full_newton proc~continuation->proc~full_newton proc~create_generalized_isoz_line create_generalized_isoz_line proc~create_generalized_isoz_line->proc~solve_system proc~solve_generalized_point solve_generalized_point proc~create_generalized_isoz_line->proc~solve_generalized_point proc~critical_line critical_line proc~critical_line->proc~solve_system proc~look_for_cep look_for_cep proc~critical_line->proc~look_for_cep proc~critical_point critical_point proc~critical_point->proc~solve_system proc~full_newton->proc~solve_system proc~intersects intersects proc~intersects->proc~solve_system proc~look_for_cep->proc~solve_system proc~newton newton proc~newton->proc~solve_system proc~newton_solve newton_solve proc~newton_solve->proc~solve_system proc~pure_saturation_line pure_saturation_line proc~pure_saturation_line->proc~solve_system proc~solve_point~6 solve_point proc~pure_saturation_line->proc~solve_point~6 proc~solve_generalized_point->proc~solve_system proc~solve_mp_flash_point solve_mp_flash_point proc~solve_mp_flash_point->proc~solve_system proc~solve_point PXEnvelMP%solve_point proc~solve_point->proc~solve_system proc~solve_point~2 solve_point proc~solve_point~2->proc~solve_system proc~solve_point~4 PTEnvelMP%solve_point proc~solve_point~4->proc~solve_system proc~solve_point~5 solve_point proc~solve_point~5->proc~solve_system proc~solve_point~6->proc~solve_system proc~solve_point~7 TXEnvelMP%solve_point proc~solve_point~7->proc~solve_system proc~solve_vxvyt solve_VxVyT proc~solve_vxvyt->proc~solve_system proc~three_phase_line_f_solve->proc~solve_system proc~update_specification update_specification proc~update_specification->proc~solve_system proc~update_specification~2 update_specification proc~update_specification~2->proc~solve_system proc~update_specification~3 update_specification proc~update_specification~3->proc~solve_system proc~update_specification~4 update_specification proc~update_specification~4->proc~solve_system proc~update_specification~5 update_specification proc~update_specification~5->proc~solve_system proc~get_critical_constants get_critical_constants proc~get_critical_constants->proc~critical_point proc~homotopy homotopy proc~homotopy->proc~newton proc~intersect_one_line intersect_one_line proc~intersect_one_line->proc~intersects proc~pt_envelope pt_envelope proc~pt_envelope->proc~solve_point~4 proc~pt_envelope->proc~update_specification~3 proc~pt_envelope_2ph pt_envelope_2ph proc~pt_envelope_2ph->proc~continuation proc~pt_envelope_3ph pt_envelope_3ph proc~pt_envelope_3ph->proc~solve_point~5 proc~pt_envelope_3ph->proc~update_specification~4 proc~pt_mp_flash pt_mp_flash proc~pt_mp_flash->proc~solve_mp_flash_point proc~px_envelope px_envelope proc~px_envelope->proc~solve_point proc~px_envelope->proc~update_specification proc~px_envelope_2ph px_envelope_2ph proc~px_envelope_2ph->proc~continuation proc~px_envelope_3ph px_envelope_3ph proc~px_envelope_3ph->proc~solve_point~2 proc~px_envelope_3ph->proc~update_specification~2 proc~refit_rkpr_k refit_rkpr_k proc~refit_rkpr_k->proc~pure_saturation_line proc~solve_tp solve_TP proc~solve_tp->proc~newton proc~tx_envelope tx_envelope proc~tx_envelope->proc~solve_point~7 proc~tx_envelope->proc~update_specification~5 proc~tx_envelope_2ph tx_envelope_2ph proc~tx_envelope_2ph->proc~continuation proc~find_hpl find_hpl proc~find_hpl->proc~pt_envelope_2ph proc~init_pcsaft init_pcsaft proc~init_pcsaft->proc~get_critical_constants proc~rkpr RKPR proc~rkpr->proc~refit_rkpr_k proc~saturation_pressure saturation_pressure proc~saturation_pressure->proc~solve_tp proc~saturation_temperature saturation_temperature proc~saturation_temperature->proc~solve_tp

Variables

Type Visibility Attributes Name Initial
real(kind=dp), public :: a_lapack(size(b),size(b))
real(kind=dp), public :: b_lapack(size(b))
integer, public, parameter :: dp = selected_real_kind(15)
integer, public :: info
integer, public :: ipiv(size(b))
integer, public :: lda
integer, public :: ldb
integer, public :: n
integer, public :: nrhs

Interfaces

interface

  • subroutine dgesv(n, nrhs, a, lda, ipiv, b, ldb, info)

    Arguments

    Type IntentOptional Attributes Name
    integer :: n
    integer :: nrhs
    real(kind=dp) :: a(n,n)
    integer :: lda
    integer :: ipiv(n)
    real(kind=dp) :: b(n)
    integer :: ldb
    integer :: info