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