GEANT321/gcons/gppart.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:16  cernlib
   6 * Geant
   7 *
   8 *
   9 #include "geant321/pilot.h"
  10 *CMZ :  3.21/02 29/03/94  15.41.19  by  S.Giani
  11 *-- Author :
  12       SUBROUTINE GPPART (NUMB  )
  13 C.
  14 C.    ******************************************************************
  15 C.    *                                                                *
  16 C.    *       Routine to print particle definition JPART               *
  17 C.    *       NUMB     Particle number                                 *
  18 C.    *                                                                *
  19 C.    *    ==>Called by : <USER>, GPRINT                               *
  20 C.    *       Author    R.Brun  *********                              *
  21 C.    *                                                                *
  22 C.    ******************************************************************
  23 C.
  24 #include "geant321/gcbank.inc"
  25 #include "geant321/gcunit.inc"
  26       DIMENSION ITITLE(5)
  27 C.
  28 C.    ------------------------------------------------------------------
  29 C.
  30       IF (JPART.LE.0)  GO TO 99
  31 C
  32       IF (NUMB  .EQ.0)THEN
  33          WRITE (CHMAIL,1000)
  34          CALL GMAIL(0,0)
  35          N1     = 1
  36          N2     = IQ(JPART-2)
  37       ELSE
  38          N1     = ABS(NUMB)
  39          N2     = ABS(NUMB)
  40       ENDIF
  41 C
  42       IF(NUMB.GE.0) THEN
  43          WRITE (CHMAIL,1001)
  44          CALL GMAIL(0,1)
  45       ENDIF
  46 C
  47       DO 10 I=N1,N2
  48          JP = LQ(JPART-I)
  49          IF (JP.NE.0)THEN
  50             IOPT = Q(JP+6)
  51             NL = IQ(JP-1)
  52             CALL UCOPY(IQ(JP+1),ITITLE,5)
  53             NW=MIN(NL,13)
  54             WRITE (CHMAIL,1002) I,ITITLE,IOPT,
  55      +                          (Q(JP + J),J = 7,NW)
  56     5       CALL GMAIL(0,0)
  57             IF(NL-NW.GT.0) THEN
  58                NS=NW+1
  59                NW=MIN(NL,NW+5)
  60                WRITE(CHMAIL,1003) (Q(JP + J),J = NS,NW)
  61                GO TO 5
  62             END IF
  63          ENDIF
  64    10 CONTINUE
  65 C
  66  1000 FORMAT ('0',51('='),3X,'Particle Types',3X,50('='))
  67  1001 FORMAT ('0','Part',25X,'Options',8X,'Mass',4X,'Charge'
  68      +,'    Life time                  User words')
  69  1002 FORMAT (' ',I4,1X,5A4,I8,6X,E11.4,F7.0,3X,5(E12.5,2X))
  70  1003 FORMAT (61X,5(E12.5,2X))
  71   99  RETURN
  72       END