private subroutine entropy_excess(eos, n, P, T, root_type, Se)
Calculate excess entropy given pressure and temperature.
Examples
```fortran ! eos = PengRobinson76(Tc, Pc, w)
n = [1.0_pr, 1.0_pr] ! T = 300.0_pr ! P = 1.0_pr
call eos%entropy_excess(n, P, T, root_type=”stable”, Se=Se)
```
Type Bound
ArModel
Arguments
Type
Intent Optional Attributes
Name
class(ArModel ),
intent(in)
::
eos
Model
real(kind=pr),
intent(in)
::
n (:)
Moles number vector
real(kind=pr),
intent(in)
::
P
Pressure [bar]
real(kind=pr),
intent(in)
::
T
Temperature [K]
character(len=*),
intent(in)
::
root_type
Desired root-type to solve. Options are:
["liquid", "vapor", "stable"]
real(kind=pr),
intent(out)
::
Se
Excess entropy [bar L K^-1]
proc~~entropy_excess~~CallsGraph
proc~entropy_excess
ArModel%entropy_excess
proc~ln_activity_coefficient
ArModel%ln_activity_coefficient
proc~entropy_excess->proc~ln_activity_coefficient
proc~lnphi_pt
ArModel%lnphi_pt
proc~ln_activity_coefficient->proc~lnphi_pt
proc~lnphi_vt
ArModel%lnphi_vt
proc~lnphi_pt->proc~lnphi_vt
proc~volume~2
ArModel%volume
proc~lnphi_pt->proc~volume~2
residual_helmholtz
residual_helmholtz
proc~lnphi_vt->residual_helmholtz
get_v0
get_v0
proc~volume~2->get_v0
interface~newton
newton
proc~volume~2->interface~newton
proc~newton_1d
newton_1d
interface~newton->proc~newton_1d
Nodes of different colours represent the following:
Graph Key
Subroutine
Subroutine
Function
Function
Interface
Interface
Type Bound Procedure
Type Bound Procedure
Unknown Procedure Type
Unknown Procedure Type
Program
Program
This Page's Entity
This Page's Entity
Solid arrows point from a procedure to one which it calls. Dashed
arrows point from an interface to procedures which implement that interface.
This could include the module procedures in a generic interface or the
implementation in a submodule of an interface in a parent module.
Variables
Type
Visibility Attributes
Name
Initial
real(kind=pr),
private
::
dlngammadT (size(n))
real(kind=pr),
private
::
lngamma (size(n))