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 / CONSLD.FOR < prev    next >
Text File  |  1992-05-08  |  16KB  |  450 lines
  1.       SUBROUTINE CONSLD(NRM,IAREA,IOPCRT,IDBG)
  2. C
  3. C  * CONSOLIDATE ENCLOSURE ELEMENTS TO A MINIMUM NO. OF ELEMENTS
  4. C       PLUS WINDOWS PER ZONE
  5. C  A MINIMUM N1. OF ELEMENTS IN EACH ORIENTATION, IDEXP, INCLUDES THE
  6. C     1. THOSE ELEMENTS FOR WHICH LUMP TEMPERATURES MUST BE CALCULATED
  7. C        AND THOSE FOR WHICH HEAT FLOWS MUST BE COMPUTED AT THE INNER
  8. C        SURFACE FROM AN ENERGY BALANCE.
  9. C     2. THOSE ELEMENTS WHICH ARE CONNECTED TO SEPARATE ZONES
  10. C   NOTE: WINDOWS WILL NOT BE CONSOLIDATED BUT WILL BE LINKED TO THE
  11. C         CONSOLIDATED ELEMENT
  12. C  * CALCULATE TOTAL WINDOW AREA IN CONSOLIDATED OUTSIDE ENCLOSURE WALLS
  13. C  * CALCULATE TOTAL NET WALL AREA (LESS WINDOW AREA) FOR OUTSIDE WALLS
  14. C  * CALCULATE TOTAL ROOF AREA ABOVE EACH ATTIC
  15. C
  16. C  INPUTS AS FORMAL PARAMETERS
  17. C    NRM  ZONE NO.
  18. C    IAREA  =1, CALC WINDOW AND ROOF AREAS
  19. C   IOPCRT = 0  ALL CONSOLID CRITERIA USED
  20. C          = 1  ONLY 1,2 CONSOLID CRITERIA USED ON OUTSIDE WALLS
  21. C
  22. C  INPUT FROM BLK IZZQ
  23. C    IZT  IZW FOR LAST ENCLOSURE ELEMENT IN PREVIOUS ZONE
  24. C - - - CONSTANTS
  25. CMDK NKONST
  26. CMDK NRF
  27. CMDK NWL
  28. CMDK NWN
  29. CMDK NWZN
  30. CMDK NZN
  31. CMDK NZW
  32.       PARAMETER (NLMX=10)
  33. C      NOTE:::::    IF NLMX NEEDS CHANGING, CHANGE IT IN CNSLD ALSO!      
  34. C - - - COMMON BLOCKS
  35. CMDK CNSTRK
  36. CMDK ENCBK1
  37. CMDK ENCBK2
  38. CMDK ENCBLK
  39. CMDK IRDFQ
  40. CMDK IZPART
  41. CMDK IZWQ
  42. CMDK IZZQ
  43. CMDK ROOF
  44. CMDK SOILB
  45. CMDK SURFAR
  46. CMDK WNDBLK
  47. C
  48.       DIMENSION NLA(10),NEL(10,NLMX),NELI(NLMX),NK2I(NWL),NELIQ(NLMX)
  49.      +         ,SROOFO(2), SROOFI(2)
  50. C
  51.       NILST=0
  52.       NK2=0
  53.       IF(IAREA.EQ.1)GO TO 130
  54. C
  55. C  BEGIN CONSOLIDATION, IF NEEDED TO REDUCE NO. OF ENCL ELEMENTS
  56.       N2=NWALLA(NRM)
  57.       DO 80 K2=1,N2
  58.       IZW=NENC(NRM,K2)
  59. C
  60. C  DETERMINE NET SURFACE AREAS OF ENCLOSURE ELEMENTS WITHOUT WINDOWS
  61. C  FOR USE IN AREA WEIGHTING IN SUBPROGRAM CNSLD
  62. C  NOTE: HEIGHT AND LENGTH OF SURFACE OF ENCLOSURE ELEMENTS
  63. C        INCLUDES WINDOWS, SO AREA OF WINDOWS MUST BE SUBTRACTED
  64. C        FROM WALL
  65.       ID=IDEXP(IZW)
  66.       SWA=0.
  67.       IF(ID.LE.4)THEN
  68.           N4=NWNDA(IZW)
  69.           IF(N4.EQ.0)GO TO 72
  70. C
  71.           DO 70 K4=1,N4
  72.           NW=NIWND(IZW,K4)
  73.           AWAWA(NW)=WHGTA(NW)*WWDTHA(NW)
  74.           SWA=SWA+AWAWA(NW)
  75.    70     CONTINUE
  76.           ENDIF
  77.    72 AWALLA(IZW)=HGTA(IZW)*XLENA(IZW)-SWA
  78.    80 CONTINUE
  79. C
  80. C  FIND ENCLOSURE ELEMENT NUMBERS FOR EACH IDEXP IN THIS ZONE,NRM
  81. C   (THESE NUMBERS ARE STORED IN ARRAY NEL AND TOTAL NO. OF VALUES
  82. C    ARE STORED IN ARRAY NLA
  83. C
  84.       DO 86 ID=1,10
  85.       NLA(ID)=0
  86.       NL=0
  87. C
  88.       DO 84 K2=1,N2
  89.       IZW=NENC(NRM,K2)
  90.       IF(ID.EQ.IDEXP(IZW))THEN
  91.           NL=NL+1
  92.           IF(NL.GT.NLMX)STOP 'CONSLD: INCREASE PARAMETER NLMX'
  93.           NEL(ID,NL)=K2
  94.           ENDIF
  95.    84 CONTINUE
  96.       NLA(ID)=NL
  97.       IF(NL.NE.0.AND.IDBG.NE.0)WRITE(60,500)NRM,ID,(NEL(ID,K),K=1,NL)
  98.    86 CONTINUE
  99. C
  100. C   NOW CHECK VALUES AT EACH IDEXP TO SEE IF CONSOLIDATION IS NEEDED
  101. C     (IT IS WHEN MORE THAN ONE ELEMENT IS CONNECTED TO SAME ZONE
  102. C      AND CONSOLIDATION CRITERIA ARE MET)
  103. C   NK2I ARRAY HOLDS NK2 ENCLOSURE NUMBERS FOR ENCLOSURES WITH THIS ID
  104. C   THAT ARE NO LONGER CANDIDATES FOR CONSOLIDATION.
  105. C   NK2 IS THE CUMULATIVE NUMBER OF ENCLOSURES IN THE NK2I ARRAY.
  106. C
  107.       DO 110 ID=1,10
  108. C  NL IS NO. OF NEL VALUES AT THIS ID
  109.       NL=NLA(ID)
  110.       IF(NL.EQ.0)GO TO 110
  111. C  IF(NL <= 1, NO CONSOLIDATION IS NEEDED
  112.       IF(NL.EQ.1)THEN
  113.           K2=NEL(ID,1)
  114.           NK2=NK2+1
  115.           NK2I(NK2)=K2
  116.           GO TO 110
  117.           ENDIF
  118. C
  119. C  NOW FOR THIS ID, CONSOLIDATE ELEMENTS CONNECTED TO SAME ZONE
  120. C    NI  STARTING INDICE FOR STARTING SEARCH IN NEL ARRAY FOR A
  121. C        NEW CONNECTING ZONE (SAVED IN NELI ARRAY)
  122. C    N   INDICE FOR NI IN NELI ARRAY
  123. C
  124. C  FIND ELEMENTS THAT MEET CONSOLIDATION CRITERIA:
  125. C     1. CONNECTED TO SAME ZONE
  126. C     2. NO. OF LAYERS OR LUMPS IN CONSTRUCTS IS THE SAME
  127. C     3. HEIGHT OF ENCLOSURE ELEMENT IS THE SAME
  128. C     4. ROOF OVERHANG IS THE SAME
  129. C     5. HEIGHT FROM TOP OF WALL TO ROOF OVERHANG IS THE SAME
  130. C     6. ABSORPTIVITY OF OUTSIDE SURFACE IS THE SAME
  131. C     7. ALWAYS SHADED DIR OF CONSTRUCT ARE THE SAME
  132. C     8. NOT INTERIOR PARTITION WALL BETWEEN ZONES
  133. C     9. NOT INTERIOR PARTITION WALLS WITH DIFFERENT CONSTR
  134. C    10. NOT BASEMENT FLOOR (ID=8)
  135. C    11. NOT BASEMENT WALL BELOW GROUND (ID=9)
  136. C    12. NOT AN ENCLOSURE ELEMENT WITH LEAKAGE OPENING
  137. C
  138.       NI=1
  139. C  ZERO ARRAY THAT HOLD INACTIVE INDICES
  140. C  INDICES BECOME INACTIVE WHEN:
  141. C    1. THEY HAVE BEEN ENTERED IN NK2I ARRAY
  142. C    2. OR THEY HAVE BEEN CONSOLIDATED
  143.       CALL ZERVI(10,NELIQ)
  144.        NLQ=1
  145.       NELIQ(NLQ)=NI
  146. C  SET K2 FOR NEXT ENCLOSURE ELE WITH NEW CONNECTING ZONE
  147.    90 K2=NEL(ID,NI)
  148.       NK2=NK2+1
  149.       NK2I(NK2)=K2
  150.       IZW=NENC(NRM,K2)
  151.       N=1
  152.       NELI(N)=NI
  153.       NZONC=NZNC(IZW)
  154.       KON=KONSTA(IZW)
  155.       IF(ID.LE.4)IFXI=IFXL(ID,KON)
  156.       NLUMP=NLMP(KON)
  157.       IF(ID.LE.4)THEN
  158.           HGT=HGTA(IZW)
  159.           OHANG=OHANGA(IZW)
  160.           HHANG=HHANGA(IZW)
  161.           WALFO=WALLFO(IZW)
  162.           ENDIF
  163.       IF(IDBG.NE.0)WRITE(60,509)NRM,IZW,NZONC,NLUMP
  164.       IF(ID.LE.4.AND.IDBG.NE.0)WRITE(60,511)HGT,OHANG,WALFO,HHANG
  165. C  NOW LOOK FOR OTHER ELEMENTS MEEING CONSOLIDATION CRITERIA
  166. C    AND STORE NL INDICE NO. IN NELI ARRAY.
  167. C  IFG IS A FLAG THAT IS SET TO 1 WHEN AN ELEMENT CONNECTED TO A
  168. C    NEW ZONE IS ENCOUNTERED.  THE NL INDICE OF THE ELEMENT CONNECTED
  169. C    TO A NEW ZONE IS SAVED AS NI, SO THAT THE NEXT SEARCH CAN BEGIN
  170. C    HERE RATHER THAN AT AN NL OF 1, SINCE NO ELMENTS IN NEL ARRAY
  171. C    WITH I<NI WILL BE CONNECTED TO NZON
  172. C
  173.       IFG=0
  174.       NISV=NI
  175.       IST=NISV+1
  176.       IF(IST.GT.NL)GO TO 108
  177.       NI=0
  178. C
  179.       DO  98 I=NISV+1,NL
  180. C  CHECK FOR INACTIVE INDICE
  181.       DO 91 J=1,NLQ
  182.       IF(NELIQ(J).EQ.I)GO TO 98
  183.    91 CONTINUE
  184.       IF(IDBG.NE.0)WRITE(60,513)I,NL
  185.       K2=NEL(ID,I)
  186.       IZW=NENC(NRM,K2)
  187. C         DONT CONSOLIDATE AN ELEMENT W/ A LEAKAGE OPENING
  188.       IF(WDLEAK(IZW).GT.0.)GO TO 94      
  189.       NZON=NZNC(IZW)-8
  190.       KONC=KONSTA(IZW)
  191.       IF(IDBG.NE.0)THEN
  192.       WRITE(60,515)ID,K2,IZW,NZONC,NZNC(IZW),NLUMP,NLMP(KONC)
  193.           ENDIF
  194. C  DONT CONSOLIDATE A MIRROR IMAGE
  195.       DO 92 IRQ=1,NZW
  196.    92 IF(IZSET(IRQ).EQ.IZW)GO TO 94
  197.  
  198. C  DONT CONSOLID A BASEMENT FLOOR OR BELW GRND WALL
  199.       IF(ID.EQ.8.OR.ID.EQ.9)GO TO 94
  200. C  IF SAME CONNECTING ZONE & SAME NO. OF LUMPS & NOT OUTSIDE WALL, THEN      
  201.       IF(NZONC.EQ.NZNC(IZW).AND.NLUMP.EQ.NLMP(KONC).AND.ID.GT.4)THEN
  202. C - - DONT CONSOLIDATE INTERIOR PARTITION WALLS BETWEEN ZONES
  203.           IF(IDBG.NE.0)WRITE(60,517)NRM,ID,IZW,NZON
  204.           IF(ID.EQ.7.AND.NZON.NE.NRM)THEN
  205.               IF(NZNC(IZW).NE.6)THEN
  206. C                WRITE(60,519)IZW,ID,NZON,NRM
  207.                 GO TO 94
  208.               ENDIF
  209.           ENDIF
  210. C - - DONT CONSOLIDATE INTERIOR PARTITION WALLS WITH DIFFERNT
  211. C                    CONSTRUCTS
  212.           IF(ID.EQ.7.AND.KON.NE.KONC)THEN
  213. C              WRITE(60,520)IZW,ID,NZON,NRM,KONC,KON
  214.               GO TO 94
  215.               ENDIF
  216.           IF(IDBG.NE.0)WRITE(60,518)NRM,ID,IZW,KONC,KON
  217.           GO TO 93
  218.           ENDIF
  219. C  IF SAME CONNECTING ZONE & SAME NO. OF LUMPS & OUTSIDE WALL, THEN          
  220.       IF(NZONC.EQ.NZNC(IZW).AND.NLUMP.EQ.NLMP(KONC).AND.ID.LE.4)THEN
  221.           IF(IDBG.NE.0)THEN
  222.           WRITE(60,516)OHANG,OHANGA(IZW),WALFO,WALLFO(IZW),
  223.      +                HHANG,HHANGA(IZW),HGT,HGTA(IZW),
  224.      +                IFXI,IFXL(ID,KONC)
  225.               ENDIF
  226.           IF(IOPCRT.EQ.1)GO TO 93
  227. C  MEET CONSIDATION CRITERIAS 4,6,5,3,7 ?          
  228.           IF(OHANG.EQ.OHANGA(IZW).AND.WALFO.EQ.WALLFO(IZW))THEN
  229.               IF(HHANG.EQ.HHANGA(IZW).AND.HGT.EQ.HGTA(IZW))THEN
  230.               IF(IFXI.EQ.IFXL(ID,KONC))GO TO 93
  231.                   ENDIF
  232.               ENDIF
  233.           ENDIF
  234.       GO TO 94
  235. C
  236. C  AHA!!!!!!!! FOUND ENCLOSURE ELE TO CONSOLIDATE
  237.   93  N=N+1
  238.       NELI(N)=I
  239.       NLQ=NLQ+1
  240.       NELIQ(NLQ)=I
  241.       IF(IDBG.NE.0)WRITE(60,501)NZONC,IZW,I,NLUMP
  242.       IF(IDBG.NE.0)WRITE(60,512)HGT,OHANG,WALFO,HHANG
  243.       GO TO 98
  244. C
  245. C  SAVE INDICE, NI, OF NEXT ENCLOSURE ELEMENT WITH NEW CONNECTING ZONE
  246.    94 IF(IFG.EQ.0)THEN
  247. C         CHECK FOR INACTIVE INDICE
  248.           IQZL=0
  249.           DO 96 J=1,NLQ
  250.           IF(NELIQ(J).EQ.I)IQZL=1
  251.    96     CONTINUE
  252.           IF(IQZL.EQ.0)THEN
  253.               NLQ=NLQ+1
  254.               NELIQ(NLQ)=NI
  255.               NILST=NI
  256.               NI=I
  257.               IF(IDBG.NE.0)WRITE(60,502)I,NZONC,IZW
  258.               IFG=1
  259.               ENDIF
  260.           ENDIF
  261.    98 CONTINUE
  262.       IF(IDBG.NE.0)WRITE(60,514)I,NL,N,NI
  263.       IF(NI.EQ.0)THEN
  264.           NI=NISV
  265.           NILST=NI
  266.           ENDIF
  267. C  NO CONSOLIDATION NEEDED IF ONLY ONE ENCL CONNECTED TO NEW ZONE
  268.       IF(N.EQ.1)GO TO 108
  269. C
  270. C  NOW CONSOLIDATE ALL ELEMENTS CONNECTED TO SAME ZONE
  271. C - - - - - - - - -PARAMETERS PASSED TO CNSLD
  272. C  NRM  ZONE NO.
  273. C  ID   IDEXP VALUE
  274. C  N    NO. OF ENCLOSURE ELEMENTS TO CONSOLIDATE INTO FIRST ELEMENT
  275. C  NELI NL INDICE OF NEL ARRAY FOR EACH N ELEMENTS
  276. C  NEL  ENCLOSURE SEQUENCE NO. (K2 VALUE -- SEE CNSLD(FIRST PAGE))
  277.       IF(IDBG.NE.0)WRITE(60,503)NRM,ID
  278.       IF(IDBG.NE.0)WRITE(60,504)(NELI(I),I=1,N)
  279.       IF(IDBG.NE.0)WRITE(60,505)(NEL(ID,I),I=1,NL)
  280.       CALL CNSLD(NRM,ID,N,NELI,NEL)
  281.       NWALLA(NRM)=NWALLA(NRM)-(N-1)
  282. C
  283. C  GO TO NEW ID SINCE I = NL WITHOUT FINDING NEW CONNECTING ZONE
  284.   108 IF(IDBG.NE.0)WRITE(60,506)NI,NILST,N
  285.       IF(NI.EQ.NILST)GO TO 110
  286. C
  287.       NILST=NI
  288.       GO TO 90
  289. C
  290.   110 CONTINUE
  291. C
  292. C  NOW REDUCE ENCLOSURE ARRAYS TO ONLY EFFECTIVE ELEMENTS
  293. C
  294. C    CHECK FOR PROPER NO. OF ENCLOSURE ELEMENTS
  295.       IF(NWALLA(NRM).NE.NK2)WRITE(60,508)NWALLA(NRM),NK2
  296. C
  297. C RESET CONSOLIDATED ELEMENTS IN ENCLOSURE ARRAYS TO REDUCE STORAGE
  298. C
  299.       CALL RESETE(NRM,N2,NK2,NK2I,IDBG)
  300.       IZT2=IZT+2
  301.       IF(NRM.EQ.NROOMS)WRITE(60,524)IZT2,NZW
  302.       IF(IZT2.LE.NZW)GO TO 160
  303. C       2 IS ADDED TO IZT FOR ROOF TEMPS
  304.       WRITE(60,*)' CONSLD: NZW MUST BE INCREASED TO ',IZT2  
  305.       STOP 'CONSLD: INCREASE NZW-- SEE TAPE6 OUTPUT'
  306. C
  307. C  ENTER BELOW AFTER ALL CONSOLIDATION IS COMPLETE AND IAREA=1
  308.   130 CONTINUE
  309. C
  310. C  NOW CALC TOTAL WINDOW AREA (AWAW) AND TOTAL FLOOR AREA(AFLRT) IN EA
  311. C  ZONE AND CALC NET WALL AREA FOR EACH ENCLOSURE ELEMENT
  312. C    AND SET AREAS OF BASMT FLOOR AND BLW GRND BASMT WALL
  313. C    AND SET MASS*CP OF EACH LAYER OF EACH ENCLOSURE ELEMENT
  314.       IZWQ=0
  315.       IZWR=0
  316. C -  -  -  -  -  -  -  -
  317.       DO 140 J=1,NROOMS
  318.       NRM=NRMA(J)
  319.       N2=NWALLA(NRM)
  320.       SWA=0.
  321.       SFA=0.
  322. C  -  -  -  -  -  -  -  -
  323.       DO 138 K2=1,N2
  324.       IZW=NENC(NRM,K2)
  325.       KON=KONSTA(IZW)
  326.       ID=IDEXP(IZW)
  327.       SWAW=0.
  328.       IF(ID.EQ.6.OR.ID.EQ.8)SFA=SFA+HGTA(IZW)*XLENA(IZW)
  329.       IF(ID.EQ.8)THEN
  330. C             BASMT FLOOR
  331.           IZWQ=IZWQ+1
  332.           ABASF(IZWQ)=HGTA(IZW)*XLENA(IZW)
  333.           IZWD(IZWQ)=IZW
  334.           ENDIF
  335.       IF(ID.EQ.9)THEN
  336. C            BLW GRND BSMT WALL
  337.           IZWR=IZWR+1
  338.           IZWE(IZWR)=IZW
  339.           ENDIF
  340.       IF(ID.LE.4)THEN
  341.           N4=NWNDA(IZW)
  342.           IF(N4.EQ.0)GO TO 135
  343.           DO 134 K4=1,N4
  344.           NW=NIWND(IZW,K4)
  345.           AWAWA(NW)=WHGTA(NW)*WWDTHA(NW)
  346.           SWA=SWA+AWAWA(NW)
  347.           SWAW=SWAW+AWAWA(NW)
  348.   134     CONTINUE
  349.   135     AWALLA(IZW)=HGTA(IZW)*XLENA(IZW)-SWAW
  350.           ENDIF
  351.   138 CONTINUE
  352.       AWAWT(NRM)=SWA
  353.       AFLRT(NRM)=SFA
  354.   140 CONTINUE
  355.       CLOSE(23)
  356.       IF(IZWQ.NE.2)WRITE(60,525)IZWQ
  357.       IF(IZWR.NE.4)WRITE(60,526)IZWR
  358. C  SET ZERO WALL AREA  FOR USE WHEN A WALL IS NOT INCLUDED (E.G. GARAG)
  359.       AWALLA(IZT+1)=0.
  360. C
  361. C  NOW CALC SURF AREA OF ROOF ABOVE EACH ATTIC
  362.       RAREA(1)=0.
  363.       RAREA(2)=0.
  364.       NATC=0
  365.       SROOFO(1)=0.
  366.       SROOFO(2)=0.
  367.       SROOFI(1)=0.
  368.       SROOFI(2)=0.
  369.       DO 150 I=1,NSECTA
  370.       IF(NATTC(I).EQ.1)THEN
  371.           NATC=1
  372.           RAREA(1)=RAREA(1)+SECTAA(I)
  373.           SROOFO(1)=SROOFO(1)+ROOFO(I)*SECTAA(I)
  374.           SROOFI(1)=SROOFI(1)+ROOFI(I)*SECTAA(I)
  375.           KONRF(1)=KONSTR(I)
  376. C  NOTE: ALL ROOF SECTIONS ABOVE ONE ATTIC MUST HAVE SAME CONSTRUCT NO.
  377.           ENDIF
  378.       IF(NATTC(I).EQ.2)THEN
  379.           NATC=2
  380.           RAREA(2)=RAREA(2)+SECTAA(I)
  381.           SROOFO(2)=SROOFO(2)+ROOFO(I)*SECTAA(I)
  382.           SROOFI(2)=SROOFI(2)+ROOFI(I)*SECTAA(I)
  383.           KONRF(2)=KONSTR(I)
  384.           ENDIF
  385.       WRITE(60,510)I,NATTC(I),RAREA(1),RAREA(2)
  386.   150 CONTINUE
  387.       IF(NZW.LT.(IZT+NATC))THEN
  388.           STOP 'CONSLD: NZW MUST BE INCR TO ACCOM ROOF TEMPS'
  389.           ENDIF
  390.       IF(RAREA(2).EQ.0.)RAREA(2)=.0000001
  391.       IF(RAREA(1).EQ.0.)STOP 'STRCTL: RAREA(1)=0.!!!'
  392.       DO 152 I=1,2
  393.       ROFOM(I)=SROOFO(I)/RAREA(I)
  394.       ROFIM(I)=SROOFI(I)/RAREA(I)
  395.   152 CONTINUE
  396.   160 CONTINUE
  397.       RETURN
  398.   500 FORMAT(1X,'CONSLD:NRM,ID= ',2I5/
  399.      +10X,'K2S= ',10I4)
  400.   501 FORMAT(1X,'CONSLD:ENCL NO. CONNECTED TO ZONE ',I4,'  = ',I4/
  401.      +10X,' INDICE I= ',I4,'  NLUMP= ',I5)
  402.   502 FORMAT(1X,'CONSLD: INDICE OF NEXT ENCL ELE WITH NEW CONNTG ZONE=',
  403.      +I4,'   NZONE,IZW= ',2I4)
  404.   503 FORMAT(/,'CONSLD:NRM,ID AT CALL TO CNSLD= ',2I5)
  405.   504 FORMAT(9X,'NELI= ',10I4)
  406.   505 FORMAT(9X,'NEL= ',10I4)
  407.   506 FORMAT(1X,'CONSLD(AFTER CNSLD CALL):NI,NILST,N= ',3I4)
  408.   507 FORMAT(1X,'CONSLD(AFTER CNSLD CALL):NI,NL= ',2I4)
  409.   508 FORMAT(/,'CONSLD:IMPROPER NO. OF ENCLOSURE ELEMENTS - - - -'/
  410.      +1X,'       NWALLA(NRM),NK2= ',2I5)
  411.   509 FORMAT(/,'* * * ZONE= ',I3,'   ENCL. NO.= ',I3,
  412.      +'  IS CONNECTED TO ZONE ',I3,'  NLUMP= ',I5)
  413.   510 FORMAT(1X,'ROOF SECTION ',I3,'  ATTIC NO.',I3,
  414.      +'  CUMULATIVE ROOF AREA= ',2G13.5)
  415.   511 FORMAT(5X,'HGT,OHANGA,WALLFO,HHANGA= ',4G13.5)
  416.   512 FORMAT(10X,'HGT,OHANGA,WALLFO,HHANGA= ',4G13.5)
  417.   513 FORMAT(15X,'SEARCH:INDICE BEING CHECKED FOR CONSOLID= ',I5/
  418.      +       22X,'TOTAL INDICES FOR THIS ID ARE = ',I5)
  419.   514 FORMAT(16X,'AFTER 98 CONTINUE:INDICE(I) OF NEL ARRAY,WHICH'/
  420.      +16X,' HOLDS IZW S OF ENCLOSURE ELE AT THIS ID= ',I4/
  421.      +16X,'NO.(NL) OF ENCLOSURE ELE S AT THIS ID= ',I4/
  422.      +16X,'NO.(N) OF ELCLOSURE ELE S IN NELI ARRAY= ',I4/
  423.      +16X,'STARTING INDICE NO.(NI) FOR STARTING A NEW SEARCH FOR '/
  424.      +16X,'CONNECTING ZONES ,STORED IN NELI ARRAY,= ',I4)
  425.   515 FORMAT(1X,'ID= ',I3,' K2= ',I4,' IZW= ',I4/
  426.      +10X,'NZONC= ',I5,'  NZNC=',I5/10X,'NLUMP= ',I5,'  NLMP= ',I5)
  427.   516 FORMAT(10X,'OHANG= ',G13.5,' OHANGA= ',G13.5/
  428.      +10X,'WALFO= ',G13.5,'WALLFO= ',G13.5/10X,'HHANG= ',G13.5,
  429.      +'  HHANGA= ',G13.5/10X,'HGT= ',G13.5,'  HGTA= ',G13.5/
  430.      +10X,'IFXI= ',I3,'  IFXL= ',I3)
  431.   517 FORMAT(/,'NRM,ID,IZW,NZON= ',4I5)
  432.   518 FORMAT(/,'NRM,ID,IZW,KONC,KON= ',5I5)
  433. C  519 FORMAT(/,'DIDNT CONSOLIDATE INTERIOR WALL--IZW,ID= ',2I4/
  434. C     +10X,'CONNECTING ZONE= ',I4,'  THIS ZONE= ',I4)
  435. C  520 FORMAT(/,'DIDNT CONSOLIDATE INTERIOR WALL--IZW,ID= ',2I4/
  436. C     +10X,'CONNECTING ZONE= ',I4,'  THIS ZONE= ',I4/
  437. C     +10X,'CONSTRUCT NO.= ',I4,'  CF CONSTRUCT FOR FIRST ELE AT',
  438. C     +1X,'THIS ID= ',I4)
  439.   521 FORMAT(/,'CONSLD:IZW,IZSET(IZW)--OLD,IZSET(IZW)--NEW= ',
  440.      +3I4)
  441.   522 FORMAT((1X,'I,IZSET(I),IZQ(I)= ',3I4))
  442.   523 FORMAT((1X,'I,IZSET(I)= ',2I4))
  443.   524 FORMAT(/,5(1H*),' NO. OF ENCLOSURE ELEMENTS REQD= ',I3,
  444.      +' VS MAX ALLOWED(NZW)= ',I3)
  445.   525 FORMAT(//,'CONSLD:--OOH,OOH!! NO. OF BSMT FLOOR ELEMENTS SHOULD',
  446.      +' BE 2 RATHER THAN ',I3//)
  447.   526 FORMAT(//,'CONSLD:--OH,OOH!! NO. OF BELW GRND BSMT WALL ELEMENTS',
  448.      +' SHOULD BE 4 RATHER THAN ',I3//)
  449.       END
  450.