This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / 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