TEvtGen/PHOTOS/phorep.F

   1       SUBROUTINE PHOREP
   2 C.----------------------------------------------------------------------
   3 C.
   4 C.    PHOTOS:   PHOton radiation in decays run summary REPort
   5 C.
   6 C.    Purpose:  Inform user about success and/or restrictions of PHOTOS
   7 C.              encountered during execution.
   8 C.
   9 C.    Input Parameters:   Common /PHOSTA/
  10 C.
  11 C.    Output Parameters:  None
  12 C.
  13 C.    Author(s):  B. van Eijk                     Created at:  10/01/92
  14 C.                                                Last Update: 10/01/92
  15 C.
  16 C.----------------------------------------------------------------------
  17       IMPLICIT NONE
  18       INTEGER PHLUN
  19       COMMON/PHOLUN/PHLUN
  20       INTEGER PHOMES
  21       PARAMETER (PHOMES=10)
  22       INTEGER STATUS
  23       COMMON/PHOSTA/STATUS(PHOMES)
  24       INTEGER I
  25       LOGICAL ERROR
  26       ERROR=.FALSE.
  27       WRITE(PHLUN,9000)
  28       WRITE(PHLUN,9010)
  29       WRITE(PHLUN,9020)
  30       WRITE(PHLUN,9030)
  31       WRITE(PHLUN,9040)
  32       WRITE(PHLUN,9030)
  33       WRITE(PHLUN,9020)
  34       DO 10 I=1,PHOMES
  35         IF (STATUS(I).EQ.0) GOTO 10
  36         IF ((I.EQ.6).OR.(I.EQ.10)) THEN
  37           WRITE(PHLUN,9050) I,STATUS(I)
  38         ELSE
  39           ERROR=.TRUE.
  40           WRITE(PHLUN,9060) I,STATUS(I)
  41         ENDIF
  42    10 CONTINUE
  43       IF (.NOT.ERROR) WRITE(PHLUN,9070)
  44       WRITE(PHLUN,9020)
  45       WRITE(PHLUN,9010)
  46       RETURN
  47  9000 FORMAT(1H1)
  48  9010 FORMAT(1H ,80('*'))
  49  9020 FORMAT(1H ,'*',T81,'*')
  50  9030 FORMAT(1H ,'*',26X,25('='),T81,'*')
  51  9040 FORMAT(1H ,'*',30X,'PHOTOS Run Summary',T81,'*')
  52  9050 FORMAT(1H ,'*',22X,'Warning #',I2,' occured',I6,' times',T81,'*')
  53  9060 FORMAT(1H ,'*',23X,'Error #',I2,' occured',I6,' times',T81,'*')
  54  9070 FORMAT(1H ,'*',16X,'PHOTOS Execution has successfully terminated',
  55      &T81,'*')
  56       END