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

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))