| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| character(len=MaxNameLength), | public | :: | Name | = | ' ' | ||
| character(len=MaxNameLength), | public | :: | FaultType | = | ' ' | ||
| character(len=MaxNameLength), | public | :: | AvaiSchedule | = | ' ' | ||
| character(len=MaxNameLength), | public | :: | SeveritySchedule | = | ' ' | ||
| character(len=MaxNameLength), | public | :: | ControllerType | = | ' ' | ||
| integer, | public | :: | ControllerTypeEnum | = | 0 | ||
| character(len=MaxNameLength), | public | :: | ControllerName | = | ' ' | ||
| integer, | public | :: | ControllerID | = | 0 | ||
| real(kind=r64), | public | :: | Offset | = | 0.0d0 | ||
| logical, | public | :: | Status | = | .FALSE. | ||
| integer, | public | :: | AvaiSchedPtr | = | 0 | ||
| integer, | public | :: | SeveritySchedPtr | = | 0 | ||
| integer, | public | :: | FaultTypeEnum | = | 0 |
TYPE FaultProperties ! Derived type for operational faults
CHARACTER(len=MaxNameLength) :: Name = ' '
CHARACTER(len=MaxNameLength) :: FaultType = ' ' ! Fault type
CHARACTER(len=MaxNameLength) :: AvaiSchedule = ' ' ! Availability schedule
CHARACTER(len=MaxNameLength) :: SeveritySchedule = ' ' ! Severity schedule, multipliers to the Offset
CHARACTER(len=MaxNameLength) :: ControllerType = ' ' ! Controller type
INTEGER :: ControllerTypeEnum = 0
CHARACTER(len=MaxNameLength) :: ControllerName = ' ' ! Controller name
INTEGER :: ControllerID = 0 ! Point to a controller associated with the fault
REAL(r64) :: Offset = 0.0d0 ! offset, + means sensor reading is higher than actual value
Logical :: Status = .FALSE. ! for future use
INTEGER :: AvaiSchedPtr = 0
INTEGER :: SeveritySchedPtr = 0
INTEGER :: FaultTypeEnum = 0
END TYPE FaultProperties