[u/mrichter/AliRoot.git] / PYTHIA / pythia / pdfset.F

 
C*********************************************************************
 
      SUBROUTINE PDFSET(PARM,VALUE)
 
C...Dummy routine, to be removed when PDFLIB is to be linked.
      COMMON/LUDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200)
      SAVE /LUDAT1/
      CHARACTER*20 PARM(20)
      DOUBLE PRECISION VALUE(20)
 
C...Stop program if this routine is ever called.
      WRITE(MSTU(11),5000)
      IF(RLU(0).LT.10.) STOP
      PARM(20)=PARM(1)
      VALUE(20)=VALUE(1)
 
C...Format for error printout.
 5000 FORMAT(1X,'Error: you did not link PDFLIB correctly.'/
     &1X,'Dummy routine PDFSET in PYTHIA file called instead.'/
     &1X,'Execution stopped!')
 
      RETURN
      END
Commit	Line	Data
fe4da5cc	1
	2	C*********************************************************************
	3
	4	SUBROUTINE PDFSET(PARM,VALUE)
	5
	6	C...Dummy routine, to be removed when PDFLIB is to be linked.
	7	COMMON/LUDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200)
	8	SAVE /LUDAT1/
	9	CHARACTER*20 PARM(20)
	10	DOUBLE PRECISION VALUE(20)
	11
	12	C...Stop program if this routine is ever called.
	13	WRITE(MSTU(11),5000)
	14	IF(RLU(0).LT.10.) STOP
	15	PARM(20)=PARM(1)
	16	VALUE(20)=VALUE(1)
	17
	18	C...Format for error printout.
	19	5000 FORMAT(1X,'Error: you did not link PDFLIB correctly.'/
	20	&1X,'Dummy routine PDFSET in PYTHIA file called instead.'/
	21	&1X,'Execution stopped!')
	22
	23	RETURN
	24	END