[u/mrichter/AliRoot.git] / GEANT321 / ggeom / gfcord.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1995/10/24 10:20:48  cernlib
* Geant
*
*
#include "geant321/pilot.h"
*CMZ :  3.21/02 29/03/94  15.41.28  by  S.Giani
*-- Author :
      SUBROUTINE GFCORD(NIN,CLOW,CHIGH,CORD,ITYPE,ICON)
C.
C.    *****************************************************************
C.    *                                                               *
C.    *    ROUTINE TO ORDER THE VALUES IN CLOW AND CHIGH INTO CORD    *
C.    *    WHILST STORING A 1 IN ITYPE IF THE VALUE IS FROM CLOW      *
C.    *    AND A 2 IF FROM CHIGH. THE SEQUENCE NUMBER OF THE VALUE    *
C.    *    IS STORED IN ICON. THERE ARE NIN VALUES IN EACH OF CLOW    *
C.    *    AND CHIGH.                                                 *
C.    *                                                               *
C.    *    ==>Called by : GGORD                                       *
C.    *         Author  A.McPherson  *********                        *
C.    *                                                               *
C.    *****************************************************************
C.
      DIMENSION CLOW(2),CHIGH(2),CORD(2),ITYPE(2),ICON(2)
C.
C.       -----------------------------------------------------
C.
      IC=0
      DO 60 IN=1,NIN
C
      ITRY=1
      CTRY=CLOW(IN)
C
      IPL=1
      IF(IC.EQ.0) GO TO 50
C
   10 CONTINUE
C
      DO 20 I=1,IC
      IF(CORD(I).LE.CTRY) GO TO 20
      IPL=I
      GO TO 30
   20 CONTINUE
C
      IPL=IC+1
      GO TO 50
C
   30 CONTINUE
      DO 40 I=IPL,IC
C
      IC1=IC+IPL-I
      IC2=IC1+1
      CORD(IC2)=CORD(IC1)
      ICON(IC2)=ICON(IC1)
      ITYPE(IC2)=ITYPE(IC1)
C
   40 CONTINUE
C
   50 CONTINUE
C
      IC=IC+1
      CORD(IPL)=CTRY
      ITYPE(IPL)=ITRY
      ICON(IPL)=IN
C
      IF(ITRY.NE.1) GO TO 60
      ITRY=2
      CTRY=CHIGH(IN)
      GO TO 10
C
   60 CONTINUE
C
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1995/10/24 10:20:48 cernlib
	6	* Geant
	7	*
	8	*
	9	#include "geant321/pilot.h"
	10	*CMZ : 3.21/02 29/03/94 15.41.28 by S.Giani
	11	*-- Author :
	12	SUBROUTINE GFCORD(NIN,CLOW,CHIGH,CORD,ITYPE,ICON)
	13	C.
	14	C. *****************************************************************
	15	C. * *
	16	C. * ROUTINE TO ORDER THE VALUES IN CLOW AND CHIGH INTO CORD *
	17	C. * WHILST STORING A 1 IN ITYPE IF THE VALUE IS FROM CLOW *
	18	C. * AND A 2 IF FROM CHIGH. THE SEQUENCE NUMBER OF THE VALUE *
	19	C. * IS STORED IN ICON. THERE ARE NIN VALUES IN EACH OF CLOW *
	20	C. * AND CHIGH. *
	21	C. * *
	22	C. * ==>Called by : GGORD *
	23	C. * Author A.McPherson ********* *
	24	C. * *
	25	C. *****************************************************************
	26	C.
	27	DIMENSION CLOW(2),CHIGH(2),CORD(2),ITYPE(2),ICON(2)
	28	C.
	29	C. -----------------------------------------------------
	30	C.
	31	IC=0
	32	DO 60 IN=1,NIN
	33	C
	34	ITRY=1
	35	CTRY=CLOW(IN)
	36	C
	37	IPL=1
	38	IF(IC.EQ.0) GO TO 50
	39	C
	40	10 CONTINUE
	41	C
	42	DO 20 I=1,IC
	43	IF(CORD(I).LE.CTRY) GO TO 20
	44	IPL=I
	45	GO TO 30
	46	20 CONTINUE
	47	C
	48	IPL=IC+1
	49	GO TO 50
	50	C
	51	30 CONTINUE
	52	DO 40 I=IPL,IC
	53	C
	54	IC1=IC+IPL-I
	55	IC2=IC1+1
	56	CORD(IC2)=CORD(IC1)
	57	ICON(IC2)=ICON(IC1)
	58	ITYPE(IC2)=ITYPE(IC1)
	59	C
	60	40 CONTINUE
	61	C
	62	50 CONTINUE
	63	C
	64	IC=IC+1
65	CORD(IPL)=CTRY
66	ITYPE(IPL)=ITRY
67	ICON(IPL)=IN
68	C
69	IF(ITRY.NE.1) GO TO 60
70	ITRY=2
71	CTRY=CHIGH(IN)
72	GO TO 10
73	C
74	60 CONTINUE
75	C
76	END