EXCESS_GIBBS Subroutine

public subroutine EXCESS_GIBBS(model, n, t, ge)

Type Bound

NRTL

Arguments

Type IntentOptional Attributes Name
class(NRTL) :: model
real(kind=pr), intent(in) :: n(:)
real(kind=pr), intent(in) :: t
real(kind=pr), intent(out) :: ge

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)) :: arg2
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))
integer, public :: i
integer, public :: j
real(kind=pr), public :: tau(size(n),size(n))
real(kind=pr), public :: x(size(n))