Nodes of different colours represent the following:
Solid arrows point from a parent (sub)module to the submodule which is descended from it. Dashed arrows point from a module being used to the module or program unit using it. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | CoilIndex | |||
| logical, | intent(inout) | :: | ErrorsFound | 
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
FUNCTION GetDXCoilCapFTCurveIndex(CoilIndex,ErrorsFound) RESULT(CapFTCurveIndex)
          ! FUNCTION INFORMATION:
          !       AUTHOR         Richard Raustad
          !       DATE WRITTEN   August 2013
          !       MODIFIED       na
          !       RE-ENGINEERED  na
          ! PURPOSE OF THIS FUNCTION:
          ! This function looks up the given coil and returns the CapFT schedule index.  If
          ! incorrect coil index is given, errorsfound is returned as true and schedule index is returned
          ! as -1.
          ! METHODOLOGY EMPLOYED:
          ! na
          ! REFERENCES:
          ! na
          ! USE STATEMENTS:
  USE InputProcessor,  ONLY: FindItemInList
  IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
          ! FUNCTION ARGUMENT DEFINITIONS:
  INTEGER, INTENT(IN)    :: CoilIndex       ! coil index pointer
  LOGICAL, INTENT(INOUT) :: ErrorsFound     ! set to true if problem
  INTEGER                :: CapFTCurveIndex ! returned coil CapFT curve index
          ! FUNCTION PARAMETER DEFINITIONS:
          ! na
          ! INTERFACE BLOCK SPECIFICATIONS:
          ! na
          ! DERIVED TYPE DEFINITIONS:
          ! na
          ! FUNCTION LOCAL VARIABLE DECLARATIONS:
          ! na
  ! Obtains and Allocates DXCoils
  IF (GetCoilsInputFlag) THEN
    CALL GetDXCoils
    GetCoilsInputFlag = .FALSE.
  END IF
  IF (CoilIndex /= 0) THEN
    SELECT CASE(DXCoil(CoilIndex)%DXCoilType_Num)
      CASE(CoilDX_CoolingSingleSpeed, CoilDX_CoolingTwoSpeed, CoilDX_HeatingEmpirical, CoilDX_CoolingTwoStageWHumControl)
        CapFTCurveIndex=DXCoil(CoilIndex)%CCapFTemp(1)
      CASE(CoilDX_MultiSpeedCooling, CoilDX_MultiSpeedHeating)
        CapFTCurveIndex=DXCoil(CoilIndex)%CCapFTemp(1)
      CASE DEFAULT
!        CALL ShowSevereError('GetDXCoilCapFTCurveIndex: Could not find Coil, Type="'// &
!             TRIM(cAllCoilTypes(DXCoil(CoilIndex)%DXCoilType_Num))//'" Name="'//TRIM(DXCoil(CoilIndex)%Name)//  &
!              '" when accessing coil capacity as a function of temperture curve.')
        ErrorsFound=.true.
        CapFTCurveIndex=0
    END SELECT
  ELSE
!    CALL ShowSevereError('GetDXCoilCapFTCurveIndex: Could not find Coil, Index = 0'// &
!          ' when accessing coil air flow rate.')
    ErrorsFound=.true.
    CapFTCurveIndex=0
  ENDIF
  RETURN
END FUNCTION GetDXCoilCapFTCurveIndex