[u/mrichter/AliRoot.git] / TEvtGen / PHOTOS / phlupa.F

      SUBROUTINE PHLUPA(IPOINT)
C.----------------------------------------------------------------------
C.
C.    PHLUPA:   debugging tool
C.
C.    Purpose:  NONE, eventually may printout content of the 
C.              /PHOEVT/ common
C.
C.    Input Parameters:   Common /PHOEVT/ and /PHNUM/ 
C.                        latter may have number of the event. 
C.
C.    Output Parameters:  None
C.
C.    Author(s):  Z. Was                          Created at:  30/05/93
C.                                                Last Update: 10/08/93
C.
C.----------------------------------------------------------------------
      INTEGER NMXPHO
      PARAMETER (NMXPHO=10000)
      INTEGER IDPHO,ISTPHO,JDAPHO,JMOPHO,NEVPHO,NPHO
      REAL*8 PPHO,VPHO
      COMMON/PHOEVT/NEVPHO,NPHO,ISTPHO(NMXPHO),IDPHO(NMXPHO),
     &JMOPHO(2,NMXPHO),JDAPHO(2,NMXPHO),PPHO(5,NMXPHO),VPHO(4,NMXPHO)
      COMMON /PHNUM/ IEV
      INTEGER PHLUN
      COMMON/PHOLUN/PHLUN
      DIMENSION SUM(5)
      IF (IPOINT.LT.3000) RETURN
      IOUT=56
      IF (IEV.LT.1000) THEN
      DO I=1,5
        SUM(I)=0.0D0
      ENDDO 
      WRITE(PHLUN,*) 'EVENT NR=',IEV,
     $            'WE ARE TESTING /PHOEVT/ at IPOINT=',IPOINT
      WRITE(PHLUN,10)
      I=1
      WRITE(PHLUN,20) IDPHO(I),PPHO(1,I),PPHO(2,I),PPHO(3,I),
     $                      PPHO(4,I),PPHO(5,I),JDAPHO(1,I),JDAPHO(2,I)
      I=2
      WRITE(PHLUN,20) IDPHO(I),PPHO(1,I),PPHO(2,I),PPHO(3,I),
     $                      PPHO(4,I),PPHO(5,I),JDAPHO(1,I),JDAPHO(2,I)
      WRITE(PHLUN,*) ' '
      DO I=3,NPHO
      WRITE(PHLUN,20) IDPHO(I),PPHO(1,I),PPHO(2,I),PPHO(3,I),
     $                      PPHO(4,I),PPHO(5,I),JMOPHO(1,I),JMOPHO(2,I)
        DO J=1,4
          SUM(J)=SUM(J)+PPHO(J,I)
        ENDDO
      ENDDO
      SUM(5)=SQRT(ABS(SUM(4)**2-SUM(1)**2-SUM(2)**2-SUM(3)**2))
      WRITE(PHLUN,30) SUM
 10   FORMAT(1X,'  ID      ','p_x      ','p_y      ','p_z      ',
     $                   'E        ','m        ',
     $                   'ID-MO_DA1','ID-MO DA2' )
 20   FORMAT(1X,I4,5(F9.3),2I9)
 30   FORMAT(1X,' SUM',5(F9.3))
      ENDIF
      END
Commit	Line	Data
da0e9ce3	1	SUBROUTINE PHLUPA(IPOINT)
	2	C.----------------------------------------------------------------------
	3	C.
	4	C. PHLUPA: debugging tool
	5	C.
	6	C. Purpose: NONE, eventually may printout content of the
	7	C. /PHOEVT/ common
	8	C.
	9	C. Input Parameters: Common /PHOEVT/ and /PHNUM/
	10	C. latter may have number of the event.
	11	C.
	12	C. Output Parameters: None
	13	C.
	14	C. Author(s): Z. Was Created at: 30/05/93
	15	C. Last Update: 10/08/93
	16	C.
	17	C.----------------------------------------------------------------------
	18	INTEGER NMXPHO
	19	PARAMETER (NMXPHO=10000)
	20	INTEGER IDPHO,ISTPHO,JDAPHO,JMOPHO,NEVPHO,NPHO
	21	REAL*8 PPHO,VPHO
	22	COMMON/PHOEVT/NEVPHO,NPHO,ISTPHO(NMXPHO),IDPHO(NMXPHO),
	23	&JMOPHO(2,NMXPHO),JDAPHO(2,NMXPHO),PPHO(5,NMXPHO),VPHO(4,NMXPHO)
	24	COMMON /PHNUM/ IEV
	25	INTEGER PHLUN
	26	COMMON/PHOLUN/PHLUN
	27	DIMENSION SUM(5)
	28	IF (IPOINT.LT.3000) RETURN
	29	IOUT=56
	30	IF (IEV.LT.1000) THEN
	31	DO I=1,5
	32	SUM(I)=0.0D0
	33	ENDDO
	34	WRITE(PHLUN,*) 'EVENT NR=',IEV,
	35	$ 'WE ARE TESTING /PHOEVT/ at IPOINT=',IPOINT
	36	WRITE(PHLUN,10)
	37	I=1
	38	WRITE(PHLUN,20) IDPHO(I),PPHO(1,I),PPHO(2,I),PPHO(3,I),
	39	$ PPHO(4,I),PPHO(5,I),JDAPHO(1,I),JDAPHO(2,I)
	40	I=2
	41	WRITE(PHLUN,20) IDPHO(I),PPHO(1,I),PPHO(2,I),PPHO(3,I),
	42	$ PPHO(4,I),PPHO(5,I),JDAPHO(1,I),JDAPHO(2,I)
	43	WRITE(PHLUN,*) ' '
	44	DO I=3,NPHO
	45	WRITE(PHLUN,20) IDPHO(I),PPHO(1,I),PPHO(2,I),PPHO(3,I),
	46	$ PPHO(4,I),PPHO(5,I),JMOPHO(1,I),JMOPHO(2,I)
	47	DO J=1,4
	48	SUM(J)=SUM(J)+PPHO(J,I)
	49	ENDDO
	50	ENDDO
	51	SUM(5)=SQRT(ABS(SUM(4)2-SUM(1)2-SUM(2)2-SUM(3)2))
	52	WRITE(PHLUN,30) SUM
	53	10 FORMAT(1X,' ID ','p_x ','p_y ','p_z ',
	54	$ 'E ','m ',
	55	$ 'ID-MO_DA1','ID-MO DA2' )
	56	20 FORMAT(1X,I4,5(F9.3),2I9)
	57	30 FORMAT(1X,' SUM',5(F9.3))
	58	ENDIF
	59	END