260 24 User Performance Curves Subroutine for Pump

25 User Subroutines for

Petroleum Property Methods

Aspen Plus provides several correlations for basic properties, thermodynamic

properties, and equation of state parameters for petroleum characterization.
If these are not sufficient, you can provide your own correlation.
To provide your own correlation:
1 Write a Fortran subroutine to calculate the property or parameter using
your correlations. The subroutine name must be the same as the name of
the user routine you will select in step 2.
2 Go to the Components | Petro Characterization | Property Methods
| Basic sheet. Specify a base property method. For the properties or
parameters for which you want to supply your own correlation, select the
User routine option.
The following pages list the calling arguments to the subroutines.

25 User Subroutines for Petroleum Property Methods 261

 Calling Sequence for Boiling Point Subroutine
SUBROUTINE PCABPU (XMW, SG, ABP)

Argument List Descriptions for Boiling Point Subroutine

Variable I/O† Type Dimension Description

XMW I REAL*8 — Molecular weight

SG I REAL*8 — Specific gravity
ABP O REAL*8 — Average boiling point
†
I = Input to subroutine, O = Output from subroutine

Calling Sequence for Benedict-Webb-Rubin Parameter

Subroutine
SUBROUTINE PCBWRU (ABP, API, SG, XMW, BWRGMA, TCBWR, VCBWR)

Argument List Descriptions for BWR Parameter

Subroutine
Variable I/O† Type Dimension Description

ABP I REAL*8 — Average boiling point

API I REAL*8 — API gravity
SG I REAL*8 — Specific gravity
XMW I REAL*8 — Molecular weight
BWRGMA O REAL*8 — BWR orientation parameter
TCBWR O REAL*8 — BWR critical temperature
VCBWR O REAL*8 — BWR critical volume
† I = Input to subroutine , O = Output from subroutine

Calling Sequence for Ideal Gas Heat Capacity Subroutine

SUBROUTINE PCCPGU (ABP, API, SG, XMW, TC, PC, CPIG)

Argument List Descriptions for Ideal Gas Heat Capacity

Subroutine
Variable I/O† Type Dimension Description

ABP I REAL*8 — Average boiling point

API I REAL*8 — API gravity
SG I REAL*8 — Specific gravity
XMW I REAL*8 — Molecular weight
TC I REAL*8 — Critical temperature
PC I REAL*8 — Critical pressure
CPIG O REAL*8 11 Ideal gas heat capacity coefficients
† I = Input to subroutine, O = Output from subroutine

262 25 User Subroutines for Petroleum Property Methods

 Calling Sequence for Gibbs Free Energy of Formation
Subroutine
SUBROUTINE PCDGFU (ABP, API, SG, XMW, DGFORM)

Argument List Descriptions for Gibbs Free Energy of

Formation Subroutine
Variable I/O† Type Dimension Description

ABP I REAL*8 — Average boiling point

API I REAL*8 — API gravity
SG I REAL*8 — Specific gravity
XMW I REAL*8 — Molecular weight
DGFORM O REAL*8 — Gibbs free energy of formation
† I = Input to subroutine, O = Output from subroutine

Calling Sequence for Heat of Formation Subroutine

SUBROUTINE PCDHFU (ABP, API, SG, XMW, DHFORM)

Argument List Descriptions for Heat of Formation

Subroutine
Variable I/O† Type Dimension Description

ABP I REAL*8 — Average boiling point

API I REAL*8 — API gravity
SG I REAL*8 — Specific gravity
XMW I REAL*8 — Molecular weight
DHFORM O REAL*8 — Heat of formation
† I = Input to subroutine, O = Output from subroutine

Calling Sequence for Enthalpy of Vaporization Subroutine

SUBROUTINE PCDHVU (ABP, API, SG, XMW, TC, PC, DHVLB)

Argument List Descriptions for Enthalpy of Vaporization

Subroutine
Variable I/O† Type Dimension Description

ABP I REAL*8 — Average boiling point

API I REAL*8 — API gravity
SG I REAL*8 — Specific gravity
XMW I REAL*8 — Molecular weight
TC I REAL*8 — Critical temperature
PC I REAL*8 — Critical pressure
DHVLB O REAL*8 — Heat of vaporization
† I = Input to subroutine, O = Output from subroutine

25 User Subroutines for Petroleum Property Methods 263

 Calling Sequence for Hydrocarbon Solubility Subroutine
SUBROUTINE PCHSLU (ABP, API, SG, XMW, HCSOL)

Argument List Descriptions for Viscosity Subroutine

Variable I/O† Type Dimension Description

ABP I REAL*8 — Average boiling point

API I REAL*8 — API gravity
SG I REAL*8 — Specific gravity
XMW I REAL*8 — Molecular weight
HCSOL O REAL*8 5 Hydrocarbon solubility parameters.
The first three elements are A, B, and C in
ln(x) = A + B/T + C ln T
and the last two elements are lower and
upper temperature limits, as described in
Hydrocarbon Solubility in online help.
† I = Input to subroutine, O = Output from subroutine

Calling Sequence for Viscosity Subroutine

SUBROUTINE PCMULU (ABP, API, SG, XMW, TC, TEMP, VISC)

Argument List Descriptions for Viscosity Subroutine

Variable I/O† Type Dimension Description

ABP I REAL*8 — Average boiling point

API I REAL*8 — API gravity
SG I REAL*8 — Specific gravity
TC I REAL*8 — Critical temperature
TEMP I REAL*8 — Temperature
VISC O REAL*8 — Viscosity
† I = Input to subroutine, O = Output from subroutine

Calling Sequence for Molecular Weight Subroutine

SUBROUTINE PCMWU (ABP, SG, XMW)

Argument List Descriptions for Molecular Weight

Subroutine
Variable I/O† Type Dimension Description

ABP I REAL*8 — Average boiling point

SG I REAL*8 — Specific gravity
XMW O REAL*8 — Molecular weight
† I = Input to subroutine, O = Output from subroutine

264 25 User Subroutines for Petroleum Property Methods

 Calling Sequence for Acentric Factor Subroutine
SUBROUTINE PCOMGU (TC, PC, PLXANT, ABP, SG, XMW, OMEGA)

Argument List Descriptions for Acentric Factor Subroutine

Variable I/O† Type Dimension Description

TC I REAL*8 — Critical temperature

PC I REAL*8 — Critical pressure
PLXANT I REAL*8 9 Extended Antoine vapor pressure
parameters
ABP I REAL*8 — Average boiling point
SG I REAL*8 — Specific gravity
OMEGA O REAL*8 — Acentric Factor
† I = Input to subroutine, O = Output from subroutine

Calling Sequence for Critical Pressure Subroutine

SUBROUTINE PCPCU (ABP, API, SG, XMW, PC)

Argument List Descriptions for Critical Pressure

Subroutine
Variable I/O† Type Dimension Description

ABP I REAL*8 — Average boiling point

API I REAL*8 — API gravity
SG I REAL*8 — Specific gravity
XMW I REAL*8 — Molecular weight
PC O REAL*8 — Critical pressure
† I = Input to subroutine, O = Output from subroutine

Calling Sequence for Vapor Pressure Subroutine

SUBROUTINE PCPLU (ABP, API, SG, XMW, TC, PC, VPT, VPRES)

Argument List Descriptions for Vapor Pressure Subroutine

Variable I/O† Type Dimension Description

ABP I REAL*8 — Average boiling point

API I REAL*8 — API gravity
SG I REAL*8 — Specific gravity
XMW I REAL*8 — Molecular weight
TC I REAL*8 — Critical temperature
PC I REAL*8 — Critical pressure
VPT I REAL*8 — Vapor pressure temperature
VPRES O REAL*8 — Vapor pressure
† I = Input to subroutine, O = Output from subroutine

25 User Subroutines for Petroleum Property Methods 265