Bugfix in AliPoints2Memory
[u/mrichter/AliRoot.git] / GEANT321 / ggeom / gsunea.F
CommitLineData
fe4da5cc 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)
13C.
14C. *****************************************************************
15C. * *
16C. * ROUTINE TO SPECIFY USER ORDERING FOR THE CONTENTS *
17C. * OF A GIVEN VOLUME, BY SETTING THE SEARCH FLAG >0 *
18C. * *
19C. * ==>Called by : USER *
20C. * Author R.Brun, F.Bruyant ********* *
21C. * *
22C. *****************************************************************
23C.
24#include "geant321/gcbank.inc"
25#include "geant321/gcunit.inc"
26#include "geant321/gcnum.inc"
27 CHARACTER*4 CHNAME
28C.
29C. -----------------------------------------
30C.
31C 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*
5810000 FORMAT(' ***** GSUNEA - No volumes defined')
5910100 FORMAT(' ***** GSUNEA - Volume ',A4,' does not exist')
6010200 FORMAT(' ***** GSUNEA - ISEARC = ',I10,' should be positive')
61 END