pythiaeRHIC/pythia/pyfact.f

0001
0002 C*********************************************************************
0003
0004 C...PYFACT
0005 C...Multiplies histogram contents by factor.
0006
0007       SUBROUTINE PYFACT(ID,F)
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...Find initial address in memory. Multiply all contents bins.
0017       IF(ID.LE.0.OR.ID.GT.IHIST(1)) CALL PYERRM(28,
0018      &'(PYFACT:) not allowed histogram number')
0019       IS=INDX(ID)
0020       IF(IS.EQ.0) CALL PYERRM(28,
0021      &'(PYFACT:) scaling unbooked histogram')
0022       DO 100 IX=IS+6,IS+8+NINT(BIN(IS+1))
0023         BIN(IX)=F*BIN(IX)
0024   100 CONTINUE
0025
0026       RETURN
0027       END