TEvtGen/PHOTOS/phoinf.F

   1       SUBROUTINE PHOINF
   2 C.----------------------------------------------------------------------
   3 C.
   4 C.    PHOTOS:   PHOton radiation in decays general INFo
   5 C.
   6 C.    Purpose:  Print PHOTOS info
   7 C.
   8 C.    Input Parameters:   PHOLUN
   9 C.
  10 C.    Output Parameters:  PHOVN1, PHOVN2
  11 C.
  12 C.    Author(s):  B. van Eijk                     Created at:  12/04/90
  13 C.                                                Last Update: 02/10/93
  14 C.
  15 C.----------------------------------------------------------------------
  16       IMPLICIT NONE
  17       INTEGER IV1,IV2,IV3
  18       INTEGER PHOVN1,PHOVN2
  19       COMMON/PHOVER/PHOVN1,PHOVN2
  20       INTEGER PHLUN
  21       COMMON/PHOLUN/PHLUN
  22       LOGICAL INTERF,ISEC,IFTOP
  23       REAL*8 FINT,FSEC
  24       COMMON /PHOKEY/ FSEC,FINT,INTERF,ISEC,IFTOP
  25       REAL*8 ALPHA,XPHCUT
  26       COMMON/PHOCOP/ALPHA,XPHCUT
  27 C--
  28 C--   PHOTOS version number and release date
  29       PHOVN1=202
  30       PHOVN2=150399
  31 C--
  32 C--   Print info
  33       WRITE(PHLUN,9000)
  34       WRITE(PHLUN,9020)
  35       WRITE(PHLUN,9010)
  36       WRITE(PHLUN,9030)
  37       IV1=PHOVN1/100
  38       IV2=PHOVN1-IV1*100
  39       WRITE(PHLUN,9040) IV1,IV2
  40       IV1=PHOVN2/10000
  41       IV2=(PHOVN2-IV1*10000)/100
  42       IV3=PHOVN2-IV1*10000-IV2*100
  43       WRITE(PHLUN,9050) IV1,IV2,IV3
  44       WRITE(PHLUN,9030)
  45       WRITE(PHLUN,9010)
  46       WRITE(PHLUN,9060)
  47       WRITE(PHLUN,9010)
  48       WRITE(PHLUN,9070)
  49       WRITE(PHLUN,9010)
  50       WRITE(PHLUN,9020)
  51       WRITE(PHLUN,9010)
  52       WRITE(PHLUN,9064) INTERF,ISEC,IFTOP,ALPHA,XPHCUT
  53       WRITE(PHLUN,9010)
  54       IF (INTERF) WRITE(PHLUN,9061)
  55       IF (ISEC)   WRITE(PHLUN,9062)
  56       IF (IFTOP)  WRITE(PHLUN,9063)
  57       WRITE(PHLUN,9080)
  58       WRITE(PHLUN,9010)
  59       WRITE(PHLUN,9020)
  60       RETURN
  61  9000 FORMAT(1H1)
  62  9010 FORMAT(1H ,'*',T81,'*')
  63  9020 FORMAT(1H ,80('*'))
  64  9030 FORMAT(1H ,'*',26X,26('='),T81,'*')
  65  9040 FORMAT(1H ,'*',28X,'PHOTOS, Version: ',I2,'.',I2,T81,'*')
  66  9050 FORMAT(1H ,'*',28X,'Released at:  ',I2,'/',I2,'/',I2,T81,'*')
  67  9060 FORMAT(1H ,'*',18X,'PHOTOS QED Corrections in Particle Decays',
  68      &T81,'*')
  69  9061 FORMAT(1H ,'*',18X,'option with interference is active       ',
  70      &T81,'*')
  71  9062 FORMAT(1H ,'*',18X,'option with double photons is active     ',
  72      &T81,'*')
  73  9063 FORMAT(1H ,'*',18X,'emision in t tbar production is active   ',
  74      &T81,'*')
  75  9064 FORMAT(1H ,'*',18X,'Internal input parameters:',T81,'*'
  76      &,/,    1H ,'*',T81,'*'
  77      &,/,    1H ,'*',18X,'INTERF=',L2,'  ISEC=',L2,'  IFTOP=',L2,T81,'*'
  78      &,/,    1H ,'*',18X,'ALPHA_QED=',F8.5,'   XPHCUT=',F8.5,T81,'*')
  79  9070 FORMAT(1H ,'*',9X,'Monte Carlo Program - by E. Barberio, B. van Ei
  80      &jk and Z. Was',T81,'*',/,
  81      &      1H ,'*',9X,'From version 2.0 on - by E.B. and Z.W.',T81,'*')
  82  9080 FORMAT( 1H ,'*',9X,' ',T81,'*',/,
  83      &  1H ,'*',9X,
  84      & ' WARNING (1): /HEPEVT/ is not anymore the standard common block'
  85      & ,T81,'*',/,
  86      &  1H ,'*',9X,' ',T81,'*',/,
  87      &  1H ,'*',9X,
  88      & ' PHOTOS expects /HEPEVT/ to have REAL*4 variables. To change to'
  89      & ,T81,'*',/,  1H ,'*',9X,
  90      & ' REAL*8 modify its declaration in subr. PHOTOS_GET PHOTOS_SET:'
  91      & ,T81,'*',/,  1H ,'*',9X,
  92      & '      REAL*8  d_h_phep,  d_h_vhep'
  93      & ,T81,'*',/,  1H ,'*',9X,
  94      & ' WARNING (2): check dims. of /hepevt/ /phoqed/ /ph_hepevt/.'
  95      & ,T81,'*',/,  1H ,'*',9X,
  96      & ' HERE:                     d_h_nmxhep=4000  and  NMXHEP=10000'
  97      & ,T81,'*')
  98       END