GEANT321/ggeom/gsunea.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 GSUNEA(CHNAME,ISEARC)
  13 C.
  14 C.    *****************************************************************
  15 C.    *                                                               *
  16 C.    *    ROUTINE TO SPECIFY USER ORDERING FOR THE CONTENTS          *
  17 C.    *    OF A GIVEN VOLUME, BY SETTING THE SEARCH FLAG >0           *
  18 C.    *                                                               *
  19 C.    *    ==>Called by : USER                                        *
  20 C.    *         Author  R.Brun, F.Bruyant  *********                  *
  21 C.    *                                                               *
  22 C.    *****************************************************************
  23 C.
  24 #include "geant321/gcbank.inc"
  25 #include "geant321/gcunit.inc"
  26 #include "geant321/gcnum.inc"
  27       CHARACTER*4 CHNAME
  28 C.
  29 C.             -----------------------------------------
  30 C.
  31 C            Check JVOLUM
  32 *
  33       IF(JVOLUM.LE.0) THEN
  34          WRITE(CHMAIL,10000)
  35          CALL GMAIL(0,0)
  36 *
  37       ELSE
  38 *
  39 *           find volume CHNAME.
  40          CALL GLOOK(CHNAME,IQ(JVOLUM+1),NVOLUM,IVO)
  41          IF(IVO.LE.0) THEN
  42             WRITE(CHMAIL,10100) CHNAME
  43             CALL GMAIL(0,0)
  44 *
  45          ELSE
  46 *
  47 *          Set new value of ISEARC.
  48             IF (ISEARC.LE.0) THEN
  49                WRITE (CHMAIL, 10200) ISEARC
  50                CALL GMAIL (0, 0)
  51             ELSE
  52                JVO=LQ(JVOLUM-IVO)
  53                Q(JVO+1)=ISEARC
  54             ENDIF
  55          ENDIF
  56       ENDIF
  57 *
  58 10000 FORMAT(' ***** GSUNEA - No volumes defined')
  59 10100 FORMAT(' ***** GSUNEA - Volume ',A4,' does not exist')
  60 10200 FORMAT(' ***** GSUNEA - ISEARC = ',I10,' should be positive')
  61       END