EXCESS_GIBBS_D_B Subroutine

public subroutine EXCESS_GIBBS_D_B(model, n, nb, nd, ndb, t, tb, td, tdb, ge, geb, ged, gedb)

Type Bound

NRTL

Arguments

Type IntentOptional Attributes Name
class(NRTL) :: model
real(kind=pr), intent(in) :: n(:)
real(kind=pr) :: nb(:)
real(kind=pr), intent(in) :: nd(:)
real(kind=pr) :: ndb(:)
real(kind=pr), intent(in) :: t
real(kind=pr) :: tb
real(kind=pr), intent(in) :: td
real(kind=pr) :: tdb
real(kind=pr) :: ge
real(kind=pr) :: geb
real(kind=pr) :: ged
real(kind=pr) :: gedb

Variables

Type Visibility Attributes Name Initial
real(kind=pr), public :: a(size(n),size(n))
integer, public :: ad_to
real(kind=pr), public, dimension(size(n)) :: arg1
integer, public :: arg10
real(kind=pr), public, dimension(size(n)) :: arg1b
real(kind=pr), public, dimension(size(n)) :: arg1d
real(kind=pr), public, dimension(size(n)) :: arg1db
real(kind=pr), public, dimension(size(n)) :: arg2
real(kind=pr), public, dimension(size(n)) :: arg2b
real(kind=pr), public, dimension(size(n)) :: arg2d
real(kind=pr), public, dimension(size(n)) :: arg2db
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 :: gb(size(n),size(n))
real(kind=pr), public :: gd(size(n),size(n))
real(kind=pr), public :: gdb(size(n),size(n))
integer, public :: i
integer, public :: j
real(kind=pr), public :: result1
real(kind=pr), public :: tau(size(n),size(n))
real(kind=pr), public :: taub(size(n),size(n))
real(kind=pr), public :: taud(size(n),size(n))
real(kind=pr), public :: taudb(size(n),size(n))
real(kind=pr), public :: temp
real(kind=pr), public :: temp0
real(kind=pr), public :: temp0b
real(kind=pr), public :: temp1
real(kind=pr), public :: temp1b
real(kind=pr), public, dimension(size(n, 1)) :: temp2
real(kind=pr), public :: temp3
real(kind=pr), public :: temp4
real(kind=pr), public :: temp5
real(kind=pr), public :: tempb
real(kind=pr), public, dimension(size(n, 1)) :: tempb0
real(kind=pr), public, dimension(size(n, 1)) :: tempb1
real(kind=pr), public :: tempb2
real(kind=pr), public, dimension(size(n)) :: tempb3
real(kind=pr), public :: tempb4
real(kind=pr), public :: tempb5
real(kind=pr), public :: x(size(n))
real(kind=pr), public :: xb(size(n))
real(kind=pr), public :: xd(size(n))
real(kind=pr), public :: xdb(size(n))