MINICERN/packlib/zebra/qutil/ztopsy.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.2  1996/04/18 16:13:49  mclareni
   6 * Incorporate changes from J.Zoll for version 3.77
   7 *
   8 * Revision 1.1.1.1  1996/03/06 10:47:15  mclareni
   9 * Zebra
  10 *
  11 *
  12 #include "zebra/pilot.h"
  13       SUBROUTINE ZTOPSY (IXSTOR,LGOP)
  14
  15 C-    Invert order of banks in a linear stucture
  16
  17 #include "zebra/q.inc"
  18 C--------------    END CDE                             --------------
  19       DIMENSION    LGOP(9)
  20
  21 #include "zebra/q_jbyt.inc"
  22
  23       LN = LGOP(1)
  24       IF (LN.EQ.0)           RETURN
  25
  26 #include "zebra/qstore.inc"
  27
  28       KGO = LQ(KQS+LN+2)
  29       LC  = 0
  30
  31    21 LP = LC
  32       LC = LN
  33       LN = LQ(KQS+LN)
  34       LQ(KQS+LC)   = LP
  35       LQ(KQS+LC+2) = LN
  36       IF (LN.NE.0)                 GO TO 21
  37
  38       IF (KGO.NE.0)  LQ(KQS+KGO) = LC
  39       LQ(KQS+LC+2) = KGO
  40       LGOP(1)   = LC
  41       RETURN
  42       END
  43 *      ==================================================
  44 #include "zebra/qcardl.inc"