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 | ||
---|---|---|---|---|---|---|
character(len=*), | intent(in) | :: | CompType | |||
character(len=*), | intent(in) | :: | CompName |
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.
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.
SUBROUTINE CheckSysSizing(CompType,CompName)
! SUBROUTINE INFORMATION:
! AUTHOR Fred Buhl
! DATE WRITTEN October 2002
! MODIFIED na
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! This routine is called when an "autosize" input is encountered in a component
! sizing routine to check that the system sizing calculations have been done.
! METHODOLOGY EMPLOYED:
! Checks SysSizingRunDone flag. If false throws a fatal error.
! REFERENCES:
! na
! USE STATEMENTS:
USE DataPrecisionGlobals
USE DataGlobals, ONLY: DoSystemSizing
USE DataInterfaces, ONLY: ShowSevereError,ShowContinueError,ShowFatalError
USE DataSizing, ONLY: SysSizingRunDone,NumSysSizInput
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! SUBROUTINE ARGUMENT DEFINITIONS:
CHARACTER(len=*), INTENT(IN) :: CompType ! Component Type (e.g. Chiller:Electric)
CHARACTER(len=*), INTENT(IN) :: CompName ! Component Name (e.g. Big Chiller)
! SUBROUTINE PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS
! na
! DERIVED TYPE DEFINITIONS
! na
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
IF ( .NOT. SysSizingRunDone) THEN
CALL ShowSevereError('For autosizing of ' // TRIM(CompType) // ' ' // TRIM(CompName) // &
', a system sizing run must be done.')
IF (NumSysSizInput == 0) THEN
CALL ShowContinueError('No "Sizing:System" objects were entered.')
ENDIF
IF (.not. DoSystemSizing) THEN
CALL ShowContinueError('The "SimulationControl" object did not have the field "Do System Sizing Calculation" set to Yes.')
ENDIF
CALL ShowFatalError('Program terminates due to previously shown condition(s).')
END IF
RETURN
END SUBROUTINE CheckSysSizing