AR_D_D_D Subroutine

public subroutine AR_D_D_D(model, n, nd, v, vd1, vd0, vd, t, td1, td0, td, arval, arvald1, arvald0, arvald0d, arvald, arvaldd0, arvaldd, arvalddd)

Arguments

Type IntentOptional Attributes Name
class(PCSAFT), intent(in) :: model
real(kind=pr), intent(in) :: n(:)
real(kind=pr), intent(in) :: nd(:)
real(kind=pr), intent(in) :: v
real(kind=pr), intent(in) :: vd1
real(kind=pr), intent(in) :: vd0
real(kind=pr), intent(in) :: vd
real(kind=pr), intent(in) :: t
real(kind=pr), intent(in) :: td1
real(kind=pr), intent(in) :: td0
real(kind=pr), intent(in) :: td
real(kind=pr), intent(out) :: arval
real(kind=pr), intent(out) :: arvald1
real(kind=pr), intent(out) :: arvald0
real(kind=pr), intent(out) :: arvald0d
real(kind=pr), intent(out) :: arvald
real(kind=pr), intent(out) :: arvaldd0
real(kind=pr), intent(out) :: arvaldd
real(kind=pr), intent(out) :: arvalddd

Variables

Type Visibility Attributes Name Initial
real(kind=pr), public :: a1_term_disp
real(kind=pr), public :: a1_term_dispd
real(kind=pr), public :: a1_term_dispd0
real(kind=pr), public :: a1_term_dispd0d
real(kind=pr), public :: a1_term_dispd1
real(kind=pr), public :: a1_term_dispdd
real(kind=pr), public :: a1_term_dispdd0
real(kind=pr), public :: a1_term_dispddd
real(kind=pr), public :: a2_term_disp
real(kind=pr), public :: a2_term_dispd
real(kind=pr), public :: a2_term_dispd0
real(kind=pr), public :: a2_term_dispd0d
real(kind=pr), public :: a2_term_dispd1
real(kind=pr), public :: a2_term_dispdd
real(kind=pr), public :: a2_term_dispdd0
real(kind=pr), public :: a2_term_dispddd
real(kind=pr), public :: a_k
real(kind=pr), public :: a_kd
real(kind=pr), public :: ar_chain
real(kind=pr), public :: ar_chaind
real(kind=pr), public :: ar_chaind0
real(kind=pr), public :: ar_chaind0d
real(kind=pr), public :: ar_chaind1
real(kind=pr), public :: ar_chaindd
real(kind=pr), public :: ar_chaindd0
real(kind=pr), public :: ar_chainddd
real(kind=pr), public :: ar_dispersion
real(kind=pr), public :: ar_dispersiond
real(kind=pr), public :: ar_dispersiond0
real(kind=pr), public :: ar_dispersiond0d
real(kind=pr), public :: ar_dispersiond1
real(kind=pr), public :: ar_dispersiondd
real(kind=pr), public :: ar_dispersiondd0
real(kind=pr), public :: ar_dispersionddd
real(kind=pr), public :: ar_hs
real(kind=pr), public :: ar_hsd
real(kind=pr), public :: ar_hsd0
real(kind=pr), public :: ar_hsd0d
real(kind=pr), public :: ar_hsd1
real(kind=pr), public :: ar_hsdd
real(kind=pr), public :: ar_hsdd0
real(kind=pr), public :: ar_hsddd
real(kind=pr), public :: arg1
real(kind=pr), public, DIMENSION(SIZE(n)) :: arg10
real(kind=pr), public, DIMENSION(SIZE(n)) :: arg10d
real(kind=pr), public, DIMENSION(SIZE(n)) :: arg10d0
real(kind=pr), public, DIMENSION(SIZE(n)) :: arg10d0d
real(kind=pr), public, DIMENSION(SIZE(n)) :: arg10d1
real(kind=pr), public, DIMENSION(SIZE(n)) :: arg10dd
real(kind=pr), public, DIMENSION(SIZE(n)) :: arg10dd0
real(kind=pr), public, DIMENSION(SIZE(n)) :: arg10ddd
real(kind=pr), public :: arg1d
real(kind=pr), public :: arg1d0
real(kind=pr), public :: arg1d0d
real(kind=pr), public :: arg1d1
real(kind=pr), public :: arg1dd
real(kind=pr), public :: arg1dd0
real(kind=pr), public :: arg1ddd
real(kind=pr), public :: b_k
real(kind=pr), public :: b_kd
real(kind=pr), public :: c1
real(kind=pr), public :: c1d
real(kind=pr), public :: c1d0
real(kind=pr), public :: c1d0d
real(kind=pr), public :: c1d1
real(kind=pr), public :: c1dd
real(kind=pr), public :: c1dd0
real(kind=pr), public :: c1ddd
real(kind=pr), public :: d(SIZE(n))
real(kind=pr), public :: dd(SIZE(n))
real(kind=pr), public :: dd0(SIZE(n))
real(kind=pr), public :: dd0d(SIZE(n))
real(kind=pr), public :: dd1(SIZE(n))
real(kind=pr), public :: ddd(SIZE(n))
real(kind=pr), public :: ddd0(SIZE(n))
real(kind=pr), public :: dddd(SIZE(n))
real(kind=pr), public :: di_2
real(kind=pr), public :: di_2d
real(kind=pr), public :: di_2d0
real(kind=pr), public :: di_2d0d
real(kind=pr), public :: di_2d1
real(kind=pr), public :: di_2dd
real(kind=pr), public :: di_2dd0
real(kind=pr), public :: di_2ddd
real(kind=pr), public :: eps_ij
real(kind=pr), public :: epsilon_k(SIZE(n))
real(kind=pr), public :: eta
real(kind=pr), public :: etad
real(kind=pr), public :: etad0
real(kind=pr), public :: etad0d
real(kind=pr), public :: etad1
real(kind=pr), public :: etadd
real(kind=pr), public :: etadd0
real(kind=pr), public :: etaddd
real(kind=pr), public :: g_ii
real(kind=pr), public :: g_iid
real(kind=pr), public :: g_iid0
real(kind=pr), public :: g_iid0d
real(kind=pr), public :: g_iid1
real(kind=pr), public :: g_iidd
real(kind=pr), public :: g_iidd0
real(kind=pr), public :: g_iiddd
integer, public :: i
real(kind=pr), public :: i1
real(kind=pr), public :: i1d
real(kind=pr), public :: i1d0
real(kind=pr), public :: i1d0d
real(kind=pr), public :: i1d1
real(kind=pr), public :: i1dd
real(kind=pr), public :: i1dd0
real(kind=pr), public :: i1ddd
real(kind=pr), public :: i2
real(kind=pr), public :: i2d
real(kind=pr), public :: i2d0
real(kind=pr), public :: i2d0d
real(kind=pr), public :: i2d1
real(kind=pr), public :: i2dd
real(kind=pr), public :: i2dd0
real(kind=pr), public :: i2ddd
integer, public :: j
integer, public :: k
real(kind=pr), public :: kij(SIZE(n),SIZE(n))
real(kind=pr), public :: kij_val
real(kind=pr), public :: m(SIZE(n))
real(kind=pr), public :: m2_e2s3
real(kind=pr), public :: m2_e2s3d
real(kind=pr), public :: m2_e2s3d0
real(kind=pr), public :: m2_e2s3d0d
real(kind=pr), public :: m2_e2s3d1
real(kind=pr), public :: m2_e2s3dd
real(kind=pr), public :: m2_e2s3dd0
real(kind=pr), public :: m2_e2s3ddd
real(kind=pr), public :: m2_es3
real(kind=pr), public :: m2_es3d
real(kind=pr), public :: m2_es3d0
real(kind=pr), public :: m2_es3d0d
real(kind=pr), public :: m2_es3d1
real(kind=pr), public :: m2_es3dd
real(kind=pr), public :: m2_es3dd0
real(kind=pr), public :: m2_es3ddd
real(kind=pr), public :: m_ave
real(kind=pr), public :: m_aved
logical, public, DIMENSION(SIZE(n)) :: mask
logical, public, DIMENSION(SIZE(n)) :: mask0
logical, public, DIMENSION(SIZE(n)) :: mask1
logical, public, DIMENSION(SIZE(n)) :: mask2
logical, public, DIMENSION(SIZE(n)) :: mask3
logical, public, DIMENSION(SIZE(n)) :: mask4
logical, public, DIMENSION(SIZE(n)) :: mask5
real(kind=pr), public :: n_tot
real(kind=pr), public :: n_totd
integer, public :: nc
real(kind=pr), public :: result1
real(kind=pr), public :: rho
real(kind=pr), public :: rho_disp
real(kind=pr), public :: rho_dispd
real(kind=pr), public :: rho_dispd0
real(kind=pr), public :: rho_dispd0d
real(kind=pr), public :: rho_dispd1
real(kind=pr), public :: rho_dispdd
real(kind=pr), public :: rho_dispdd0
real(kind=pr), public :: rho_dispddd
real(kind=pr), public :: rhod
real(kind=pr), public :: rhod0
real(kind=pr), public :: rhod0d
real(kind=pr), public :: rhod1
real(kind=pr), public :: rhodd
real(kind=pr), public :: rhodd0
real(kind=pr), public :: rhoddd
real(kind=pr), public :: sig_ij
real(kind=pr), public :: sigma(SIZE(n))
real(kind=pr), public :: temp
real(kind=pr), public, DIMENSION(SIZE(n)) :: temp0
real(kind=pr), public, DIMENSION(SIZE(n)) :: temp0d
real(kind=pr), public, DIMENSION(SIZE(n)) :: temp0d0
real(kind=pr), public, DIMENSION(SIZE(n)) :: temp0dd
real(kind=pr), public :: temp1
real(kind=pr), public :: temp10
real(kind=pr), public :: temp10d
real(kind=pr), public :: temp11
real(kind=pr), public, DIMENSION(SIZE(n)) :: temp12
real(kind=pr), public :: temp13
real(kind=pr), public :: temp14
real(kind=pr), public :: temp15
real(kind=pr), public :: temp16
real(kind=pr), public :: temp17
real(kind=pr), public :: temp18
real(kind=pr), public :: temp19
real(kind=pr), public :: temp1d
real(kind=pr), public :: temp1d0
real(kind=pr), public :: temp1dd
real(kind=pr), public :: temp2
real(kind=pr), public :: temp20
real(kind=pr), public :: temp2d
real(kind=pr), public :: temp2d0
real(kind=pr), public :: temp2dd
real(kind=pr), public :: temp3
real(kind=pr), public :: temp3d
real(kind=pr), public, DIMENSION(SIZE(n)) :: temp4
real(kind=pr), public, DIMENSION(SIZE(n)) :: temp4d
real(kind=pr), public :: temp5
real(kind=pr), public :: temp5d
real(kind=pr), public :: temp6
real(kind=pr), public :: temp6d
real(kind=pr), public :: temp7
real(kind=pr), public :: temp7d
real(kind=pr), public :: temp8
real(kind=pr), public :: temp8d
real(kind=pr), public :: temp9
real(kind=pr), public :: temp9d
real(kind=pr), public, DIMENSION(SIZE(n)) :: tempd
real(kind=pr), public :: tempd0
real(kind=pr), public :: tempd0d
real(kind=pr), public :: tempd0d0
real(kind=pr), public :: tempd0dd
real(kind=pr), public :: tempd1
real(kind=pr), public :: tempd1d
real(kind=pr), public, DIMENSION(SIZE(n)) :: tempd2
real(kind=pr), public, DIMENSION(SIZE(n)) :: tempd2d
real(kind=pr), public :: tempd3
real(kind=pr), public :: tempd3d
real(kind=pr), public :: tempd4
real(kind=pr), public, DIMENSION(SIZE(n)) :: tempd5
real(kind=pr), public :: tempd6
real(kind=pr), public, DIMENSION(SIZE(n)) :: tempdd
real(kind=pr), public, DIMENSION(SIZE(n)) :: tempdd0
real(kind=pr), public, DIMENSION(SIZE(n)) :: tempddd
real(kind=pr), public :: term1_hs
real(kind=pr), public :: term1_hsd
real(kind=pr), public :: term1_hsd0
real(kind=pr), public :: term1_hsd0d
real(kind=pr), public :: term1_hsd1
real(kind=pr), public :: term1_hsdd
real(kind=pr), public :: term1_hsdd0
real(kind=pr), public :: term1_hsddd
real(kind=pr), public :: term2_hs
real(kind=pr), public :: term2_hsd
real(kind=pr), public :: term2_hsd0
real(kind=pr), public :: term2_hsd0d
real(kind=pr), public :: term2_hsd1
real(kind=pr), public :: term2_hsdd
real(kind=pr), public :: term2_hsdd0
real(kind=pr), public :: term2_hsddd
real(kind=pr), public :: term3_hs
real(kind=pr), public :: term3_hsd
real(kind=pr), public :: term3_hsd0
real(kind=pr), public :: term3_hsd0d
real(kind=pr), public :: term3_hsd1
real(kind=pr), public :: term3_hsdd
real(kind=pr), public :: term3_hsdd0
real(kind=pr), public :: term3_hsddd
real(kind=pr), public :: term_disp
real(kind=pr), public :: term_dispd
real(kind=pr), public :: x(SIZE(n))
real(kind=pr), public :: xd(SIZE(n))
real(kind=pr), public :: zetas(0:3)
real(kind=pr), public :: zetasd(0:3)
real(kind=pr), public :: zetasd0(0:3)
real(kind=pr), public :: zetasd0d(0:3)
real(kind=pr), public :: zetasd1(0:3)
real(kind=pr), public :: zetasdd(0:3)
real(kind=pr), public :: zetasdd0(0:3)
real(kind=pr), public :: zetasddd(0:3)