pynull.f

Go to the documentation of this file. Or view the newest version in sPHENIX GitHub for file pynull.f

 
C*********************************************************************
 
C...PYNULL
C...Resets bin contents of a histogram.
 
      SUBROUTINE pynull(ID)
 
C...Double precision declaration.
      IMPLICIT DOUBLE PRECISION(a-h, o-z)
      IMPLICIT INTEGER(i-n)
C...Commonblock.
      common/pybins/ihist(4),indx(1000),bin(20000)
      SAVE /pybins/
 
      IF(id.LE.0.OR.id.GT.ihist(1)) RETURN
      is=indx(id)
      IF(is.EQ.0) RETURN
      DO 100 ix=is+5,is+8+nint(bin(is+1))
        bin(ix)=0d0
  100 CONTINUE
 
      RETURN
      END