sPhenix code displayed by LXR |
|
|
|
|||
File indexing completed on 2025-08-05 08:21:13
0001 0002 C********************************************************************* 0003 0004 C...PYNULL 0005 C...Resets bin contents of a histogram. 0006 0007 SUBROUTINE PYNULL(ID) 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 IF(ID.LE.0.OR.ID.GT.IHIST(1)) RETURN 0017 IS=INDX(ID) 0018 IF(IS.EQ.0) RETURN 0019 DO 100 IX=IS+5,IS+8+NINT(BIN(IS+1)) 0020 BIN(IX)=0D0 0021 100 CONTINUE 0022 0023 RETURN 0024 END
| [ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
|
This page was automatically generated by the 2.3.7 LXR engine. The LXR team |
|