| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| character(len=*), | private, | parameter | :: | Blank | = | ' ' | |
| integer, | private, | parameter | :: | Linear | = | 1 | |
| integer, | private, | parameter | :: | BiLinear | = | 2 | |
| integer, | private, | parameter | :: | Quadratic | = | 3 | |
| integer, | private, | parameter | :: | BiQuadratic | = | 4 | |
| integer, | private, | parameter | :: | Cubic | = | 5 | |
| integer, | private, | parameter | :: | QuadraticLinear | = | 6 | |
| integer, | private, | parameter | :: | Bicubic | = | 7 | |
| integer, | private, | parameter | :: | TriQuadratic | = | 8 | |
| integer, | private, | parameter | :: | Exponent | = | 9 | |
| integer, | private, | parameter | :: | Quartic | = | 10 | |
| integer, | private, | parameter | :: | FuncPressDrop | = | 11 | |
| integer, | private, | parameter | :: | MultiVariableLookup | = | 12 | |
| integer, | private, | parameter | :: | FanPressureRise | = | 13 | |
| integer, | private, | parameter | :: | ExponentialSkewNormal | = | 14 | |
| integer, | private, | parameter | :: | Sigmoid | = | 15 | |
| integer, | private, | parameter | :: | RectangularHyperbola1 | = | 16 | |
| integer, | private, | parameter | :: | RectangularHyperbola2 | = | 17 | |
| integer, | private, | parameter | :: | ExponentialDecay | = | 18 | |
| integer, | private, | parameter | :: | DoubleExponentialDecay | = | 19 | |
| integer, | private, | parameter | :: | QuadLinear | = | 20 | |
| integer, | private, | parameter | :: | LINEARINTERPOLATIONOFTABLE | = | 1 | |
| integer, | private, | parameter | :: | LAGRANGEINTERPOLATIONLINEAREXTRAPOLATION | = | 2 | |
| integer, | private, | parameter | :: | EVALUATECURVETOLIMITS | = | 3 | |
| integer, | private, | parameter | :: | SINGLELINEINDEPENDENTVARIABLEWITHMATRIX | = | 1 | |
| integer, | private, | parameter | :: | ASCENDING | = | 1 | |
| integer, | private, | parameter | :: | DESCENDING | = | 2 | |
| integer, | private, | parameter | :: | NumAllCurveTypes | = | 21 | |
| integer, | public, | parameter | :: | CurveType_Linear | = | 1 | |
| integer, | public, | parameter | :: | CurveType_Quadratic | = | 2 | |
| integer, | public, | parameter | :: | CurveType_Cubic | = | 3 | |
| integer, | public, | parameter | :: | CurveType_Quartic | = | 4 | |
| integer, | public, | parameter | :: | CurveType_Exponent | = | 5 | |
| integer, | public, | parameter | :: | CurveType_BiCubic | = | 6 | |
| integer, | public, | parameter | :: | CurveType_BiQuadratic | = | 7 | |
| integer, | public, | parameter | :: | CurveType_QuadraticLinear | = | 8 | |
| integer, | public, | parameter | :: | CurveType_TriQuadratic | = | 9 | |
| integer, | public, | parameter | :: | CurveType_FuncPressDrop | = | 10 | |
| integer, | public, | parameter | :: | CurveType_TableOneIV | = | 11 | |
| integer, | public, | parameter | :: | CurveType_TableTwoIV | = | 12 | |
| integer, | public, | parameter | :: | CurveType_TableMultiIV | = | 13 | |
| integer, | public, | parameter | :: | CurveType_FanPressureRise | = | 14 | |
| integer, | public, | parameter | :: | CurveType_ExponentialSkewNormal | = | 15 | |
| integer, | public, | parameter | :: | CurveType_Sigmoid | = | 16 | |
| integer, | public, | parameter | :: | CurveType_RectangularHyperbola1 | = | 17 | |
| integer, | public, | parameter | :: | CurveType_RectangularHyperbola2 | = | 18 | |
| integer, | public, | parameter | :: | CurveType_ExponentialDecay | = | 19 | |
| integer, | public, | parameter | :: | CurveType_DoubleExponentialDecay | = | 20 | |
| integer, | public, | parameter | :: | CurveType_QuadLinear | = | 21 | |
| character(len=*), | public, | parameter, DIMENSION(NumAllCurveTypes) | :: | cCurveTypes | = | (/'Curve:Linear ', 'Curve:Quadratic ', 'Curve:Cubic ', 'Curve:Quartic ', 'Curve:Exponent ', 'Curve:BiCubic ', 'Curve:BiQuadratic ', 'Curve:QuadraitcLinear ', 'Curve:TriQuadratic ', 'Curve:Functional:PressureDrop ', 'Table:OneIndependentVariable ', 'Table:TwoIndependentVariables ', 'Table:MultiVariableLookup ', 'Curve:FanPressureRise ', 'Curve:ExponentialSkewNormal ', 'Curve:Sigmoid ', 'Curve:RectangularHyperbola1 ', 'Curve:RectangularHyperbola2 ', 'Curve:ExponentialDecay ', 'Curve:DoubleExponentialDecay ', 'Curve:QuadLinear '/) | |
| type(PerfomanceCurveData), | public, | ALLOCATABLE, DIMENSION(:) | :: | PerfCurve | |||
| type(PerfCurveTableDataStruct), | private, | DIMENSION(:), ALLOCATABLE | :: | PerfCurveTableData | |||
| type(TableDataStruct), | private, | DIMENSION(:), ALLOCATABLE | :: | TableData | |||
| type(TableDataStruct), | private, | DIMENSION(:), ALLOCATABLE | :: | TempTableData | |||
| type(TableDataStruct), | private, | DIMENSION(:), ALLOCATABLE | :: | Temp2TableData | |||
| type(TableLookupData), | private, | DIMENSION(:), ALLOCATABLE | :: | TableLookup | |||
| integer, | public | :: | NumCurves | ||||
| logical, | private | :: | GetCurvesInputFlag | = | .true. |
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=r64), | public | :: | CoeffA0 | = | 0.0D0 | ||
| real(kind=r64), | public | :: | CoeffA1 | = | 0.0D0 | ||
| real(kind=r64), | public | :: | CoeffA2 | = | 0.0D0 | ||
| real(kind=r64), | public | :: | CoeffA3 | = | 0.0D0 | ||
| real(kind=r64), | public | :: | CoeffA4 | = | 0.0D0 | ||
| real(kind=r64), | public | :: | CoeffA5 | = | 0.0D0 | ||
| real(kind=r64), | public | :: | CoeffA6 | = | 0.0D0 | ||
| real(kind=r64), | public | :: | CoeffA7 | = | 0.0D0 | ||
| real(kind=r64), | public | :: | CoeffA8 | = | 0.0D0 | ||
| real(kind=r64), | public | :: | CoeffA9 | = | 0.0D0 | ||
| real(kind=r64), | public | :: | CoeffA10 | = | 0.0D0 | ||
| real(kind=r64), | public | :: | CoeffA11 | = | 0.0D0 | ||
| real(kind=r64), | public | :: | CoeffA12 | = | 0.0D0 | ||
| real(kind=r64), | public | :: | CoeffA13 | = | 0.0D0 | ||
| real(kind=r64), | public | :: | CoeffA14 | = | 0.0D0 | ||
| real(kind=r64), | public | :: | CoeffA15 | = | 0.0D0 | ||
| real(kind=r64), | public | :: | CoeffA16 | = | 0.0D0 | ||
| real(kind=r64), | public | :: | CoeffA17 | = | 0.0D0 | ||
| real(kind=r64), | public | :: | CoeffA18 | = | 0.0D0 | ||
| real(kind=r64), | public | :: | CoeffA19 | = | 0.0D0 | ||
| real(kind=r64), | public | :: | CoeffA20 | = | 0.0D0 | ||
| real(kind=r64), | public | :: | CoeffA21 | = | 0.0D0 | ||
| real(kind=r64), | public | :: | CoeffA22 | = | 0.0D0 | ||
| real(kind=r64), | public | :: | CoeffA23 | = | 0.0D0 | ||
| real(kind=r64), | public | :: | CoeffA24 | = | 0.0D0 | ||
| real(kind=r64), | public | :: | CoeffA25 | = | 0.0D0 | ||
| real(kind=r64), | public | :: | CoeffA26 | = | 0.0D0 |
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=r64), | public | :: | NormalPoint | = | 1.0D0 | ||
| real(kind=r64), | public, | DIMENSION(:), ALLOCATABLE | :: | X1 | |||
| real(kind=r64), | public, | DIMENSION(:), ALLOCATABLE | :: | X2 | |||
| real(kind=r64), | public, | DIMENSION(:), ALLOCATABLE | :: | Y |
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=r64), | public, | DIMENSION(:), ALLOCATABLE | :: | X1 | |||
| real(kind=r64), | public, | DIMENSION(:), ALLOCATABLE | :: | X2 | |||
| real(kind=r64), | public, | DIMENSION(:,:), ALLOCATABLE | :: | Y |
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| character(len=MaxNameLength), | public | :: | Name | = | Blank | ||
| integer, | public | :: | ObjectType | = | 0 | ||
| integer, | public | :: | CurveType | = | 0 | ||
| integer, | public | :: | InterpolationType | = | 0 | ||
| integer, | public | :: | DataFormat | = | 0 | ||
| integer, | public | :: | TableIndex | = | 0 | ||
| integer, | public | :: | TableVariables | = | 0 | ||
| integer, | public | :: | NumIVLowErrorIndex | = | 0 | ||
| integer, | public | :: | NumIVHighErrorIndex | = | 0 | ||
| integer, | public | :: | X1SortOrder | = | 1 | ||
| integer, | public | :: | X2SortOrder | = | 1 | ||
| real(kind=r64), | public | :: | Coeff1 | = | 0.0D0 | ||
| real(kind=r64), | public | :: | Coeff2 | = | 0.0D0 | ||
| real(kind=r64), | public | :: | Coeff3 | = | 0.0D0 | ||
| real(kind=r64), | public | :: | Coeff4 | = | 0.0D0 | ||
| real(kind=r64), | public | :: | Coeff5 | = | 0.0D0 | ||
| real(kind=r64), | public | :: | Coeff6 | = | 0.0D0 | ||
| real(kind=r64), | public | :: | Coeff7 | = | 0.0D0 | ||
| real(kind=r64), | public | :: | Coeff8 | = | 0.0D0 | ||
| real(kind=r64), | public | :: | Coeff9 | = | 0.0D0 | ||
| real(kind=r64), | public | :: | Coeff10 | = | 0.0D0 | ||
| real(kind=r64), | public | :: | Var1Max | = | 0.0D0 | ||
| real(kind=r64), | public | :: | Var1Min | = | 0.0D0 | ||
| real(kind=r64), | public | :: | Var2Max | = | 0.0D0 | ||
| real(kind=r64), | public | :: | Var2Min | = | 0.0D0 | ||
| real(kind=r64), | public | :: | Var3Max | = | 0.0D0 | ||
| real(kind=r64), | public | :: | Var3Min | = | 0.0D0 | ||
| real(kind=r64), | public | :: | Var4Max | = | 0.0D0 | ||
| real(kind=r64), | public | :: | Var4Min | = | 0.0D0 | ||
| real(kind=r64), | public | :: | Var5Max | = | 0.0D0 | ||
| real(kind=r64), | public | :: | Var5Min | = | 0.0D0 | ||
| real(kind=r64), | public | :: | CurveMin | = | 0.0D0 | ||
| real(kind=r64), | public | :: | CurveMax | = | 0.0D0 | ||
| logical, | public | :: | CurveMinPresent | = | .FALSE. | ||
| logical, | public | :: | CurveMaxPresent | = | .FALSE. | ||
| type(TriQuadraticCurveDataStruct), | public, | DIMENSION(:), ALLOCATABLE | :: | Tri2ndOrder | |||
| logical, | public | :: | EMSOverrideOn | = | .FALSE. | ||
| real(kind=r64), | public | :: | EMSOverrideCurveValue | = | 0.0D0 | ||
| real(kind=r64), | public | :: | CurveOutput | = | 0.0D0 | ||
| real(kind=r64), | public | :: | CurveInput1 | = | 0.0D0 | ||
| real(kind=r64), | public | :: | CurveInput2 | = | 0.0D0 | ||
| real(kind=r64), | public | :: | CurveInput3 | = | 0.0D0 | ||
| real(kind=r64), | public | :: | CurveInput4 | = | 0.0D0 | ||
| real(kind=r64), | public | :: | CurveInput5 | = | 0.0D0 |
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer, | public | :: | NumIndependentVars | = | 0 | ||
| integer, | public | :: | InterpolationOrder | = | 0 | ||
| integer, | public | :: | NumX1Vars | = | 0 | ||
| real(kind=r64), | public, | DIMENSION(:), ALLOCATABLE | :: | X1Var | |||
| integer, | public | :: | NumX2Vars | = | 0 | ||
| real(kind=r64), | public, | DIMENSION(:), ALLOCATABLE | :: | X2Var | |||
| integer, | public | :: | NumX3Vars | = | 0 | ||
| real(kind=r64), | public, | DIMENSION(:), ALLOCATABLE | :: | X3Var | |||
| integer, | public | :: | NumX4Vars | = | 0 | ||
| real(kind=r64), | public, | DIMENSION(:), ALLOCATABLE | :: | X4Var | |||
| integer, | public | :: | NumX5Vars | = | 0 | ||
| real(kind=r64), | public, | DIMENSION(:), ALLOCATABLE | :: | X5Var | |||
| real(kind=r64), | public, | DIMENSION(:,:,:,:,:), ALLOCATABLE | :: | TableLookupZData |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | CurveIndex | |||
| real(kind=r64), | intent(in) | :: | Var1 | |||
| real(kind=r64), | intent(in), | optional | :: | Var2 | ||
| real(kind=r64), | intent(in), | optional | :: | Var3 | ||
| real(kind=r64), | intent(in), | optional | :: | Var4 | ||
| real(kind=r64), | intent(in), | optional | :: | Var5 |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=r64) | :: | XX | ||||
| real(kind=r64) | :: | YY | ||||
| real(kind=r64), | DIMENSION(:) | :: | X | |||
| real(kind=r64), | DIMENSION(:) | :: | Y | |||
| real(kind=r64), | DIMENSION(:,:) | :: | Z | |||
| integer | :: | NX | ||||
| integer | :: | NY | ||||
| integer | :: | M | ||||
| integer | :: | IEXTX | ||||
| integer | :: | IEXTY |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | CurveIndex | |||
| real(kind=r64), | intent(in) | :: | Var1 | |||
| real(kind=r64), | intent(in), | optional | :: | Var2 | ||
| real(kind=r64), | intent(in), | optional | :: | Var3 | ||
| real(kind=r64), | intent(in), | optional | :: | Var4 |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | CurveIndex | |||
| real(kind=r64), | intent(in) | :: | Var1 | |||
| real(kind=r64), | intent(in), | optional | :: | Var2 | ||
| real(kind=r64), | intent(in), | optional | :: | Var3 |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | CurveIndex | |||
| real(kind=r64), | intent(in) | :: | Var1 | |||
| real(kind=r64), | intent(in), | optional | :: | Var2 | ||
| real(kind=r64), | intent(in), | optional | :: | Var3 | ||
| real(kind=r64), | intent(in), | optional | :: | Var4 | ||
| real(kind=r64), | intent(in), | optional | :: | Var5 |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=MaxNameLength), | intent(in) | :: | InInputType |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=MaxNameLength), | intent(in) | :: | InOutputType |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | CurveIndex |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | CurveIndex |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | CurveName |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | alph | |||
| logical, | intent(inout) | :: | errFlag | |||
| character(len=*), | intent(in) | :: | ObjName |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | PressureCurveIndex | |||
| real(kind=r64), | intent(in) | :: | MassFlow | |||
| real(kind=r64), | intent(in) | :: | Density | |||
| real(kind=r64), | intent(in) | :: | Viscosity |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=r64), | intent(in) | :: | ReynoldsNumber | |||
| real(kind=r64), | intent(in) | :: | RoughnessRatio |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | CurveIndex |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | CurveNum | |||
| character(len=MaxNameLength) | :: | CurrentModuleObject | ||||
| logical, | intent(in) | :: | ReadFromFile | |||
| character(len=MaxNameLength) | :: | FileName | ||||
| character(len=MaxNameLength), | DIMENSION(:) | :: | Alphas | |||
| real(kind=r64), | DIMENSION(:) | :: | Numbers | |||
| integer, | intent(in) | :: | NumNumbers | |||
| logical, | intent(inout) | :: | ErrorsFound |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer | :: | CurveNum | ||||
| character(len=MaxNameLength) | :: | TableType | ||||
| character(len=MaxNameLength) | :: | CurveName | ||||
| real(kind=R64), | DIMENSION(:) | :: | RawDataX | |||
| real(kind=R64), | DIMENSION(:) | :: | RawDataY | |||
| real(kind=R64), | optional | DIMENSION(:) | :: | RawDataX2 |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=r64), | intent(in) | :: | DataPoint | |||
| real(kind=r64), | DIMENSION(:) | :: | FunctionArray | |||
| real(kind=r64), | DIMENSION(:) | :: | Ordinate | |||
| integer, | intent(in) | :: | ISPT | |||
| integer, | intent(in) | :: | IEPT | |||
| real(kind=r64), | intent(out) | :: | ALAG |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | CurveIndex | |||
| real(kind=r64), | intent(out) | :: | Var1Min | |||
| real(kind=r64), | intent(out) | :: | Var1Max | |||
| real(kind=r64), | intent(out), | optional | :: | Var2Min | ||
| real(kind=r64), | intent(out), | optional | :: | Var2Max | ||
| real(kind=r64), | intent(out), | optional | :: | Var3Min | ||
| real(kind=r64), | intent(out), | optional | :: | Var3Max |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | CurveIndex | |||
| logical, | intent(inout) | :: | ErrorsFound | |||
| real(kind=r64), | intent(in), | optional | :: | CurveMin | ||
| real(kind=r64), | intent(in), | optional | :: | CurveMax |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | PressureCurveName | |||
| integer, | intent(inout) | :: | PressureCurveType | |||
| integer, | intent(inout) | :: | PressureCurveIndex |