Bugfix in AliPoints2Memory
[u/mrichter/AliRoot.git] / GEANT321 / ggeom / gsdvx.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 GSDVX (NAME,MOTHER,NDIV,IAXIS,STEP,C0,NUMED
13      +                  ,NDVMX)
14 C.
15 C.    *******************************************************
16 C.    *                                                     *
17 C.    * DIVIDES MOTHER INTO 'NDIV' DIVISIONS OF SIZE 'STEP' *
18 C.    * ALONG AXIS 'IAXIS' STARTING AT COORDINATE 'C0'.     *
19 C.    *  NDIV OR STEP CAN BE SET NEGATIVE OR ZERO, IN WHICH *
20 C.    * CASE THEY ARE RECOMPUTED FROM THE MOTHER'S SIZE.    *
21 C.    *                                                     *
22 C.    *    ==>Called by : 'USER'                            *
23 C.    *    Authors   F.Bruyant, B.Stoer  ********           *
24 C.    *                                                     *
25 C.    *******************************************************
26 C.
27 #include "geant321/gcflag.inc"
28 #include "geant321/gcunit.inc"
29       CHARACTER*4 NAME,MOTHER
30 C.    -------------------------------------------------------
31 *
32       IF (NDIV.GT.0) THEN
33          IF (STEP.GT.0.) THEN
34             CALL GSDVT2 (NAME, MOTHER, STEP, IAXIS, C0, NUMED, -NDIV)
35          ELSE
36             CALL GSDVN2 (NAME, MOTHER, NDIV, IAXIS, C0, NUMED)
37          ENDIF
38       ELSE
39          IF (STEP.GT.0.) THEN
40             CALL GSDVT2 (NAME, MOTHER, STEP, IAXIS, C0, NUMED, NDVMX)
41          ELSE
42             WRITE (CHMAIL, 1001)
43             CALL GMAIL (0, 0)
44             IEORUN = 1
45          ENDIF
46       ENDIF
47 *
48  1001 FORMAT (' GSDVX : Call with NDIV and STEP .le. 0')
49       END