GEANT321/ggeom/gsord.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:56  cernlib
   6 * Geant
   7 *
   8 *
   9 #include "geant321/pilot.h"
  10 *CMZ :  3.21/02 29/03/94  15.41.30  by  S.Giani
  11 *-- Author :
  12       SUBROUTINE GSORD (CHNAME, IAX)
  13 C.
  14 C.    *****************************************************************
  15 C.    *                                                               *
  16 C.    *    Flags volume CHNAME whose contents will have to be ordered   *
  17 C.    *    along axis IAX, by setting the search flag to -IAX         *
  18 C.    *           IAX = 1    X axis                                   *
  19 C.    *           IAX = 2    Y axis                                   *
  20 C.    *           IAX = 3    Z axis                                   *
  21 C.    *           IAX = 4    Rxy (static ordering only  -> GTMEDI)    *
  22 C.    *           IAX = 14   Rxy (also dynamic ordering -> GTNEXT)    *
  23 C.    *           IAX = 5    Rxyz (static ordering only -> GTMEDI)    *
  24 C.    *           IAX = 15   Rxyz (also dynamic ordering -> GTNEXT)   *
  25 C.    *           IAX = 6    PHI   (PHI=0 => X axis)                  *
  26 C.    *           IAX = 7    THETA (THETA=0 => Z axis)                *
  27 C.    *                                                               *
  28 C.    *    Called by : <USER>                                         *
  29 C.    *    Authors   : R.Brun, F.Bruyant, A.McPherson  *********      *
  30 C.    *                                                               *
  31 C.    *****************************************************************
  32 C.
  33 #include "geant321/gcbank.inc"
  34 #include "geant321/gcnum.inc"
  35 #include "geant321/gcunit.inc"
  36       CHARACTER*4 CHNAME
  37 C.
  38 C.    ------------------------------------------------------------------
  39 *
  40       IVO = 0
  41       IF (JVOLUM.GE.0) CALL GLOOK (CHNAME, IQ(JVOLUM+1), NVOLUM, IVO)
  42       IF (IVO.EQ.0) THEN
  43          WRITE (CHMAIL, 1001) CHNAME
  44          CALL GMAIL (0, 0)
  45          GO TO 999
  46       ENDIF
  47 *
  48       IF ((IAX.LE.0.OR.IAX.GT.7).AND.IAX.NE.14.AND.IAX.NE.15) THEN
  49          WRITE (CHMAIL, 1002) CHNAME, IAX
  50          CALL GMAIL (0, 0)
  51          GO TO 999
  52       ENDIF
  53 *
  54       JVO = LQ(JVOLUM-IVO)
  55       NIN = Q(JVO+3)
  56       IF (NIN.LE.0.OR.NIN.GT.500) THEN
  57          WRITE (CHMAIL,1003) CHNAME, NIN
  58          CALL GMAIL (0, 0)
  59          GO TO 999
  60       ENDIF
  61 *
  62 * *** Set search flag
  63 *
  64       Q(JVO+1) = -IAX
  65 *
  66  1001 FORMAT (' GSORD : Volume ',A4,' does not exist  *****')
  67  1002 FORMAT (' GSORD : Volume ',A4,', axis',I3,' not allowed  *****')
  68  1003 FORMAT (' GSORD : Volume ',A4,' not accepted, NIN=',I5,'  *****')
  69 *                                                              END GSORD
  70   999 END