pyhist.f

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

 
C*********************************************************************
 
C...PYHIST
C...Prints and resets all histograms.
 
      SUBROUTINE pyhist
 
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/
 
C...Loop over histograms, print and reset used ones.
      DO 100 id=1,ihist(1)
        is=indx(id)
        IF(is.NE.0.AND.nint(bin(is+5)).GT.0) THEN
          CALL pyplot(id)
          CALL pynull(id)
        ENDIF
  100 CONTINUE
 
      RETURN
      END