home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / h / house_ii.zip / FOR / BLKDAT.FOR < prev    next >
Text File  |  1992-05-11  |  12KB  |  361 lines
  1.       BLOCK DATA
  2. C
  3. C-----INITIALIZATIONS FOR COMMON BLOCK VARIABLES
  4. CMDK NKONST
  5.       PARAMETER (NKIF=4*NKONST)
  6. CMDK NHBK
  7. CMDK NZN
  8. CMDK NZN7
  9.       PARAMETER(ISHD=216)
  10. C  SEE NOTE BEFORE SHDFCT SET BELOW.  IF SHDFCT FOR > 1 ZONE, USE BELOW
  11. C      PARAMETER(ISHD=216*NZN)
  12. CMDK ACHBQ
  13. CMDK ACHLQ
  14. CMDK ACND
  15. CMDK BLK10
  16. CMDK BLK81
  17. CMDK BLK83
  18. CMDK BLKGS2
  19. CMDK BLKHX
  20. CMDK BLKMMU
  21. CMDK BLKQGS
  22. CMDK BLKQSM
  23. CMDK BLKSV
  24. CMDK BLKTST
  25. CMDK BLKTVD
  26. CMDK BLSTBK
  27. CMDK CNSTRK
  28. CMDK COLCT
  29. CMDK COLLEC
  30. CMDK DTRQ
  31. CMDK DUCTSC
  32. CMDK DUCTS4
  33. CMDK EBALA
  34. CMDK EFUR
  35. CMDK ENCBK2
  36. CMDK FLWSIZ
  37. CMDK FUEL1
  38. CMDK HANDBK
  39. CMDK HILIMB
  40. CMDK HUMIDC
  41. CMDK IELCB
  42. CMDK INDIC1
  43. CMDK ITM
  44. CMDK IWETHR
  45. CMDK IWLS
  46. CMDK IZZQ
  47. CMDK PRT1
  48. CMDK QACCMQ
  49. CMDK QUAYCH
  50. CMDK QUAYLE
  51. CMDK SHDF
  52. CMDK SIMA
  53. CMDK SOILB
  54. CMDK STRUCA
  55. CMDK TCONCB
  56. CMDK TSTB2
  57. CMDK TYRGND
  58.       DATA TIMUU/0./
  59. C
  60. C-----INPUT DEFAULT VALUES FOR MULTIZONE HOUSE-II MODEL:
  61.       DATA ACBB   /0.0/
  62.       DATA ACCNB  /0.0/
  63.       DATA ACMB   /0.0/
  64.       DATA ACSB   /0.0/
  65.       DATA ACWSB  /0.0/
  66.       DATA AFTG1  /0.4701/
  67.       DATA AWTG2  /0.5775/
  68.       DATA BARPSI /14.7/
  69.       DATA BFTG1  /36.3236/
  70.       DATA BWTG2  /32.6270/
  71.       DATA SOLARH/25*1.1E10/
  72.       DATA CMONTH /'JAN', 'FEB', 'MAR', 'APR', 'MAY', 'JUNE', 'JULY',
  73.      1   'AUG', 'SEPT', 'OCT', 'NOV', 'DEC'/
  74.       DATA CTIME,CDATA/68*.999E37/
  75.       DATA DCTFLR /0.0/
  76.       DATA DEGRAD /1.0/
  77.       DATA DST    /1.0/
  78.       DATA DTRPL/20./
  79.       DATA EATTC1/0.9/
  80.       DATA EATTC2/0.9/
  81.       DATA EMISPL/.28/
  82.       DATA FANTOF /0./
  83.       DATA FAROOF /0.4/
  84.       DATA FAWLOD /1.0/
  85.       DATA FLOC   /NZN7*0/
  86.       DATA HAACL /0.,0./
  87.       DATA HACDN  /0.11/
  88.       DATA HACUP  /0.34/
  89.       DATA HBKRNL /-1/
  90.       DATA HIBLWR /0./
  91.       DATA HIRDN  /0.33/
  92.       DATA HIRUP  /0.18/
  93.       DATA HRDY   /24.001/
  94.       DATA IAC    /0/
  95.       DATA IACZ /NZN*0/
  96.       DATA IAPRT  /0/
  97.       DATA IBRN /NZN*1/
  98.       DATA IBRNHI/1/
  99.       DATA ICC    /1/
  100.       DATA ICFIZB /0/
  101.       DATA ICOLL  /0/
  102.       DATA IEDAY  /999/
  103.       DATA IELC/0/
  104.       DATA IFLOC  /2/
  105.       DATA IGARAGT/0/
  106.       DATA IGRND  /0/
  107.       DATA IPCOOL /0/
  108.       DATA IPL1   /10*0/
  109.       DATA IPL2   /10*0/
  110.       DATA IRGSF/0/
  111.       DATA ISDAY  /0/
  112.       DATA ISHDR /0/
  113.       DATA ISKY   /1/
  114.       DATA ITIM   /0/
  115.       DATA IWALS /0/
  116.       DATA IWAT   /1/
  117.       DATA IWATER /0/
  118.       DATA I33T36 /0/
  119.       DATA NDAYM  /0/
  120.       DATA NDPRE  /2/
  121.       DATA NDYRI  /0/
  122.       DATA NDAYTOT/31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31/
  123.       DATA NKSTAB /0/
  124.       DATA NMONTH /0/
  125.       DATA NMNPRE /2/
  126.       DATA NREP   /0/
  127.       DATA NRNAVB/0/
  128.       DATA NRNAVL/1/
  129.       DATA NSEQG  /0/
  130.       DATA NSEQW  /0/
  131.       DATA NSUBR  /1/
  132.       DATA NZNBAS /1/
  133.       DATA PEDLO  /0.0/
  134.       DATA PLOADS /.FALSE./
  135.       DATA POPEN,PCLOSE/2*0./
  136.       DATA POW    /0.0/
  137.       DATA PRETL  /0.0/
  138.       DATA PSUPL  /0.0/
  139.       DATA QEXT   /0.0/
  140.       DATA QSUMS /180*0./
  141.       DATA QVLLOS /0.0/
  142.       DATA QVSLOS /0.0/
  143.       DATA QHUM   /0.0/
  144.       DATA QSP    /0.0/
  145.       DATA QWA    /0.0/
  146.       DATA RCLOSE,ROPEN/300.,8.4/
  147.       DATA REDC /1./
  148.       DATA REDH /1./
  149.       DATA RETDTYP/'CARRIER'/
  150.       DATA SHDFCT /ISHD*1.0/
  151.       DATA SRCEAB /0.9/
  152.       DATA STBAKT /NZN*0./
  153.       DATA SUPDTYP/'CARRIER'/
  154.       DATA TAH1N/NZN*0./
  155.       DATA TAH2N/NZN*0./
  156.       DATA TBASI  /0.0/
  157.       DATA TCYCON/0./
  158.       DATA TENCLO /12*999.0/
  159.       DATA TFLUE/470./
  160.       DATA TJSV/73./
  161.       DATA TMACSV/93./
  162.       DATA TMAFU/.5,1.5,20.,1.5,9.,999./
  163.       DATA TMEBLS/0./
  164.       DATA TMOF/30.,96.,149./
  165.       DATA TMON/22.,45.,148.,190./
  166.       DATA TMPLSV/76./
  167.       DATA TMSV/105.,123.,133./
  168.       DATA TMV/77.,77.,68.,61.,63./
  169.       DATA TOFFSET/0.0/
  170.       DATA TOTALS/20*0./
  171.       DATA TRAREF/0./
  172.       DATA TSOILF /12*999.0/
  173.       DATA TSOILW /12*999.0/
  174.       DATA TVENTI /305./
  175.       DATA VHLTVD/0./
  176.       DATA WGTHX/0./
  177.       DATA WSHADE /1.0/
  178.       DATA WT     /24*9999.0/
  179.       DATA XKWOF/23.65,20.46,10.92,0./
  180.       DATA XKWON/0.,6.26,10.92,20.46,23.65/
  181. C
  182. C-----DEFINE CONSTRUCTS FOR ENCLOSURE ELEMENTS
  183. C
  184. C-----NUMBER OF CONSTRUCTS AVAILABLE
  185.       DATA NCONS  /21/
  186. C         HAD TO COMMENT IFXL ZEROING:  HP 9000 MODEL 724 WOULDN'T
  187. C         TOLERATE IFXL INPUT FOR SHADING ON CONSTRUCT 11!      
  188. C      DATA IFXL   /NKIF*0/
  189. C
  190. C-----CONSTRUCT 1 (LIVING-SPACE EXTERIOR WALLS -- HOUSE A)
  191.       DATA NLMP (1)  /3/
  192.       DATA WK (1, 1), WX (1, 1), WRHO (1, 1), WCP (1, 1)
  193.      1   /.0355, .087, 37., .283/
  194.       DATA WK (2, 1), WX (2, 1), WRHO (2, 1), WCP (2, 1)
  195.      1   /.0379, .323, 7.794, .1923/
  196.       DATA WK (3, 1), WX (3, 1), WRHO (3, 1), WCP (3, 1)
  197.      1   /.1300, .0313, 45., .29/
  198. C
  199. C-----CONSTRUCT 2 (ROOF -- HOUSE A)
  200.       DATA NLMP (2)  /3/
  201.       DATA WK (1, 2), WX (1, 2), WRHO (1, 2), WCP (1, 2)
  202.      1   /.047, .0445, 70., .30/
  203.       DATA WK (2, 2), WX (2, 2), WRHO (2, 2), WCP (2, 2)
  204.      1   /.085, .04, 32., .33/
  205.       DATA WK (3, 2), WX (3, 2), WRHO (3, 2), WCP (3, 2)
  206.      1   /.085, .04, 32., .33/
  207. C
  208. C-----CONSTRUCT 3 (CEILING -- HOUSE A)
  209.       DATA NLMP (3)  /3/
  210.       DATA WK (1, 3), WX (1, 3), WRHO (1, 3), WCP (1, 3)
  211.      1   /.0295, .458, 3.33, .21/
  212.       DATA WK (2, 3), WX (2, 3), WRHO (2, 3), WCP (2, 3)
  213.      1   /.0969, .0313, 50., .26/
  214.       DATA WK (3, 3), WX (3, 3), WRHO (3, 3), WCP (3, 3)
  215.      1   /.0975, .0313, 45., .32/
  216. C
  217. C-----CONSTRUCT 4 (LIVING-SPACE FLOOR -- HOUSE A)
  218.       DATA NLMP (4)  /1/
  219.       DATA WK (1, 4), WX (1, 4), WRHO (1, 4), WCP (1, 4)
  220.      1   /.0792, .125, 39., .315/
  221. C
  222. C-----CONSTRUCT 5 (BASEMENT WALL  -- HOUSE A)
  223.       DATA NLMP (5)  /3/
  224.       DATA WK (1, 5), WX (1, 5), WRHO (1, 5), WCP (1, 5)
  225.      1   /.78, .33333, 63., .22/
  226.       DATA WK (2, 5), WX (2, 5), WRHO (2, 5), WCP (2, 5)
  227.      1   /.78, .33333, 63., .22/
  228.       DATA WK (3, 5), WX (3, 5), WRHO (3, 5), WCP (3, 5)
  229.      1   /.78, .33333, 63., .22/
  230. C
  231. C-----CONSTRUCT 6 (LIVING-SPACE EXTERIOR WALLS -- HOUSE B)
  232.       DATA NLMP (6)  /3/
  233.       DATA WK (1, 6), WX (1, 6), WRHO (1, 6), WCP (1, 6)
  234.      1   /.0266, .0641, 19.1, .283/
  235.       DATA WK (2, 6), WX (2, 6), WRHO (2, 6), WCP (2, 6)
  236.      1   /.0303, .2917, 3.906, .300/
  237.       DATA WK (3, 6), WX (3, 6), WRHO (3, 6), WCP (3, 6)
  238.      1   /.0925, .0417, 50., .26/
  239. C
  240. C-----CONSTRUCT 7 (ROOF -- HOUSE B)
  241.       DATA NLMP (7)  /3/
  242.       DATA WK (1, 7), WX (1, 7), WRHO (1, 7), WCP (1, 7)
  243.      1   /.047, .0208, 70., .3/
  244.       DATA WK (2, 7), WX (2, 7), WRHO (2, 7), WCP (2, 7)
  245.      1   /.0667, .0180, 44., .293/
  246.       DATA WK (3, 7), WX (3, 7), WRHO (3, 7), WCP (3, 7)
  247.      1   /.0667, .0130, 34., .29/
  248. C
  249. C-----CONSTRUCT 8 (CEILING --HOUSE B)
  250.       DATA NLMP (8)  /3/
  251.       DATA WK (1, 8), WX (1, 8), WRHO (1, 8), WCP (1, 8)
  252.      1   /.029, .146, 2.94, .289/
  253.       DATA WK (2, 8), WX (2, 8), WRHO (2, 8), WCP (2, 8)
  254.      1   /.029, .146, 2.94, .289/
  255.       DATA WK (3, 8), WX (3, 8), WRHO (3, 8), WCP (3, 8)
  256.      1   /.0925, .0417, 50., .26/
  257. C
  258. C-----CONSTRUCT 9 (LIVING-SPACE FLOOR -- HOUSE B)
  259.       DATA NLMP (9)  /1/
  260.       DATA WK (1, 9), WX (1, 9), WRHO (1, 9), WCP (1, 9)
  261.      1   /.0594, .0887, 27.4, .298/
  262. C
  263. C-----CONSTRUCT 10 (BASEMENT WALL -- HOUSE B)
  264.       DATA NLMP (10)  /3/
  265.       DATA WK (1, 10), WX (1, 10), WRHO (1, 10), WCP (1, 10)
  266.      1   /.6, .22222, 64.5, .22/
  267.       DATA WK (2, 10), WX (2, 10), WRHO (2, 10), WCP (2, 10)
  268.      1   /.6, .22222, 64.5, .22/
  269.       DATA WK (3, 10), WX (3, 10), WRHO (3, 10), WCP (3, 10)
  270.      1   /.6, .22222, 64.5, .22/
  271. C
  272. C-----CONSTRUCT 11 (LIVING-SPACE EXTERIOR WALLS (TYPE 2) -- HOUSE A)
  273. C   ONLY DIFFERENCE FROM CONSTRUCT 1 IS SHADING
  274. C      DATA IFXL (1, 11) /4/    HP WORKSTATION FORTRAN WOULDNT ALLOW 
  275. C                               THIS. SO THIS IS SET AT START OF STRCT.
  276.       DATA NLMP (11) /3/
  277.       DATA WK (1, 11), WX (1, 11), WRHO (1, 11), WCP (1, 11)
  278.      1   /.0290, .087, 37., .283/
  279.       DATA WK (2, 11), WX (2, 11), WRHO (2, 11), WCP (2, 11)
  280.      1   /.0310, .323, 7.794
  281.      +, .1923/
  282.       DATA WK (3, 11), WX (3, 11), WRHO (3, 11), WCP (3, 11)
  283.      1   /.1064, .0313, 45., .29/
  284. C-----CONSTRUCT 12 (INTERIOR PARTITION WALLS--HOUSEA)
  285.       DATA NLMP(12)/3/
  286.       DATA WK(1,12), WX(1,12), WRHO(1,12), WCP(1,12)
  287.      +     /0.0972, 0.0625, 47.5, 0.288/
  288.       DATA WK(2,12), WX(2,12), WRHO(2,12), WCP(2,12)
  289.      +     /0.268, 0.2917, 3.068, 1.006/
  290.       DATA WK(3,12), WX(3,12), WRHO(3,12), WCP(3,12)
  291.      +     /0.0972, 0.0625, 47.5, 0.288/
  292. C-----CONSTRUCT 13 (INTERIOR PARTITION DOORS)
  293.       DATA NLMP(13)/3/
  294.       DATA WK(1,13), WX(1,13), WRHO(1,13), WCP(1,13)
  295.      +     /0.0429, 0.0313, 20.78, 0.33/
  296.       DATA WK(2,13), WX(2,13), WRHO(2,13), WCP(2,13)
  297.      +     /0.0399, 0.052, 15.17, 0.33/
  298.       DATA WK(3,13), WX(3,13), WRHO(3,13), WCP(3,13)
  299.      +     /0.0429, 0.0313, 20.78, 0.33/
  300. C - - - - - CONSTRUCT 14 (STYROFOAM INTERIOR PARTITION WALL--HSE A)
  301.       DATA NLMP(14)/1/
  302.       DATA WK(1,14), WX(1,14), WRHO(1,14), WCP(1,14)
  303.      +/0.02,0.083333,2.2,0.29/
  304. C - - - - - CONSTRUCT 15 (BASEMENT FLOOR -- HSE A)
  305. C   HAS 43% OF FLOOR COVERED W/ THIN CARPET W/O PAD
  306. C    (FOR HSE B OR W/O RUG, CH .289 TO .4167, .1178 TO .11111)
  307. C    NOTE: FLOOR IS 4 INCHES THICK!!!!
  308.       DATA NLMP(15)/3/
  309.       DATA WK(1,15), WX(1,15), WRHO(1,15), WCP(1,15)
  310.      +/0.4167, .11111, 116., 0.21/
  311.       DATA WK(2,15), WX(2,15), WRHO(2,15), WCP(2,15)
  312.      +/0.4167, .11111, 116., 0.21/
  313.       DATA WK(3,15), WX(3,15), WRHO(3,15), WCP(3,15)
  314.      +/0.298, .1178, 116., 0.21/
  315. C - - - - - CONSTRUCT 16 (INTERIOR CONCRETE BLOCK WALL - - 8 IN. THK)
  316.       DATA NLMP(16)/3/
  317.       DATA WK(1,16), WX(1,16), WRHO(1,16), WCP(1,16)
  318.      +/0.60, 0.22222, 64.5, 0.22/
  319.       DATA WK(2,16), WX(2,16), WRHO(2,16), WCP(2,16)
  320.      +/0.60, 0.22222, 64.5, 0.22/
  321.       DATA WK(3,16), WX(3,16), WRHO(3,16), WCP(3,16)
  322.      +/0.60, 0.22222, 64.5, 0.22/
  323. C - - - - - CONSTRUCT 17(5/8-IN THK PLYWOOD DOOR)
  324.       DATA NLMP(17)/1/
  325.       DATA WK(1,17),WX(1,17),WRHO(1,17),WCP(1,17)
  326.      +/.0672,.0521,34.,.29/
  327. C - - - - - CONSTRUCT 18 (ZONE 1 FLOOR -- HOUSE B)
  328.       DATA NLMP(18)/3/
  329.       DATA WK(1,18), WX(1,18), WRHO(1,18), WCP(1,18)
  330.      +/0.0925, 0.0417, 50., 0.26/
  331.       DATA WK(2,18), WX(2,18), WRHO(2,18), WCP(2,18)
  332.      +/0.448, 0.6345, 3.57, 0.318/
  333.       DATA WK(3,18), WX(3,18), WRHO(3,18), WCP(3,18)
  334.      +/0.0292, 0.0833, 17.8, 0.293/
  335. C - - - - - CONSTRUCT 19 (PARTITION WALLS -- HOUSE B)
  336.       DATA NLMP(19)/3/
  337.       DATA WK(1,19), WX(1,19), WRHO(1,19), WCP(1,19)
  338.      +/0.0925, 0.03646, 50., 0.26/
  339.       DATA WK(2,19), WX(2,19), WRHO(2,19), WCP(2,19)
  340.      +/0.276, 0.302, 4.69, 0.294/
  341.       DATA WK(3,19), WX(3,19), WRHO(3,19), WCP(3,19)
  342.      +/0.0925, 0.03646, 50., 0.26/
  343. C - - - - - CONSTRUCT 20 (ZONE 2-TO-GARAGE WALL -- HOUSE B)
  344.       DATA NLMP(20)/3/
  345.       DATA WK(1,20), WX(1,20), WRHO(1,20), WCP(1,20)
  346.      +/0.0925, 0.04167, 50., 0.26/
  347.       DATA WK(2,20), WX(2,20), WRHO(2,20), WCP(2,20)
  348.      +/0.03028, 0.29167, 3.906, 0.300/
  349.       DATA WK(3,20), WX(3,20), WRHO(3,20), WCP(3,20)
  350.      +/0.0925, 0.04167, 50., 0.26/
  351. C-----CONSTRUCT 21 (INTERIOR PARTITION WALLS(W/0 TSTAT)--HOUSEA)
  352.       DATA NLMP(21)/3/
  353.       DATA WK(1,21), WX(1,21), WRHO(1,21), WCP(1,21)
  354.      +     /0.0972, 0.0625, 47.5, 0.288/
  355.       DATA WK(2,21), WX(2,21), WRHO(2,21), WCP(2,21)
  356.      +     /0.268, 0.2917, 3.068, 1.006/
  357.       DATA WK(3,21), WX(3,21), WRHO(3,21), WCP(3,21)
  358.      +     /0.0972, 0.0625, 47.5, 0.288/
  359. C
  360.       END
  361.