GEANT321/ggeom/gfcord.F

   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