2 C.----------------------------------------------------------------------
4 C. PHOTOS: PHOton radiation in decays run summary REPort
6 C. Purpose: Inform user about success and/or restrictions of PHOTOS
7 C. encountered during execution.
9 C. Input Parameters: Common /PHOSTA/
11 C. Output Parameters: None
13 C. Author(s): B. van Eijk Created at: 10/01/92
14 C. Last Update: 10/01/92
16 C.----------------------------------------------------------------------
23 COMMON/PHOSTA/STATUS(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)
40 WRITE(PHLUN,9060) I,STATUS(I)
43 IF (.NOT.ERROR) WRITE(PHLUN,9070)
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',