PHOS/shaker/shlist.f

   1 *CMZ :          17/07/98  15.49.05  by  Federico Carminati
   2 *-- Author :
   3       SUBROUTINE SHLIST
   4 C       =================
   5
   6 c       List data output
   7
   8 *KEEP,SHRUNP.
   9       COMMON /SHRUNP/ VMAJ,IMIN,NRUN,NEVTOT
  10 *KEEP,SHPHYP.
  11       COMMON /SHPHYP/ JWEI,NDNDY,YLIM,PTLIM,JWEAK,JPI0,JETA,JPIC,JPRO,
  12      +                  JKAC,JKA0,JRHO,JOME,JPHI,JPSI,JDRY
  13 *KEEP,SHGENE.
  14       COMMON /SHGENE/ IEVT,NPI0,NETA,NPIC,NPRO,NKAC,NKA0,NRHO,NOME,
  15      +                  NPHI,NPSI,NDRY
  16 *KEEP,LUDAT1.
  17       COMMON /LUDAT1/ MSTU(200),PARU(200),MSTJ(200),PARJ(200)
  18       SAVE /LUDAT1/
  19 *KEND.
  20
  21       WRITE(MSTU(11),*) '------------------------------------------'
  22       WRITE(MSTU(11),*) 'RUN: ',NRUN
  23       WRITE(MSTU(11),*) 'EVT: ',IEVT
  24       CALL LULIST(2)
  25
  26       RETURN
  27       END