TEvtGen/PHOTOS/phoini.F

   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