2 C.----------------------------------------------------------------------
4 C. PHOTOS: PHOton radiation in decays general INFo
6 C. Purpose: Print PHOTOS info
8 C. Input Parameters: PHOLUN
10 C. Output Parameters: PHOVN1, PHOVN2
12 C. Author(s): B. van Eijk Created at: 12/04/90
13 C. Last Update: 02/10/93
15 C.----------------------------------------------------------------------
19 COMMON/PHOVER/PHOVN1,PHOVN2
22 LOGICAL INTERF,ISEC,IFTOP
24 COMMON /PHOKEY/ FSEC,FINT,INTERF,ISEC,IFTOP
26 COMMON/PHOCOP/ALPHA,XPHCUT
28 C-- PHOTOS version number and release date
39 WRITE(PHLUN,9040) IV1,IV2
41 IV2=(PHOVN2-IV1*10000)/100
42 IV3=PHOVN2-IV1*10000-IV2*100
43 WRITE(PHLUN,9050) IV1,IV2,IV3
52 WRITE(PHLUN,9064) INTERF,ISEC,IFTOP,ALPHA,XPHCUT
54 IF (INTERF) WRITE(PHLUN,9061)
55 IF (ISEC) WRITE(PHLUN,9062)
56 IF (IFTOP) WRITE(PHLUN,9063)
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',
69 9061 FORMAT(1H ,'*',18X,'option with interference is active ',
71 9062 FORMAT(1H ,'*',18X,'option with double photons is active ',
73 9063 FORMAT(1H ,'*',18X,'emision in t tbar production is active ',
75 9064 FORMAT(1H ,'*',18X,'Internal input parameters:',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,'*',/,
84 & ' WARNING (1): /HEPEVT/ is not anymore the standard common block'
86 & 1H ,'*',9X,' ',T81,'*',/,
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'