get_original_parameters Subroutine

public subroutine get_original_parameters(ids, pures, binaries, components)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ids(:)
type(Gerg2008Pure), intent(out) :: pures(:)
type(Gerg2008Binary), intent(out) :: binaries(:,:)
type(Substances), intent(out) :: components

Calls

proc~~get_original_parameters~~CallsGraph proc~get_original_parameters get_original_parameters proc~original_parameters original_parameters proc~get_original_parameters->proc~original_parameters

Called by

proc~~get_original_parameters~~CalledByGraph proc~get_original_parameters get_original_parameters proc~gerg_2008 gerg_2008 proc~gerg_2008->proc~get_original_parameters

Variables

Type Visibility Attributes Name Initial
real(kind=pr), public :: Pc(size(ids))
real(kind=pr), public :: Tc(size(ids))
real(kind=pr), public :: Vc(size(ids))
integer, public :: i
integer, public :: ikexp
integer, public :: ikpol
integer, public :: j
integer, public :: nc
real(kind=pr), public :: w(size(ids))