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