pythiaeRHIC/pythia/visaje.f

0001
0002 C*********************************************************************
0003
0004 C...VISAJE
0005 C...Dummy function, to be removed when ISAJET (ISASUSY) is to be linked.
0006
0007       FUNCTION VISAJE()
0008       IMPLICIT DOUBLE PRECISION(A-H, O-Z)
0009       IMPLICIT INTEGER(I-N)
0010       CHARACTER*40 VISAJE
0011
0012 C...Commonblocks.
0013       COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200)
0014       SAVE /PYDAT1/
0015
0016 C...Assign default value.
0017       VISAJE='Undefined'
0018
0019 C...Stop program if this routine is ever called.
0020       WRITE(MSTU(11),5000)
0021       CALL PYSTOP(110)
0022
0023 C...Format for error printout.
0024  5000 FORMAT(1X,'Error: you did not link ISAJET correctly.'/
0025      &1X,'Dummy function VISAJE in PYTHIA file called instead.'/
0026      &1X,'Execution stopped!')
0027
0028       RETURN
0029       END