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 / RESETE.FOR < prev    next >
Text File  |  1992-04-15  |  4KB  |  112 lines
  1.       SUBROUTINE RESETE(NRM,N2,NK2,NK2I,IDBG) 
  2. C 
  3. C  RESET ENCLOSURE ARRAYS TO REDUCE STORAGE 
  4. C 
  5. C  INPUTS 
  6. C    NRM  ZONE NO.
  7. C    N2   TOTAL NO. OF ENCLOSURE ELE IN ZONE NRM BEFORE CONSOLIDATION 
  8. C    NK2  NO. OF EFFECTIVE ENCLOSURE ELEMENTS IN THIS ZONE
  9. C    NK2I ARRAY OF EFFECTIVE K2 VALUES FOR THIS ZONE
  10. C 
  11. C  OUTPUTS
  12. C    RESET ENCLOSURE ARRAYS 
  13. C    IZT  IZW INDICE NO. AT END OF THIS ZONE
  14. C 
  15. C - - - CONSTANTS 
  16. CMDK NWL
  17. CMDK NZN
  18. CMDK NZW
  19. C 
  20. C - - - COMMON BLOCKS 
  21. CMDK ENCBK1
  22. CMDK IZPART
  23. CMDK IZZQ
  24. C 
  25.       DIMENSION NK2I(NWL) 
  26.       IDBGSV=IDBG 
  27. C     IDBG=1
  28. C 
  29. C   RESET ENCLOSURE ARRAYS
  30.       IF(IDBG.NE.0)THEN 
  31.           WRITE(60,501)NRM 
  32.           WRITE(60,512)NRM,(NK2I(NK),NK=1,NK2) 
  33.           WRITE(60,513)NRM,(NK,NENC(NRM,NK),NK=1,N2) 
  34.           ENDIF 
  35.       DO 2 JT=1,NROOMS
  36.       NRMQ=NRMA(JT) 
  37.       IF(NRMQ.EQ.NRM)GO TO 2
  38.       N2Q=NWALLA(NRMQ)
  39.       IF(N2Q.EQ.0)GO TO 2 
  40.       IF(IDBG.NE.0)WRITE(60,513)NRMQ,(NK,NENC(NRMQ,NK),NK=1,N2Q) 
  41.     2 CONTINUE
  42.       IZ=IZT
  43.       DO 4 K2I=1,NK2
  44.       K2=NK2I(K2I)
  45.     4 IZWACT(K2I)=NENC(NRM,K2)
  46. C  SORT THESE VALUES IN ASCENDING ORDER W/ BUBBLE SORT
  47.       DO 6 I=1,NK2
  48.       DO 6 J=1,NK2-1
  49.       IF(IZWACT(J+1).LT.IZWACT(J))THEN
  50.           IDUM=IZWACT(J+1)
  51.           IZWACT(J+1)=IZWACT(J) 
  52.           IZWACT(J)=IDUM
  53.           ENDIF 
  54.     6     CONTINUE
  55.       IF(IDBG.NE.0)WRITE(60,514)NRM,(I,IZWACT(I),I=1,NK2)
  56.       DO 40 K2I=1,NK2 
  57.       IZW=IZWACT(K2I) 
  58.       IZ=IZ+1 
  59.       CALL RESUTL(NRM,K2I,IZW,IZ,IDBG)
  60. C *    *     *    *   *   *  BOTTOM OF MAIN LOOP!!!!
  61.    40 CONTINUE
  62. C  NOW CHECK TO SEE IF IZW IN OTHER ZONES CAN BE MOVED TO LOWER IZ
  63. C  NEXT STMT:  NO POINT IN MOVING IZW S IN LAST ZONE TO LOWER VALUES 
  64. C              BECAUSE CONSOLID WONT REDUCE STORAGE REQD TO THIS POINT
  65.       IF(NRM.EQ.NROOMS)GO TO 70 
  66.       NRM1=NRM+1
  67.       DO 60 JT=NRM1,NROOMS
  68.       NRMQ=NRMA(JT) 
  69.       IF(NRMQ.EQ.0)GO TO 60 
  70.       N2Q=NWALLA(NRMQ)
  71.       IF(N2Q.EQ.0)GO TO 60
  72.       DO 50 K2Q=1,N2Q 
  73.       IZWQ=NENC(NRMQ,K2Q) 
  74.       IF(IZWQ.EQ.(IZ+1))THEN
  75.           IZ=IZ+1 
  76.           IF(IDBG.NE.0)WRITE(60,506)IZWQ 
  77.           GO TO 50
  78.           ENDIF 
  79.       IF(IZWQ.GT.(IZ+1))THEN
  80.           IZ=IZ+1 
  81.           CALL RESUTL(NRMQ,K2Q,IZWQ,IZ,IDBG)
  82.           ENDIF 
  83.    50 CONTINUE
  84.    60 CONTINUE
  85. C  SET NO. OF ENCLOSURE ELEMENTS AT END OF THIS ZONE
  86.    70 IZT=IZ
  87.       IDBG=IDBGSV 
  88.       RETURN
  89.   500 FORMAT(20X,'FOR ZONE ',I4,' ENCLOSURE NO.(IZW) ',I3,
  90.      +'  CHANGED TO ',I4) 
  91.   501 FORMAT(1H0,9(1H*),'RESET ENCLOSURE ARRAYS TO REDUCE STORAGE', 
  92.      +' FOR ZONE ',I4)
  93.   502 FORMAT(10X,'BEGIN SEARCH FOR FEASIBLE IZ; K2I,IZW,IZ= ',3I5)
  94.   503 FORMAT(12X,'IZW=IZ, SO NO NEED TO RESET;IZW= ',I3)
  95.   504 FORMAT(15X,'NRMQ,K2Q,IZWQ,IZ= ',4I5)
  96.   505 FORMAT(12X,'IZW LT IZ, SO DONT RESET:IZW,IZ= ',2I3) 
  97.   506 FORMAT(15X,'FOUND IZW IN ZONE ',I3,' THAT = IZ, SO ', 
  98.      +'INCREMENT IZ;IZW FOUND= ',I3)
  99.   507 FORMAT(20X,'POINTER FOR OLD IZ(K2J)= ',I5,'  POINTER FOR NEW',
  100.      +' IZ(K2I)= ',I5/20X,'IZW AT OLD IZ(NENC(NRM,K2I))= ',I4)
  101.   508 FORMAT(15X,'LOOKING FOR EXISTING IZW=IZ IN ZONE ',I4) 
  102.   509 FORMAT(15X,'   **DIDNT FIND AN EXISTING IZW=IZ IN ZONE ',I4)
  103.   510 FORMAT(20X,'LOOKING FOR K2 AT ORIG IZW=NEW IZ') 
  104.   511 FORMAT(20X,'  K2J,IZWQ,IZ= ',3I4) 
  105.   512 FORMAT(1X,'K2 POINTERS TO ACTIVE IZWS IN ZONE ',I3,' ARE:'/ 
  106.      +2X,24I3)
  107.   513 FORMAT(1X,'FOR ZONE ',I3,' AVAILABLE IZW S ARE: '/
  108.      +(20X,'K2,IZW= ',2I4)) 
  109.   514 FORMAT(10X,'HERE ARE SORTED ACTIVE IZW S IN ZONE =',I3/ 
  110.      +(20X,'K2,IZW= ',2I4)) 
  111.       END 
  112.