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

*/////////////////////////////////////////////////////////////////////////////////////
*//                                                                                 //
*//  !!!!!!! WARNING!!!!!   This source may be  agressive !!!!                      //
*//                                                                                 //
*//  Due to short common block names it may owerwrite variables in other parts      //
*//  of the code.                                                                   //
*//                                                                                 //
*//  One should add suffix c_Photos_ to names of all commons as soon as possible!!  //
*//                                                                                 //
*/////////////////////////////////////////////////////////////////////////////////////

C.----------------------------------------------------------------------
C.
C.    PHOTOS:   PHOtos CDE's
C.
C.    Purpose:  Keep definitions  for PHOTOS QED correction Monte Carlo.
C.
C.    Input Parameters:   None
C.
C.    Output Parameters:  None
C.
C.    Author(s):  Z. Was, B. van Eijk             Created at:  29/11/89
C.                                                Last Update: 10/08/93
C.
C. =========================================================
C.    General Structure Information:                       =
C. =========================================================
C:   ROUTINES:
C.             1) INITIALIZATION:
C.                                      PHOCDE
C.                                      PHOINI
C.                                      PHOCIN
C.                                      PHOINF
C.             2) GENERAL INTERFACE:
C.                                      PHOTOS
C.                                      PHOTOS_GET
C.                                      PHOTOS_SET
C.                                      PHOTOS_MAKE
C.                                      PHOBOS
C.                                      PHOIN
C.                                      PHOTWO (specific interface
C.                                      PHOOUT
C.                                      PHOCHK
C.                                      PHTYPE (specific interface
C.                                      PHOMAK (specific interface
C.             3) QED PHOTON GENERATION:
C.                                      PHINT
C.                                      PHOPRE
C.                                      PHOOMA
C.                                      PHOENE
C.                                      PHOCOR
C.                                      PHOFAC
C.                                      PHODO
C.             4) UTILITIES:
C.                                      PHOTRI
C.                                      PHOAN1
C.                                      PHOAN2
C.                                      PHOBO3
C.                                      PHORO2
C.                                      PHORO3
C.                                      PHORIN
C.                                      PHORAN
C.                                      PHOCHA
C.                                      PHOSPI
C.                                      PHOERR
C.                                      PHOREP
C.                                      PHLUPA
C.                                      PHCORK
C.   COMMONS:
C.   NAME     USED IN SECT. # OF OCC.     Comment
C.   PHOQED   1) 2)            3      Flags whether emisson to be gen. 
C.   PHOLUN   1) 4)            6      Output device number
C.   PHOCOP   1) 3)            4      photon coupling & min energy
C.   PHPICO   1) 3) 4)         5      PI & 2*PI
C.   PHSEED   1) 4)            3      RN seed 
C.   PHOSTA   1) 4)            3      Status information
C.   PHOKEY   1) 2) 3)         7      Keys for nonstandard application
C.   PHOVER   1)               1      Version info for outside
C.   HEPEVT   2)               2      PDG common
C.   PH_HEPEVT2)               8      PDG common internal
C.   PHOEVT   2) 3)           10      PDG branch
C.   PHOIF    2) 3)            2      emission flags for PDG branch 
C.   PHOMOM   3)               5      param of char-neutr system
C.   PHOPHS   3)               5      photon momentum parameters
C.   PHOPRO   3)               4      var. for photon rep. (in branch)
C.   PHOCMS   2)               3      parameters of boost to branch CMS
C.   PHNUM    4)               1      event number from outside         
C.----------------------------------------------------------------------
      SUBROUTINE PHOINI
C.----------------------------------------------------------------------
C.
C.    PHOTOS:   PHOton radiation in decays INItialisation
C.
C.    Purpose:  Initialisation  routine  for  the  PHOTOS  QED radiation
C.              package.  Should be called  at least once  before a call
C.              to the steering program 'PHOTOS' is made.
C.
C.    Input Parameters:   None
C.
C.    Output Parameters:  None
C.
C.    Author(s):  Z. Was, B. van Eijk             Created at:  26/11/89
C.                                                Last Update: 12/04/90
C.
C.----------------------------------------------------------------------
      IMPLICIT NONE
      INTEGER INIT
      SAVE INIT
      DATA INIT/ 0/
C--
C--   Return if already initialized...
      IF (INIT.NE.0) RETURN
      INIT=1
C--
C--   Preset parameters in PHOTOS commons
      CALL PHOCIN
C--
C--   Print info
      CALL PHOINF
C--
C--   Initialization of kinematic correction against rounding errors.
C--   Default parameter is 1 (no correction) optionally 2, 3, 4
      CALL PHCORK(1)
C--
C--   Initialize Marsaglia and Zaman random number generator
      CALL PHORIN
      RETURN
      END
Commit	Line	Data
da0e9ce3	1	*/////////////////////////////////////////////////////////////////////////////////////
	2	*// //
	3	*// !!!!!!! WARNING!!!!! This source may be agressive !!!! //
	4	*// //
	5	*// Due to short common block names it may owerwrite variables in other parts //
	6	*// of the code. //
	7	*// //
	8	*// One should add suffix c_Photos_ to names of all commons as soon as possible!! //
	9	*// //
	10	*/////////////////////////////////////////////////////////////////////////////////////
	11
	12	C.----------------------------------------------------------------------
	13	C.
	14	C. PHOTOS: PHOtos CDE's
	15	C.
	16	C. Purpose: Keep definitions for PHOTOS QED correction Monte Carlo.
	17	C.
	18	C. Input Parameters: None
	19	C.
	20	C. Output Parameters: None
	21	C.
	22	C. Author(s): Z. Was, B. van Eijk Created at: 29/11/89
	23	C. Last Update: 10/08/93
	24	C.
	25	C. =========================================================
	26	C. General Structure Information: =
	27	C. =========================================================
	28	C: ROUTINES:
	29	C. 1) INITIALIZATION:
	30	C. PHOCDE
	31	C. PHOINI
	32	C. PHOCIN
	33	C. PHOINF
	34	C. 2) GENERAL INTERFACE:
	35	C. PHOTOS
	36	C. PHOTOS_GET
	37	C. PHOTOS_SET
	38	C. PHOTOS_MAKE
	39	C. PHOBOS
	40	C. PHOIN
	41	C. PHOTWO (specific interface
	42	C. PHOOUT
	43	C. PHOCHK
	44	C. PHTYPE (specific interface
	45	C. PHOMAK (specific interface
	46	C. 3) QED PHOTON GENERATION:
	47	C. PHINT
	48	C. PHOPRE
	49	C. PHOOMA
	50	C. PHOENE
	51	C. PHOCOR
	52	C. PHOFAC
	53	C. PHODO
	54	C. 4) UTILITIES:
	55	C. PHOTRI
	56	C. PHOAN1
	57	C. PHOAN2
	58	C. PHOBO3
	59	C. PHORO2
	60	C. PHORO3
	61	C. PHORIN
	62	C. PHORAN
	63	C. PHOCHA
	64	C. PHOSPI
65	C. PHOERR
66	C. PHOREP
67	C. PHLUPA
68	C. PHCORK
69	C. COMMONS:
70	C. NAME USED IN SECT. # OF OCC. Comment
71	C. PHOQED 1) 2) 3 Flags whether emisson to be gen.
72	C. PHOLUN 1) 4) 6 Output device number
73	C. PHOCOP 1) 3) 4 photon coupling & min energy
74	C. PHPICO 1) 3) 4) 5 PI & 2*PI
75	C. PHSEED 1) 4) 3 RN seed
76	C. PHOSTA 1) 4) 3 Status information
77	C. PHOKEY 1) 2) 3) 7 Keys for nonstandard application
78	C. PHOVER 1) 1 Version info for outside
79	C. HEPEVT 2) 2 PDG common
80	C. PH_HEPEVT2) 8 PDG common internal
81	C. PHOEVT 2) 3) 10 PDG branch
82	C. PHOIF 2) 3) 2 emission flags for PDG branch
83	C. PHOMOM 3) 5 param of char-neutr system
84	C. PHOPHS 3) 5 photon momentum parameters
85	C. PHOPRO 3) 4 var. for photon rep. (in branch)
86	C. PHOCMS 2) 3 parameters of boost to branch CMS
87	C. PHNUM 4) 1 event number from outside
88	C.----------------------------------------------------------------------
89	SUBROUTINE PHOINI
90	C.----------------------------------------------------------------------
91	C.
92	C. PHOTOS: PHOton radiation in decays INItialisation
93	C.
94	C. Purpose: Initialisation routine for the PHOTOS QED radiation
95	C. package. Should be called at least once before a call
96	C. to the steering program 'PHOTOS' is made.
97	C.
98	C. Input Parameters: None
99	C.
100	C. Output Parameters: None
101	C.
102	C. Author(s): Z. Was, B. van Eijk Created at: 26/11/89
103	C. Last Update: 12/04/90
104	C.
105	C.----------------------------------------------------------------------
106	IMPLICIT NONE
107	INTEGER INIT
108	SAVE INIT
109	DATA INIT/ 0/
110	C--
111	C-- Return if already initialized...
112	IF (INIT.NE.0) RETURN
113	INIT=1
114	C--
115	C-- Preset parameters in PHOTOS commons
116	CALL PHOCIN
117	C--
118	C-- Print info
119	CALL PHOINF
120	C--
121	C-- Initialization of kinematic correction against rounding errors.
122	C-- Default parameter is 1 (no correction) optionally 2, 3, 4
123	CALL PHCORK(1)
124	C--
125	C-- Initialize Marsaglia and Zaman random number generator
126	CALL PHORIN
127	RETURN
128	END