pythiaeRHIC/pythia/pyckbd.f

0001
0002 C*********************************************************************
0003
0004 C...PYCKBD
0005 C...Check that BLOCK DATA PYDATA has been loaded.
0006 C...Should not be required, except that some compilers/linkers
0007 C...are pretty buggy in this respect.
0008
0009       SUBROUTINE PYCKBD
0010
0011 C...Double precision and integer declarations.
0012       IMPLICIT DOUBLE PRECISION(A-H, O-Z)
0013       IMPLICIT INTEGER(I-N)
0014       INTEGER PYK,PYCHGE,PYCOMP
0015 C...Commonblocks.
0016       COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5)
0017       COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200)
0018       COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4)
0019       COMMON/PYDAT3/MDCY(500,3),MDME(8000,2),BRAT(8000),KFDP(8000,5)
0020       COMMON/PYSUBS/MSEL,MSELPD,MSUB(500),KFIN(2,-40:40),CKIN(200)
0021       COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200)
0022       SAVE /PYJETS/,/PYDAT1/,/PYDAT2/,/PYDAT3/,/PYSUBS/,/PYPARS/
0023
0024 C...Check a few variables to see they have been sensibly initialized.
0025       IF(MSTU(4).LT.10.OR.MSTU(4).GT.900000.OR.PMAS(2,1).LT.0.001D0
0026      &.OR.PMAS(2,1).GT.1D0.OR.CKIN(5).LT.0.01D0.OR.MSTP(1).LT.1.OR.
0027      &MSTP(1).GT.5) THEN
0028 C...If not, abort the run right away.
0029         WRITE(*,*) 'Fatal error: BLOCK DATA PYDATA has not been loaded!'
0030         WRITE(*,*) 'The program execution is stopped now!'
0031         CALL PYSTOP(8)
0032       ENDIF
0033
0034       RETURN
0035       END