sPhenix code displayed by LXR |
|
|
|
|||
File indexing completed on 2025-08-05 08:21:11
0001 0002 C********************************************************************* 0003 0004 C...PYHIST 0005 C...Prints and resets all histograms. 0006 0007 SUBROUTINE PYHIST 0008 0009 C...Double precision declaration. 0010 IMPLICIT DOUBLE PRECISION(A-H, O-Z) 0011 IMPLICIT INTEGER(I-N) 0012 C...Commonblock. 0013 COMMON/PYBINS/IHIST(4),INDX(1000),BIN(20000) 0014 SAVE /PYBINS/ 0015 0016 C...Loop over histograms, print and reset used ones. 0017 DO 100 ID=1,IHIST(1) 0018 IS=INDX(ID) 0019 IF(IS.NE.0.AND.NINT(BIN(IS+5)).GT.0) THEN 0020 CALL PYPLOT(ID) 0021 CALL PYNULL(ID) 0022 ENDIF 0023 100 CONTINUE 0024 0025 RETURN 0026 END
| [ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
|
This page was automatically generated by the 2.3.7 LXR engine. The LXR team |
|