SetupRealOutputVariable_IntKey Subroutine

subroutine SetupRealOutputVariable_IntKey(VariableName, ActualVariable, IndexTypeKey, VariableTypeKey, KeyedValue, ReportFreq, ResourceTypeKey, EndUseKey, EndUseSubKey, GroupKey, ZoneKey, ZoneMult, ZoneListMult, indexGroupKey)

Uses:
DataPrecisionGlobals

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	VariableName
real(kind=r64),	intent(in),		TARGET	::	ActualVariable
character(len=*),	intent(in)			::	IndexTypeKey
character(len=*),	intent(in)			::	VariableTypeKey
integer,	intent(in)			::	KeyedValue
character(len=*),	intent(in),	optional		::	ReportFreq
character(len=*),	intent(in),	optional		::	ResourceTypeKey
character(len=*),	intent(in),	optional		::	EndUseKey
character(len=*),	intent(in),	optional		::	EndUseSubKey
character(len=*),	intent(in),	optional		::	GroupKey
character(len=*),	intent(in),	optional		::	ZoneKey
integer,	intent(in),	optional		::	ZoneMult
integer,	intent(in),	optional		::	ZoneListMult
integer,	intent(in),	optional		::	indexGroupKey

Source Code

SetupRealOutputVariable_IntKey

Source Code

SUBROUTINE SetupRealOutputVariable_IntKey(VariableName,ActualVariable,IndexTypeKey,VariableTypeKey,KeyedValue,  &
           ReportFreq,ResourceTypeKey,EndUseKey,EndUseSubKey,GroupKey,ZoneKey,ZoneMult,ZoneListMult,indexGroupKey)

          ! SUBROUTINE INFORMATION:
          !       AUTHOR         Linda K. Lawrie
          !       DATE WRITTEN   February 1999
          !       MODIFIED       January 2001; Implement Meters
          !       RE-ENGINEERED  na

          ! PURPOSE OF THIS SUBROUTINE:
          ! This subroutine allows an integer key for a variable.  Changes this to a
          ! standard character variable and passes everything to SetupOutputVariable.

          ! METHODOLOGY EMPLOYED:
          ! Pointers (as pointers), pointers (as indices), and lots of other KEWL data stuff.

          ! REFERENCES:
          ! na

          ! USE STATEMENTS:
  USE DataPrecisionGlobals

  IMPLICIT NONE ! Enforce explicit typing of all variables in this routine

          ! SUBROUTINE ARGUMENT DEFINITIONS:
  CHARACTER(len=*), INTENT(IN)           :: VariableName    ! String Name of variable
  CHARACTER(len=*), INTENT(IN)           :: IndexTypeKey    ! Zone, HeatBalance=1, HVAC, System, Plant=2
  CHARACTER(len=*), INTENT(IN)           :: VariableTypeKey ! State, Average=1, NonState, Sum=2
  REAL(r64), INTENT(IN), TARGET          :: ActualVariable  ! Actual Variable, used to set up pointer
  INTEGER, INTENT(IN)                    :: KeyedValue      ! Associated Key for this variable
  CHARACTER(len=*), INTENT(IN), OPTIONAL :: ReportFreq      ! Internal use -- causes reporting at this freqency
  CHARACTER(len=*), INTENT(IN), OPTIONAL :: ResourceTypeKey ! Meter Resource Type (Electricity, Gas, etc)
  CHARACTER(len=*), INTENT(IN), OPTIONAL :: EndUseKey       ! Meter End Use Key (Lights, Heating, Cooling, etc)
  CHARACTER(len=*), INTENT(IN), OPTIONAL :: EndUseSubKey    ! Meter End Use Sub Key (General Lights, Task Lights, etc)
  CHARACTER(len=*), INTENT(IN), OPTIONAL :: GroupKey        ! Meter Super Group Key (Building, System, Plant)
  CHARACTER(len=*), INTENT(IN), OPTIONAL :: ZoneKey         ! Meter Zone Key (zone name)
  INTEGER, INTENT(IN), OPTIONAL          :: ZoneMult        ! Zone Multiplier, defaults to 1
  INTEGER, INTENT(IN), OPTIONAL          :: ZoneListMult    ! Zone List Multiplier, defaults to 1
  INTEGER, INTENT(IN), OPTIONAL          :: indexGroupKey   ! Group identifier for SQL output

          ! SUBROUTINE PARAMETER DEFINITIONS:
          ! na

          ! INTERFACE BLOCK SPECIFICATIONS:
  INTERFACE SetupRealOutputVariable
    SUBROUTINE SetupRealOutputVariable(VariableName,ActualVariable,IndexTypeKey,VariableTypeKey,KeyedValue,  &
               ReportFreq,ResourceTypeKey,EndUseKey,EndUseSubKey,GroupKey,ZoneKey,ZoneMult,ZoneListMult,IndexGroupKey)
    USE DataPrecisionGlobals
      CHARACTER(len=*), INTENT(IN) :: VariableName   ! String Name of variable
      REAL(r64), INTENT(IN), TARGET     :: ActualVariable ! Actual Variable, used to set up pointer
      CHARACTER(len=*), INTENT(IN) :: IndexTypeKey    ! Zone, HeatBalance=1, HVAC, System, Plant=2
      CHARACTER(len=*), INTENT(IN) :: VariableTypeKey ! State, Average=1, NonState, Sum=2
      CHARACTER(len=*), INTENT(IN) :: KeyedValue     ! Associated Key for this variable
      CHARACTER(len=*), INTENT(IN), OPTIONAL :: ReportFreq      ! Internal use -- causes reporting at this freqency
      CHARACTER(len=*), INTENT(IN), OPTIONAL :: ResourceTypeKey ! Meter Resource Type (Electricity, Gas, etc)
      CHARACTER(len=*), INTENT(IN), OPTIONAL :: EndUseKey       ! Meter End Use Key (Lights, Heating, Cooling, etc)
      CHARACTER(len=*), INTENT(IN), OPTIONAL :: EndUseSubKey    ! Meter End Use Sub Key (General Lights, Task Lights, etc)
      CHARACTER(len=*), INTENT(IN), OPTIONAL :: GroupKey        ! Meter Super Group Key (Building, System, Plant)
      CHARACTER(len=*), INTENT(IN), OPTIONAL :: ZoneKey         ! Meter Zone Key (zone name)
      INTEGER, INTENT(IN), OPTIONAL :: ZoneMult ! Zone Multiplier, defaults to 1
      INTEGER, INTENT(IN), OPTIONAL :: ZoneListMult ! Zone List Multiplier, defaults to 1
      INTEGER, INTENT(IN), OPTIONAL :: IndexGroupKey ! Group identifier for SQL output
    END SUBROUTINE
 END INTERFACE

          ! DERIVED TYPE DEFINITIONS:
          ! na

          ! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
  CHARACTER(len=20) IDOut

  ! Not checking for valid number

  WRITE(IDOut,*) KeyedValue
  IDOut=ADJUSTL(IDOut)

  IF (PRESENT(indexGroupKey)) THEN
      CALL SetupRealOutputVariable(VariableName,ActualVariable,IndexTypeKey,VariableTypeKey,IDOut,  &
           ReportFreq,ResourceTypeKey,EndUseKey,EndUseSubKey,GroupKey,ZoneKey,ZoneMult,ZoneListMult, &
           indexGroupKey)
  ELSE
      CALL SetupRealOutputVariable(VariableName,ActualVariable,IndexTypeKey,VariableTypeKey,IDOut,  &
           ReportFreq,ResourceTypeKey,EndUseKey,EndUseSubKey,GroupKey,ZoneKey,ZoneMult,ZoneListMult)
  ENDIF

  RETURN

END SUBROUTINE SetupRealOutputVariable_IntKey

All Procedures

SetupRealOutputVariable_IntKey Subroutine

Source Code

All Procedures

subroutine SetupRealOutputVariable_IntKey(VariableName, ActualVariable, IndexTypeKey, VariableTypeKey, KeyedValue, ReportFreq, ResourceTypeKey, EndUseKey, EndUseSubKey, GroupKey, ZoneKey, ZoneMult, ZoneListMult, indexGroupKey)

Uses:

Arguments

Source Code

Source Code

All Procedures