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 PerfomanceCurveData
CHARACTER(len=MaxNameLength) :: Name =Blank ! Curve Name
INTEGER :: ObjectType =0 ! Curve object type (e.g., integer for Curve:Linear above)
INTEGER :: CurveType =0 ! Curve type (see parameter definitions above)
INTEGER :: InterpolationType=0 ! table interpolation method
INTEGER :: DataFormat =0 ! format of tabular data
INTEGER :: TableIndex =0 ! Index to tablular data (0 if a standard curve object)
INTEGER :: TableVariables=0 ! Number of independent variables (0 if a standard curve object)
INTEGER :: NumIVLowErrorIndex=0 ! Index to table object error message for too few IV's
INTEGER :: NumIVHighErrorIndex=0 ! Index to table object error message for too many IV's
INTEGER :: X1SortOrder=1 ! sort order for table data for X1
INTEGER :: X2SortOrder=1 ! sort order for table data for X2
REAL(r64) :: Coeff1 =0.0D0 ! constant coefficient
REAL(r64) :: Coeff2 =0.0D0 ! linear coeff (1st independent variable)
REAL(r64) :: Coeff3 =0.0D0 ! quadratic coeff (1st independent variable)
REAL(r64) :: Coeff4 =0.0D0 ! linear coeff (2nd ind var) or cubic coeff
REAL(r64) :: Coeff5 =0.0D0 ! quadratic coeff (2nd independent variable)
REAL(r64) :: Coeff6 =0.0D0 ! cross coeff (1st & 2nd ind var)
REAL(r64) :: Coeff7 =0.0D0 ! cubic coeff for bicubic (1st ind var)
REAL(r64) :: Coeff8 =0.0D0 ! cubic coeff for bicubic (2nd ind var)
REAL(r64) :: Coeff9 =0.0D0 ! cross coeff for bicubic (1st quadratic & 2nd linear)
REAL(r64) :: Coeff10 =0.0D0 ! cross coeff for bicubic (1st linear & 2nd quadratic)
REAL(r64) :: Var1Max =0.0D0 ! maximum of 1st independent variable
REAL(r64) :: Var1Min =0.0D0 ! minimum of 1st independent variable
REAL(r64) :: Var2Max =0.0D0 ! maximum of 2nd independent variable
REAL(r64) :: Var2Min =0.0D0 ! minimum of 2nd independent variable
REAL(r64) :: Var3Max =0.0D0 ! maximum of 3rd independent variable
REAL(r64) :: Var3Min =0.0D0 ! minimum of 3rd independent variable
REAL(r64) :: Var4Max =0.0D0 ! maximum of 4th independent variable
REAL(r64) :: Var4Min =0.0D0 ! minimum of 4th independent variable
REAL(r64) :: Var5Max =0.0D0 ! maximum of 5th independent variable
REAL(r64) :: Var5Min =0.0D0 ! minimum of 5th independent variable
REAL(r64) :: CurveMin =0.0D0 ! minimum value of curve output
REAL(r64) :: CurveMax =0.0D0 ! maximum value of curve output
LOGICAL :: CurveMinPresent = .FALSE. ! If TRUE, then cap minimum curve output
LOGICAL :: CurveMaxPresent = .FALSE. ! if TRUE, then cap maximum curve output
TYPE(TriQuadraticCurveDataStruct),DIMENSION(:), ALLOCATABLE :: Tri2ndOrder ! structure for triquadratic curve data
LOGICAL :: EMSOverrideOn = .FALSE. ! if TRUE, then EMS is calling to override curve value
REAL(r64) :: EMSOverrideCurveValue = 0.0D0 ! Value of curve result EMS is directing to use
! report variables
REAL(r64) :: CurveOutput = 0.0D0 ! curve output or result
REAL(r64) :: CurveInput1 = 0.0D0 ! curve input #1 (e.g., x or X1 variable)
REAL(r64) :: CurveInput2 = 0.0D0 ! curve input #1 (e.g., y or X2 variable)
REAL(r64) :: CurveInput3 = 0.0D0 ! curve input #1 (e.g., z or X3 variable)
REAL(r64) :: CurveInput4 = 0.0D0 ! curve input #1 (e.g., X4 variable)
REAL(r64) :: CurveInput5 = 0.0D0 ! curve input #1 (e.g., X5 variable)
END TYPE PerfomanceCurveData