This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / GEANT321 / gxint / gxlist.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1995/10/24 10:21:50  cernlib
6 * Geant
7 *
8 *
9 #include "geant321/pilot.h"
10 *CMZ :  3.21/02 29/03/94  15.41.33  by  S.Giani
11 *-- Author :
12       SUBROUTINE GXLIST
13 C.
14 C.    ******************************************************************
15 C.    *                                                                *
16 C.    *      Geometry commands                                         *
17 C.    *                                                                *
18 C.    *       Authors:   F.Carminati **********                        *
19 C.    *                                                                *
20 C.    ******************************************************************
21 C.
22 #include "geant321/gcbank.inc"
23 #include "geant321/gcunit.inc"
24 #include "geant321/gclist.inc"
25 #include "geant321/gcrz.inc"
26       PARAMETER (NUMLIS=11)
27       DIMENSION LLIST1(20,9), NLIST1(9)
28       DIMENSION LLIST2(20,2), NLIST2(2)
29       EQUIVALENCE (NLIST1,NHSTA),(LLIST1,LHSTA)
30       EQUIVALENCE (NLIST2,NRGET),(LLIST2,LRGET)
31       CHARACTER*4  CHPAR, CHPATL, CHLNAM(NUMLIS)
32       DATA CHLNAM / 'HSTA','GET ','SAVE','SETS','PRIN','GEOM',
33      +              'VIEW','PLOT','STAT','RGET','RSAV'/
34 C.
35 C.    ------------------------------------------------------------------
36 C.
37       CALL KUPATL(CHPATL,NPAR)
38 *
39       ILIST = 0
40       DO 10 KLIST=1,NUMLIS
41          IF(CHPATL.EQ.CHLNAM(KLIST)) THEN
42             ILIST = KLIST
43          ENDIF
44    10 CONTINUE
45       IF(ILIST.GT.9) THEN
46          ILIST=ILIST-9
47          IF(NPAR.GT.0) THEN
48             CALL KUGETC(CHPAR,NCH)
49             IF(CHPAR.EQ.'.') THEN
50                CALL VBLANK(LLIST2(1,ILIST),20)
51                NLIST2(ILIST) = 0
52             ELSE
53                NLIST2(ILIST) = NPAR
54                CALL UCTOH(CHPAR,LLIST2(1,ILIST),4,4)
55                DO 20 IPAR=2,NPAR
56                   CALL KUGETC(CHPAR,NCH)
57                   CALL UCTOH(CHPAR,LLIST2(IPAR,ILIST),4,4)
58    20          CONTINUE
59             ENDIF
60          ELSE
61             NDONE = MIN(NLIST2(ILIST),10)
62             WRITE(CHMAIL,10000) CHPATL, NDONE, (LLIST2(IPAR,ILIST),
63      +      IPAR= 1,NDONE)
64             CALL GMAIL(1,0)
65             IF(NLIST2(ILIST).GT.10) THEN
66                WRITE(CHMAIL,10100) CHPATL, NLIST2(ILIST), (LLIST2(IPAR,
67      +         ILIST), IPAR=11,NLIST2(ILIST))
68                CALL GMAIL(0,0)
69             ENDIF
70          ENDIF
71       ELSEIF(ILIST.GT.0) THEN
72          IF(NPAR.GT.0) THEN
73             CALL KUGETC(CHPAR,NCH)
74             IF(CHPAR.EQ.'.') THEN
75                CALL VBLANK(LLIST1(1,ILIST),20)
76                NLIST1(ILIST) = 0
77             ELSE
78                NLIST1(ILIST) = NPAR
79                CALL UCTOH(CHPAR,LLIST1(1,ILIST),4,4)
80                DO 30 IPAR=2,NPAR
81                   CALL KUGETC(CHPAR,NCH)
82                   CALL UCTOH(CHPAR,LLIST1(IPAR,ILIST),4,4)
83    30          CONTINUE
84             ENDIF
85          ELSE
86             NDONE = MIN(NLIST1(ILIST),10)
87             WRITE(CHMAIL,10000) CHPATL, NDONE, (LLIST1(IPAR,ILIST),
88      +      IPAR= 1,NDONE)
89             CALL GMAIL(1,0)
90             IF(NLIST1(ILIST).GT.10) THEN
91                WRITE(CHMAIL,10100) CHPATL, NLIST1(ILIST), (LLIST1(IPAR,
92      +         ILIST), IPAR=11,NLIST1(ILIST))
93                CALL GMAIL(0,0)
94             ENDIF
95          ENDIF
96       ENDIF
97 *
98 10000 FORMAT(1X,A4,' list  1-',I2,10(2X,A4))
99 10100 FORMAT(1X,A4,' list 11-',I2,10(2X,A4))
100       END