Calculate residual entropy given volume and temperature.
eos = PengRobinson76(Tc, Pc, w)
n = [1.0_pr, 1.0_pr]
T = 300.0_pr
V = 1.0_pr
call eos%entropy_residual_vt(&
n, V, T, Sr=Sr, SrV=SrV, SrT=SrT, Srn=Srn &
)
| 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) | :: | V |
Volume [L] |
||
| real(kind=pr), | intent(in) | :: | T |
Temperature [K] |
||
| real(kind=pr), | intent(out), | optional | :: | Sr |
Entropy [bar L / K] |
|
| real(kind=pr), | intent(out), | optional | :: | SrV |
|
|
| real(kind=pr), | intent(out), | optional | :: | SrT |
|
|
| real(kind=pr), | intent(out), | optional | :: | Srn(size(n)) |
|
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=pr), | private | :: | Ar | ||||
| real(kind=pr), | private | :: | ArT | ||||
| real(kind=pr), | private | :: | ArT2 | ||||
| real(kind=pr), | private | :: | ArTV | ||||
| real(kind=pr), | private | :: | ArTn(size(n)) |