| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=r64), | intent(in) | :: | D | |||
| real(kind=r64), | intent(in) | :: | S | 
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.
REAL(r64) FUNCTION IS_OPENNESS(D, S)
          !
          !       AUTHOR         ASHRAE 1311-RP
          !       DATE WRITTEN   unknown
          !       MODIFIED       na
          !
          !       RE-ENGINEERED  na
          ! PURPOSE OF THIS FUNCTION:
          !  Returns openness from wire geometry.
          !
          !
          ! METHODOLOGY EMPLOYED:
          !  na
          !
          !
          ! REFERENCES:
          !  na
          !
          !
          ! USE STATEMENTS:
          ! na
    IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
          ! FUNCTION ARGUMENT DEFINITIONS:
    REAL(r64), INTENT (IN) :: D            ! wire diameter
    REAL(r64), INTENT (IN) :: S            ! wire spacing
          !
          ! FUNCTION PARAMETER DEFINITIONS:
          ! na
          ! INTERFACE BLOCK SPECIFICATIONS
          ! na
          ! DERIVED TYPE DEFINITIONS
          ! na
          ! FUNCTION LOCAL VARIABLE DECLARATIONS:
          ! na
          ! Flow
    IF (S > 0.d0) THEN
        IS_OPENNESS = (MAX( S-D, 0.0d0) / S)**2
    ELSE
        IS_OPENNESS = 0.0d0
    END IF
    RETURN
END FUNCTION IS_OPENNESS