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 | ||
---|---|---|---|---|---|---|
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.
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 GetLocationInfo(ErrorsFound)
! SUBROUTINE INFORMATION:
! AUTHOR Richard Liesen
! DATE WRITTEN October 1997
! MODIFIED
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! This subroutine gets the location info from the IDF file; latitude,
! longitude and time zone number.
! METHODOLOGY EMPLOYED:
!
! REFERENCES:
! na
! USE STATEMENTS:
USE InputProcessor, ONLY: GetNumObjectsFound, GetObjectItem
USE DataIPShortCuts
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! SUBROUTINE ARGUMENT DEFINITIONS:
LOGICAL, INTENT(INOUT) :: ErrorsFound
! SUBROUTINE PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS:
! na
! DERIVED TYPE DEFINITIONS:
! na
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
INTEGER :: LocNumAlpha ! Number of alpha names being passed
INTEGER :: LocNumProp ! Number of properties being passed
INTEGER :: IOStat ! IO Status when calling get input subroutine
CHARACTER(len=MaxNameLength),DIMENSION(1) :: LocNames ! Temp Array to transfer location info
REAL(r64), DIMENSION(4) :: LocProps !Temporary array to transfer location info
INTEGER NumLocations
! FLOW:
cCurrentModuleObject='Site:Location'
NumLocations=GetNumObjectsFound(cCurrentModuleObject)
IF (NumLocations > 1) THEN
CALL ShowSevereError(TRIM(cCurrentModuleObject)//': Too many objects entered. Only one allowed.')
ErrorsFound=.true.
ENDIF
IF (NumLocations == 1) THEN
!Call Input Get routine to retrieve Location information
CALL GetObjectItem(cCurrentModuleObject,1,LocNames,LocNumAlpha, &
LocProps,LocNumProp,IOSTAT)
!set latitude, longitude, and time zone number variables
LocationTitle = LocNames(1)
Latitude = LocProps(1)
Longitude= LocProps(2)
TimeZoneNumber = LocProps(3)
Elevation=LocProps(4)
LocationGathered=.true.
ENDIF
Return
END SUBROUTINE GetLocationInfo