PHOS/shaker/shstat.f

   1 *CMZ :          17/07/98  15.54.14  by  Federico Carminati
   2 *-- Author :
   3       SUBROUTINE SHSTAT
   4 c       =================
   5
   6 c       Print Run Statistics
   7
   8 *KEEP,LUDAT1.
   9       COMMON /LUDAT1/ MSTU(200),PARU(200),MSTJ(200),PARJ(200)
  10       SAVE /LUDAT1/
  11 *KEEP,SHRUNP.
  12       COMMON /SHRUNP/ VMAJ,IMIN,NRUN,NEVTOT
  13 *KEEP,SHPHYP.
  14       COMMON /SHPHYP/ JWEI,NDNDY,YLIM,PTLIM,JWEAK,JPI0,JETA,JPIC,JPRO,
  15      +                  JKAC,JKA0,JRHO,JOME,JPHI,JPSI,JDRY
  16 *KEEP,SHRATS.
  17       COMMON /SHRATS/ RETAPI,RPROPI,RKACPI,RRHOPI,ROMEPI,RPHIPI
  18 *KEEP,SHGENE.
  19       COMMON /SHGENE/ IEVT,NPI0,NETA,NPIC,NPRO,NKAC,NKA0,NRHO,NOME,
  20      +                  NPHI,NPSI,NDRY
  21 *KEND.
  22
  23       WRITE (MSTU(11),1001) VMAJ,IMIN,NRUN,NEVTOT,IEVT
  24      +        ,JWEI,NDNDY,YLIM,PTLIM,JWEAK,JPI0,JETA,JPIC,JPRO,JKAC,JKA0
  25      +        ,JRHO,JOME,JPHI,JPSI
  26       WRITE (MSTU(11),1002)        JDRY
  27      +        ,RETAPI,RPROPI,RKACPI
  28      +        ,NPI0,NETA,NPIC,NPRO,NKAC,NKA0,NRHO,NOME,NPHI,NPSI,NDRY
  29       RETURN
  30
  31 1001    FORMAT(1H1,///,10X,'SHAKER Major Version ',f2.1,
  32      +  ' Minor Version ',i2,/,10x,45(1h-),
  33      +  //,5x,'Run Number ...................................... ',i8,
  34      +   /,5x,'Total Number of Requested Events ................ ',i8,
  35      +   /,5x,'Total Number of Generated Events ................ ',i8,
  36      +   /,5x,'Weighted Generation (pi0 and eta only) .......... ',i8,
  37      +   /,5x,'Rapidity Density ................................ ',i8,
  38      +   /,5x,'Rapidity Limit .................................. ',f6.2,
  39      +   /,5x,'pT Limit ........................................ ',f6.2,
  40      +   /,5x,'Weak Decays Enable .............................. ',i8,
  41      +   /,5x,'pi0    Generation ............................... ',i8,
  42      +   /,5x,'eta    Generation ............................... ',i8,
  43      +   /,5x,'pi+/-  Generation ............................... ',i8,
  44      +   /,5x,'proton Generation ............................... ',i8,
  45      +   /,5x,'K+/-   Generation ............................... ',i8,
  46      +   /,5x,'K0     Generation ............................... ',i8,
  47      +   /,5x,'rho    Generation ............................... ',i8,
  48      +   /,5x,'omega  Generation ............................... ',i8,
  49      +   /,5x,'phi    Generation ............................... ',i8,
  50      +   /,5x,'J/psi  Generation ............................... ',i8)
  51  1002   FORMAT(
  52      +     5x,'Dr-Yan Generation ............................... ',i8,
  53      +   /,5x,'eta/pi0 Ratio ................................... ',f6.2,
  54      +   /,5x,'p/pi    Ratio ................................... ',f6.2,
  55      +   /,5x,'K/pi    Ratio ................................... ',f6.2,
  56      +   /,5x,'pi0    / Event .................................. ',i8,
  57      +   /,5x,'eta    / Event .................................. ',i8,
  58      +   /,5x,'pi+/-  / Event .................................. ',i8,
  59      +   /,5x,'proton / Event .................................. ',i8,
  60      +   /,5x,'K+/-   / Event .................................. ',i8,
  61      +   /,5x,'K0     / Event .................................. ',i8,
  62      +   /,5x,'rho    / Event .................................. ',i8,
  63      +   /,5x,'omega  / Event .................................. ',i8,
  64      +   /,5x,'phi    / Event .................................. ',i8,
  65      +   /,5x,'J/psi  / Event .................................. ',i8,
  66      +   /,5x,'Dr-Yan / Event .................................. ',i8)
  67
  68       END