EXCESS_GIBBS_D_D_D Subroutine

public subroutine EXCESS_GIBBS_D_D_D(model, n, nd, t, td1, td0, td, ge, ged1, ged0, ged0d, ged, gedd0, gedd, geddd)

Arguments

Type IntentOptional Attributes Name
class(NRTL) :: model
real(kind=pr), intent(in) :: n(:)
real(kind=pr), intent(in) :: nd(:)
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) :: ge
real(kind=pr), intent(out) :: ged1
real(kind=pr), intent(out) :: ged0
real(kind=pr), intent(out) :: ged0d
real(kind=pr), intent(out) :: ged
real(kind=pr), intent(out) :: gedd0
real(kind=pr), intent(out) :: gedd
real(kind=pr), intent(out) :: geddd

Variables

Type Visibility Attributes Name Initial
real(kind=pr), public :: a(size(n),size(n))
real(kind=pr), public, dimension(size(n)) :: arg1
real(kind=pr), public, dimension(size(n)) :: arg1d
real(kind=pr), public, dimension(size(n)) :: arg1d0
real(kind=pr), public, dimension(size(n)) :: arg1d0d
real(kind=pr), public, dimension(size(n)) :: arg1d1
real(kind=pr), public, dimension(size(n)) :: arg1dd
real(kind=pr), public, dimension(size(n)) :: arg1dd0
real(kind=pr), public, dimension(size(n)) :: arg1ddd
real(kind=pr), public, dimension(size(n)) :: arg2
real(kind=pr), public, dimension(size(n)) :: arg2d
real(kind=pr), public, dimension(size(n)) :: arg2d0
real(kind=pr), public, dimension(size(n)) :: arg2d0d
real(kind=pr), public, dimension(size(n)) :: arg2d1
real(kind=pr), public, dimension(size(n)) :: arg2dd
real(kind=pr), public, dimension(size(n)) :: arg2dd0
real(kind=pr), public, dimension(size(n)) :: arg2ddd
real(kind=pr), public :: b(size(n),size(n))
real(kind=pr), public :: c(size(n),size(n))
real(kind=pr), public :: down
real(kind=pr), public :: g(size(n),size(n))
real(kind=pr), public :: gd(size(n),size(n))
real(kind=pr), public :: gd0(size(n),size(n))
real(kind=pr), public :: gd0d(size(n),size(n))
real(kind=pr), public :: gd1(size(n),size(n))
real(kind=pr), public :: gdd(size(n),size(n))
real(kind=pr), public :: gdd0(size(n),size(n))
real(kind=pr), public :: gddd(size(n),size(n))
integer, public :: i
integer, public :: j
real(kind=pr), public :: tau(size(n),size(n))
real(kind=pr), public :: taud(size(n),size(n))
real(kind=pr), public :: taud0(size(n),size(n))
real(kind=pr), public :: taud0d(size(n),size(n))
real(kind=pr), public :: taud1(size(n),size(n))
real(kind=pr), public :: taudd(size(n),size(n))
real(kind=pr), public :: taudd0(size(n),size(n))
real(kind=pr), public :: tauddd(size(n),size(n))
real(kind=pr), public :: temp
real(kind=pr), public :: temp0
real(kind=pr), public :: temp0d
real(kind=pr), public :: temp0d0
real(kind=pr), public :: temp0dd
real(kind=pr), public :: temp1
real(kind=pr), public :: temp10
real(kind=pr), public :: temp11
real(kind=pr), public :: temp1d
real(kind=pr), public :: temp1d0
real(kind=pr), public :: temp1dd
real(kind=pr), public, dimension(size(b, 1), size(b, 2)) :: temp2
real(kind=pr), public, dimension(size(b, 1), size(b, 2)) :: temp2d
real(kind=pr), public, dimension(size(n), size(n)) :: temp3
real(kind=pr), public, dimension(size(n), size(n)) :: 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, dimension(size(b, 1), size(b, 2)) :: temp7
real(kind=pr), public, dimension(size(n), size(n)) :: temp8
real(kind=pr), public, dimension(size(n)) :: temp9
real(kind=pr), public :: tempd
real(kind=pr), public :: tempd0
real(kind=pr), public :: tempdd
real(kind=pr), public :: x(size(n))
real(kind=pr), public :: xd(size(n))