[u/mrichter/AliRoot.git] / GEANT321 / gcons / gppart.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1995/10/24 10:20:16  cernlib
* Geant
*
*
#include "geant321/pilot.h"
*CMZ :  3.21/02 29/03/94  15.41.19  by  S.Giani
*-- Author :
      SUBROUTINE GPPART (NUMB  )
C.
C.    ******************************************************************
C.    *                                                                *
C.    *       Routine to print particle definition JPART               *
C.    *       NUMB     Particle number                                 *
C.    *                                                                *
C.    *    ==>Called by : <USER>, GPRINT                               *
C.    *       Author    R.Brun  *********                              *
C.    *                                                                *
C.    ******************************************************************
C.
#include "geant321/gcbank.inc"
#include "geant321/gcunit.inc"
      DIMENSION ITITLE(5)
C.
C.    ------------------------------------------------------------------
C.
      IF (JPART.LE.0)  GO TO 99
C
      IF (NUMB  .EQ.0)THEN
         WRITE (CHMAIL,1000)
         CALL GMAIL(0,0)
         N1     = 1
         N2     = IQ(JPART-2)
      ELSE
         N1     = ABS(NUMB)
         N2     = ABS(NUMB)
      ENDIF
C
      IF(NUMB.GE.0) THEN
         WRITE (CHMAIL,1001)
         CALL GMAIL(0,1)
      ENDIF
C
      DO 10 I=N1,N2
         JP = LQ(JPART-I)
         IF (JP.NE.0)THEN
            IOPT = Q(JP+6)
            NL = IQ(JP-1)
            CALL UCOPY(IQ(JP+1),ITITLE,5)
            NW=MIN(NL,13)
            WRITE (CHMAIL,1002) I,ITITLE,IOPT,
     +                          (Q(JP + J),J = 7,NW)
    5       CALL GMAIL(0,0)
            IF(NL-NW.GT.0) THEN
               NS=NW+1
               NW=MIN(NL,NW+5)
               WRITE(CHMAIL,1003) (Q(JP + J),J = NS,NW)
               GO TO 5
            END IF
         ENDIF
   10 CONTINUE
C
 1000 FORMAT ('0',51('='),3X,'Particle Types',3X,50('='))
 1001 FORMAT ('0','Part',25X,'Options',8X,'Mass',4X,'Charge'
     +,'    Life time                  User words')
 1002 FORMAT (' ',I4,1X,5A4,I8,6X,E11.4,F7.0,3X,5(E12.5,2X))
 1003 FORMAT (61X,5(E12.5,2X))
  99  RETURN
      END
Commit	Line	Data
fe4da5cc	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