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 SetupUnitConversions
! SUBROUTINE INFORMATION:
! AUTHOR Jason Glazer of GARD Analytics, Inc.
! DATE WRITTEN February 12, 2009
! MODIFIED March 2010; Linda Lawrie; Add deltaC and KJ/KG
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! Initialize the array that contains the unit conversion
! information. The code is based on code generated
! in a spreadsheet titled UnitConversion.xls
! METHODOLOGY EMPLOYED:
! REFERENCES:
! na
! USE STATEMENTS:
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! SUBROUTINE ARGUMENT DEFINITIONS:
! SUBROUTINE PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS:
! na
! DERIVED TYPE DEFINITIONS:
! na
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
! na
UnitConvSize = 94
ALLOCATE(UnitConv(UnitConvSize))
UnitConv(1)%siName = '%'
UnitConv(2)%siName = '°C'
UnitConv(3)%siName = '0=OFF 1=ON'
UnitConv(4)%siName = '0-NO 1-YES'
UnitConv(5)%siName = '1-YES 0-NO'
UnitConv(6)%siName = 'A'
UnitConv(7)%siName = 'ACH'
UnitConv(8)%siName = 'ACH'
UnitConv(9)%siName = 'BASE 10C'
UnitConv(10)%siName = 'BASE 18C'
UnitConv(11)%siName = 'C'
UnitConv(12)%siName = 'CD/M2'
UnitConv(13)%siName = 'DEG'
UnitConv(14)%siName = 'FRAC'
UnitConv(15)%siName = 'HOUR'
UnitConv(16)%siName = 'HOURS'
UnitConv(17)%siName = 'HR'
UnitConv(18)%siName = 'HRS'
UnitConv(19)%siName = 'J'
UnitConv(20)%siName = 'J'
UnitConv(21)%siName = 'J'
UnitConv(22)%siName = 'J'
UnitConv(23)%siName = 'J'
UnitConv(24)%siName = 'J'
UnitConv(25)%siName = 'J/KG'
UnitConv(26)%siName = 'J/KG H2O'
UnitConv(27)%siName = 'J/M2'
UnitConv(28)%siName = 'K/M'
UnitConv(29)%siName = 'KG'
UnitConv(30)%siName = 'KG/KG'
UnitConv(31)%siName = 'KG/M3'
UnitConv(32)%siName = 'KG/S'
UnitConv(33)%siName = 'KGWATER/KGAIR'
UnitConv(34)%siName = 'KGWATER/SEC'
UnitConv(35)%siName = 'KMOL/S'
UnitConv(36)%siName = 'KMOL/SEC'
UnitConv(37)%siName = 'KWH'
UnitConv(38)%siName = 'L'
UnitConv(39)%siName = 'L'
UnitConv(40)%siName = 'LUM/W'
UnitConv(41)%siName = 'LUX'
UnitConv(42)%siName = 'M'
UnitConv(43)%siName = 'M'
UnitConv(44)%siName = 'M/S'
UnitConv(45)%siName = 'M/S'
UnitConv(46)%siName = 'M2'
UnitConv(47)%siName = 'M2/PERSON'
UnitConv(48)%siName = 'M3'
UnitConv(49)%siName = 'M3'
UnitConv(50)%siName = 'M3/M2'
UnitConv(51)%siName = 'M3/S'
UnitConv(52)%siName = 'M3/S'
UnitConv(53)%siName = 'M3/S-M2'
UnitConv(54)%siName = 'M3/S-PERSON'
UnitConv(55)%siName = 'M3/S-PERSON'
UnitConv(56)%siName = 'PA'
UnitConv(57)%siName = 'PA'
UnitConv(58)%siName = 'PA'
UnitConv(59)%siName = 'PA'
UnitConv(60)%siName = 'PA'
UnitConv(61)%siName = 'PA'
UnitConv(62)%siName = 'PA'
UnitConv(63)%siName = 'PA'
UnitConv(64)%siName = 'S'
UnitConv(65)%siName = 'V'
UnitConv(66)%siName = 'W'
UnitConv(67)%siName = 'W'
UnitConv(68)%siName = 'W'
UnitConv(69)%siName = 'W'
UnitConv(70)%siName = 'W'
UnitConv(71)%siName = 'W/KG'
UnitConv(72)%siName = 'W/KG H2O'
UnitConv(73)%siName = 'W/K'
UnitConv(74)%siName = 'W/M2'
UnitConv(75)%siName = 'W/M2'
UnitConv(76)%siName = 'W/M2-C'
UnitConv(77)%siName = 'W/M2-K'
UnitConv(78)%siName = 'W/W'
UnitConv(79)%siName = 'deltaC'
UnitConv(80)%siName = 'KJ/KG'
UnitConv(81)%siName = 'W-S/M3'
UnitConv(82)%siName = 'W-S/M3'
UnitConv(83)%siName = '~~$~~/m2'
UnitConv(84)%siName = 'GJ'
UnitConv(85)%siName = 'GJ'
UnitConv(86)%siName = 'GJ'
UnitConv(87)%siName = 'GJ'
UnitConv(88)%siName = 'GJ'
UnitConv(89)%siName = 'GJ'
UnitConv(90)%siName = 'GJ'
UnitConv(91)%siName = 'MJ/m2'
UnitConv(92)%siName = 'MJ/m2'
UnitConv(93)%siName = 'MJ/m2'
UnitConv(94)%siName = 'Invalid/Undefined'
UnitConv(1)%ipName = '%'
UnitConv(2)%ipName = 'F'
UnitConv(3)%ipName = '0=Off 1=On'
UnitConv(4)%ipName = '0-No 1-Yes'
UnitConv(5)%ipName = '1-Yes 0-No'
UnitConv(6)%ipName = 'A'
UnitConv(7)%ipName = 'ACH'
UnitConv(8)%ipName = 'ach'
UnitConv(9)%ipName = 'base 50F'
UnitConv(10)%ipName = 'base 65F'
UnitConv(11)%ipName = 'F'
UnitConv(12)%ipName = 'cd/in2'
UnitConv(13)%ipName = 'deg'
UnitConv(14)%ipName = 'Frac'
UnitConv(15)%ipName = 'Hour'
UnitConv(16)%ipName = 'Hours'
UnitConv(17)%ipName = 'hr'
UnitConv(18)%ipName = 'hrs'
UnitConv(19)%ipName = 'kBtu'
UnitConv(20)%ipName = 'kWh'
UnitConv(21)%ipName = 'therm'
UnitConv(22)%ipName = 'MMBtu'
UnitConv(23)%ipName = 'Wh'
UnitConv(24)%ipName = 'ton-hrs'
UnitConv(25)%ipName = 'Btu/lb'
UnitConv(26)%ipName = 'Btu/lbWater'
UnitConv(27)%ipName = 'kBtu/sqft'
UnitConv(28)%ipName = 'F/ft'
UnitConv(29)%ipName = 'lb'
UnitConv(30)%ipName = 'lb/lb'
UnitConv(31)%ipName = 'lb/ft3'
UnitConv(32)%ipName = 'lb/s'
UnitConv(33)%ipName = 'lbWater/lbAir'
UnitConv(34)%ipName = 'lbWater/s'
UnitConv(35)%ipName = 'kmol/s'
UnitConv(36)%ipName = 'kmol/sec'
UnitConv(37)%ipName = 'kWh'
UnitConv(38)%ipName = 'gal'
UnitConv(39)%ipName = 'ft3'
UnitConv(40)%ipName = 'lum/W'
UnitConv(41)%ipName = 'foot-candles'
UnitConv(42)%ipName = 'ft'
UnitConv(43)%ipName = 'in'
UnitConv(44)%ipName = 'ft/min'
UnitConv(45)%ipName = 'miles/hr'
UnitConv(46)%ipName = 'ft2'
UnitConv(47)%ipName = 'ft2/person'
UnitConv(48)%ipName = 'ft3'
UnitConv(49)%ipName = 'gal'
UnitConv(50)%ipName = 'f3/f2'
UnitConv(51)%ipName = 'ft3/min'
UnitConv(52)%ipName = 'gal/min'
UnitConv(53)%ipName = 'ft3/min-ft2'
UnitConv(54)%ipName = 'ft3/min-person'
UnitConv(55)%ipName = 'gal/min-person'
UnitConv(56)%ipName = 'psi'
UnitConv(57)%ipName = 'inHg'
UnitConv(58)%ipName = 'inH2O'
UnitConv(59)%ipName = 'ftH2O'
UnitConv(60)%ipName = 'psi'
UnitConv(61)%ipName = 'inHg'
UnitConv(62)%ipName = 'inH2O'
UnitConv(63)%ipName = 'ftH2O'
UnitConv(64)%ipName = 's'
UnitConv(65)%ipName = 'V'
UnitConv(66)%ipName = 'Btu/h'
UnitConv(67)%ipName = 'W'
UnitConv(68)%ipName = 'kW'
UnitConv(69)%ipName = 'kBtuh'
UnitConv(70)%ipName = 'ton'
UnitConv(71)%ipName = 'kBtuh/lb'
UnitConv(72)%ipName = 'kBtuh/lb'
UnitConv(73)%ipName = 'Btu/h-F'
UnitConv(74)%ipName = 'Btu/h-ft2'
UnitConv(75)%ipName = 'kBtuh/ft2'
UnitConv(76)%ipName = 'Btu/h-ft2-F'
UnitConv(77)%ipName = 'Btu/h-ft2-F'
UnitConv(78)%ipName = 'Btuh/Btuh'
UnitConv(79)%ipName = 'deltaF'
UnitConv(80)%ipName = 'Btu/lb'
UnitConv(81)%ipName = 'W-min/ft3'
UnitConv(82)%ipName = 'W-min/gal'
UnitConv(83)%ipName = '~~$~~/ft2'
UnitConv(84)%ipName = 'kBtu'
UnitConv(85)%ipName = 'kWh'
UnitConv(86)%ipName = 'kWh'
UnitConv(87)%ipName = 'therm'
UnitConv(88)%ipName = 'MMBtu'
UnitConv(89)%ipName = 'Wh'
UnitConv(90)%ipName = 'ton-hrs'
UnitConv(91)%ipName = 'kWh/ft2'
UnitConv(92)%ipName = 'kBtu/ft2'
UnitConv(93)%ipName = 'kBtu/ft2'
UnitConv(94)%ipName = 'Invalid/Undefined'
UnitConv(1)%mult = 1.d0
UnitConv(2)%mult = 1.8d0
UnitConv(3)%mult = 1.d0
UnitConv(4)%mult = 1.d0
UnitConv(5)%mult = 1.d0
UnitConv(6)%mult = 1.d0
UnitConv(7)%mult = 1.d0
UnitConv(8)%mult = 1.d0
UnitConv(9)%mult = 1.8d0
UnitConv(10)%mult = 1.8d0
UnitConv(11)%mult = 1.8d0
UnitConv(12)%mult = 0.000645160041625726d0
UnitConv(13)%mult = 1.d0
UnitConv(14)%mult = 1.d0
UnitConv(15)%mult = 1.d0
UnitConv(16)%mult = 1.d0
UnitConv(17)%mult = 1.d0
UnitConv(18)%mult = 1.d0
UnitConv(19)%mult = 0.00000094845d0
UnitConv(20)%mult = 0.000000277778d0
UnitConv(21)%mult = 0.0000000094845d0
UnitConv(22)%mult = 0.00000000094845d0
UnitConv(23)%mult = 0.000277777777777778d0
UnitConv(24)%mult = 0.0000000789847d0
UnitConv(25)%mult = 0.00042956d0
UnitConv(26)%mult = 0.0000004302105d0
UnitConv(27)%mult = 0.00000008811404d0
UnitConv(28)%mult = 0.54861322767449d0
UnitConv(29)%mult = 2.2046d0
UnitConv(30)%mult = 1.d0
UnitConv(31)%mult = 0.062428d0
UnitConv(32)%mult = 2.2046d0
UnitConv(33)%mult = 1.d0
UnitConv(34)%mult = 2.2046d0
UnitConv(35)%mult = 1.d0
UnitConv(36)%mult = 1.d0
UnitConv(37)%mult = 1.d0
UnitConv(38)%mult = 0.264172037284185d0
UnitConv(39)%mult = 0.0353146624712848d0
UnitConv(40)%mult = 1.d0
UnitConv(41)%mult = 0.092902267d0
UnitConv(42)%mult = 3.281d0
UnitConv(43)%mult = 39.37d0
UnitConv(44)%mult = 196.86d0
UnitConv(45)%mult = 2.2369d0
UnitConv(46)%mult = 10.764961d0
UnitConv(47)%mult = 10.764961d0
UnitConv(48)%mult = 35.319837041d0
UnitConv(49)%mult = 264.172d0
UnitConv(50)%mult = 3.281d0
UnitConv(51)%mult = 2118.6438d0
UnitConv(52)%mult = 15852.d0
UnitConv(53)%mult = 196.85d0
UnitConv(54)%mult = 2118.6438d0
UnitConv(55)%mult = 15852.d0
UnitConv(56)%mult = 0.0001450377d0
UnitConv(57)%mult = 0.00029613d0
UnitConv(58)%mult = 0.00401463d0
UnitConv(59)%mult = 0.00033455d0
UnitConv(60)%mult = 0.0001450377d0
UnitConv(61)%mult = 0.00029613d0
UnitConv(62)%mult = 0.00401463d0
UnitConv(63)%mult = 0.00033455d0
UnitConv(64)%mult = 1.d0
UnitConv(65)%mult = 1.d0
UnitConv(66)%mult = 3.412d0
UnitConv(67)%mult = 1.d0
UnitConv(68)%mult = 0.001d0
UnitConv(69)%mult = 0.00341442d0
UnitConv(70)%mult = 0.0002843333d0
UnitConv(71)%mult = 0.001547673d0
UnitConv(72)%mult = 0.001547673d0
UnitConv(73)%mult = 1.8987d0
UnitConv(74)%mult = 0.316954237d0
UnitConv(75)%mult = 0.000316954237d0
UnitConv(76)%mult = 0.176085687d0
UnitConv(77)%mult = 0.176085687d0
UnitConv(78)%mult = 1.d0
UnitConv(79)%mult = 1.8d0
UnitConv(80)%mult = 0.42956d0
UnitConv(81)%mult = 1.0d0/2118.6438d0
UnitConv(82)%mult = 1.0d0/15852d0
UnitConv(83)%mult = 1.0d0/10.764961d0
UnitConv(84)%mult = 0.00000094845d0 * 1000000000d0
UnitConv(85)%mult = 0.000000277778d0 * 1000000000d0
UnitConv(86)%mult = 0.000000277778d0 * 1000000000d0
UnitConv(87)%mult = 0.0000000094845d0 * 1000000000d0
UnitConv(88)%mult = 0.00000000094845d0 * 1000000000d0
UnitConv(89)%mult = 0.000277777777777778d0 * 1000000000d0
UnitConv(90)%mult = 0.0000000789847d0 * 1000000000d0
UnitConv(91)%mult = 0.277777777777778d0/10.764961d0
UnitConv(92)%mult = 0.94708628903179d0/10.764961d0
UnitConv(93)%mult = 0.94708628903179d0/10.764961d0
UnitConv(94)%mult = 1.0d0
UnitConv(2)%offset = 32.d0
UnitConv(11)%offset = 32.d0
UnitConv(25)%offset = 7.6736d0
UnitConv(80)%offset = 7.6736d0 ! 80 is KJ/KG -- should this be multiplied by 1000?
UnitConv(20)%hint = 'ELEC'
UnitConv(21)%hint = 'GAS'
UnitConv(24)%hint = 'COOL'
UnitConv(38)%hint = 'WATER'
UnitConv(49)%hint = 'WATER'
UnitConv(52)%hint = 'WATER'
UnitConv(67)%hint = 'ELEC'
UnitConv(70)%hint = 'COOL'
UnitConv(82)%hint = 'WATER'
UnitConv(85)%hint = 'CONSUMP'
UnitConv(86)%hint = 'ELEC'
UnitConv(87)%hint = 'GAS'
UnitConv(90)%hint = 'COOL'
UnitConv(91)%hint = 'ELEC'
UnitConv(92)%hint = 'GAS'
UnitConv(92)%hint = 'ADDITIONAL'
UnitConv(19)%several = .TRUE.
UnitConv(20)%several = .TRUE.
UnitConv(21)%several = .TRUE.
UnitConv(22)%several = .TRUE.
UnitConv(23)%several = .TRUE.
UnitConv(24)%several = .TRUE.
UnitConv(38)%several = .TRUE.
UnitConv(39)%several = .TRUE.
UnitConv(42)%several = .TRUE.
UnitConv(43)%several = .TRUE.
UnitConv(44)%several = .TRUE.
UnitConv(45)%several = .TRUE.
UnitConv(48)%several = .TRUE.
UnitConv(49)%several = .TRUE.
UnitConv(51)%several = .TRUE.
UnitConv(52)%several = .TRUE.
UnitConv(54)%several = .TRUE.
UnitConv(55)%several = .TRUE.
UnitConv(56)%several = .TRUE.
UnitConv(57)%several = .TRUE.
UnitConv(58)%several = .TRUE.
UnitConv(59)%several = .TRUE.
UnitConv(60)%several = .TRUE.
UnitConv(61)%several = .TRUE.
UnitConv(62)%several = .TRUE.
UnitConv(63)%several = .TRUE.
UnitConv(66)%several = .TRUE.
UnitConv(67)%several = .TRUE.
UnitConv(68)%several = .TRUE.
UnitConv(69)%several = .TRUE.
UnitConv(70)%several = .TRUE.
UnitConv(74)%several = .TRUE.
UnitConv(75)%several = .TRUE.
UnitConv(81)%several = .TRUE.
UnitConv(82)%several = .TRUE.
UnitConv(84)%several = .TRUE.
UnitConv(85)%several = .TRUE.
UnitConv(86)%several = .TRUE.
UnitConv(87)%several = .TRUE.
UnitConv(88)%several = .TRUE.
UnitConv(89)%several = .TRUE.
UnitConv(90)%several = .TRUE.
UnitConv(91)%several = .TRUE.
UnitConv(92)%several = .TRUE.
END SUBROUTINE SetupUnitConversions