[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / qutil / ztopsy.F

*
* $Id$
*
* $Log$
* Revision 1.2  1996/04/18 16:13:49  mclareni
* Incorporate changes from J.Zoll for version 3.77
*
* Revision 1.1.1.1  1996/03/06 10:47:15  mclareni
* Zebra
*
*
#include "zebra/pilot.h"
      SUBROUTINE ZTOPSY (IXSTOR,LGOP)

C-    Invert order of banks in a linear stucture

#include "zebra/q.inc"
C--------------    END CDE                             --------------
      DIMENSION    LGOP(9)

#include "zebra/q_jbyt.inc"

      LN = LGOP(1)
      IF (LN.EQ.0)           RETURN

#include "zebra/qstore.inc"

      KGO = LQ(KQS+LN+2)
      LC  = 0

   21 LP = LC
      LC = LN
      LN = LQ(KQS+LN)
      LQ(KQS+LC)   = LP
      LQ(KQS+LC+2) = LN
      IF (LN.NE.0)                 GO TO 21

      IF (KGO.NE.0)  LQ(KQS+KGO) = LC
      LQ(KQS+LC+2) = KGO
      LGOP(1)   = LC
      RETURN
      END
*      ==================================================
#include "zebra/qcardl.inc"
Commit	Line	Data
fe4da5cc	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"