Analysis Software
Documentation for sPHENIX simulation software
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups Pages
visaje.f
Go to the documentation of this file. Or view the newest version in sPHENIX GitHub for file visaje.f
1 
2 C*********************************************************************
3 
4 C...VISAJE
5 C...Dummy function, to be removed when ISAJET (ISASUSY) is to be linked.
6 
7  FUNCTION visaje()
8  IMPLICIT DOUBLE PRECISION(a-h, o-z)
9  IMPLICIT INTEGER(i-n)
10  CHARACTER*40 visaje
11 
12 C...Commonblocks.
13  common/pydat1/mstu(200),paru(200),mstj(200),parj(200)
14  SAVE /pydat1/
15 
16 C...Assign default value.
17  visaje='Undefined'
18 
19 C...Stop program if this routine is ever called.
20  WRITE(mstu(11),5000)
21  CALL pystop(110)
22 
23 C...Format for error printout.
24  5000 FORMAT(1x,'Error: you did not link ISAJET correctly.'/
25  &1x,'Dummy function VISAJE in PYTHIA file called instead.'/
26  &1x,'Execution stopped!')
27 
28  RETURN
29  END