ROUTINE FOR CALCULATION OF VOLUME, GIVEN PRESSURE
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | ITYP |
TYPE OF ROOT DESIRED (-1 vapor, 1 liquid, 0 lower Gibbs energy phase) |
||
| integer, | intent(in) | :: | nc |
NO. OF COMPONENTS |
||
| integer, | intent(in) | :: | ntemp |
1 if T-derivatives are required |
||
| real(kind=pr), | intent(in) | :: | rn(nc) |
FEED MOELS |
||
| real(kind=pr), | intent(in) | :: | T |
TEMPERATURE |
||
| real(kind=pr), | intent(in) | :: | P |
PRESURE |
||
| real(kind=pr), | intent(out) | :: | V |
VOLUME |
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=pr), | public | :: | AT | ||||
| real(kind=pr), | public | :: | AVAP | ||||
| real(kind=pr), | public | :: | Ar | ||||
| real(kind=pr), | public | :: | ArTV | ||||
| real(kind=pr), | public | :: | ArTn(nc) | ||||
| real(kind=pr), | public | :: | ArV | ||||
| real(kind=pr), | public | :: | ArV2 | ||||
| real(kind=pr), | public | :: | ArVn(nc) | ||||
| real(kind=pr), | public | :: | Arn(nc) | ||||
| real(kind=pr), | public | :: | Arn2(nc,nc) | ||||
| real(kind=pr), | public | :: | B | ||||
| real(kind=pr), | public | :: | CPV | ||||
| logical, | public | :: | FIRST_RUN | ||||
| real(kind=pr), | public | :: | S3R | ||||
| real(kind=pr), | public | :: | VVAP | ||||
| real(kind=pr), | public | :: | ZETA | ||||
| real(kind=pr), | public | :: | ZETMAX | ||||
| real(kind=pr), | public | :: | ZETMIN | ||||
| real(kind=pr), | public | :: | del | ||||
| real(kind=pr), | public | :: | der | ||||
| integer, | public | :: | iter | ||||
| integer, | public | :: | nder | ||||
| real(kind=pr), | public | :: | pcalc | ||||
| real(kind=pr), | public | :: | totn |