MINICERN/packlib/zebra/mqg/mzrelx.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.2  1996/04/18 16:12:42  mclareni
   6 * Incorporate changes from J.Zoll for version 3.77
   7 *
   8 * Revision 1.1.1.1  1996/03/06 10:47:20  mclareni
   9 * Zebra
  10 *
  11 *
  12 #include "zebra/pilot.h"
  13       SUBROUTINE MZRELX
  14
  15 C-    Execute normal relocation of links in banks and in link areas
  16
  17 #include "zebra/zstate.inc"
  18 #include "zebra/zunit.inc"
  19 #include "zebra/mqsys.inc"
  20 #include "zebra/mzct.inc"
  21 C--------------    End CDE                             --------------
  22 #if (defined(CERNLIB_QTRHOLL))&&(!defined(CERNLIB_A6M))
  23       DIMENSION    NAMESR(2)
  24       DATA  NAMESR / 4HMZRE, 4HLX   /
  25 #endif
  26 #if (defined(CERNLIB_QTRHOLL))&&(defined(CERNLIB_A6M))
  27       DATA  NAMESR / 6HMZRELX /
  28 #endif
  29 #if !defined(CERNLIB_QTRHOLL)
  30       CHARACTER    NAMESR*8
  31       PARAMETER   (NAMESR = 'MZRELX  ')
  32 #endif
  33
  34
  35 #include "zebra/qtrace.inc"
  36
  37 #if defined(CERNLIB_QDEVZE)
  38       IF (NQDEVZ.LT.11)            GO TO 29
  39       WRITE (IQLOG,9821) LQMTA,LQMTE
  40  9821 FORMAT (1X/' DEVZE MZRELX,  Memory Occupation Table,'
  41      F,' LQMTA,LQMTE= ',2I8/16X,
  42      F' DIV ACT     NWS    LFBK  LLBK+1     JFE     JLE    FREE')
  43
  44       WRITE (IQLOG,9822) (LQ(J),J=LQMTA,LQMTE-1)
  45  9822 FORMAT (16X,2I4,6I8)
  46
  47       WRITE (IQLOG,9823) LQRTA,LQTA,LQTE,LQ(LQTA-1)
  48  9823 FORMAT (1H0,15X,'Link Relocation Table,'
  49      F,' LQRTA,LQTA,LQTE= ',3I8
  50      F/16X,'   LOC       L      LE    NREL  BG'
  51      F/30X,I8)
  52
  53       IF (LQTE.LE.LQTA)            GO TO 25
  54       I  = LQRTA
  55       JA = LQTA - I
  56       JE = LQTE - I - 1
  57       WRITE (IQLOG,9824) (J,LQ(I+J),LQ(I+J+1),LQ(I+J+2),LQ(I+J+3),
  58      +                                           J=JA,JE,4)
  59  9824 FORMAT (16X,I6,3I8,I4)
  60
  61    25 WRITE (IQLOG,9825) LQ(LQTE)
  62  9825 FORMAT (22X,I8)
  63    29 CONTINUE
  64 #endif
  65
  66       L = LQSYSS(KQT+1)
  67       IF (L.NE.0)  THEN
  68           IQ(KQS+L+3) = IQ(KQS+L+2) + NQLINK
  69           CALL MZRELL (IQ(KQS+L+1))
  70         ENDIF
  71
  72       CALL MZRELB
  73 #include "zebra/qtrace99.inc"
  74       RETURN
  75       END
  76 *      ==================================================
  77 #include "zebra/qcardl.inc"