PYTHIA/pythia/structm.F

   1
   2 C*********************************************************************
   3
   4       SUBROUTINE STRUCTM(XX,QQ,UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GLU)
   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       DOUBLE PRECISION XX,QQ,UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GLU
  10
  11 C...Stop program if this routine is ever called.
  12       WRITE(MSTU(11),5000)
  13       IF(RLU(0).LT.10.) STOP
  14       UPV=XX+QQ
  15       DNV=XX+2.*QQ
  16       USEA=XX+3.*QQ
  17       DSEA=XX+4.*QQ
  18       STR=XX+5.*QQ
  19       CHM=XX+6.*QQ
  20       BOT=XX+7.*QQ
  21       TOP=XX+8.*QQ
  22       GLU=XX+9.*QQ
  23
  24 C...Format for error printout.
  25  5000 FORMAT(1X,'Error: you did not link PDFLIB correctly.'/
  26      &1X,'Dummy routine STRUCTM in PYTHIA file called instead.'/
  27      &1X,'Execution stopped!')
  28
  29       RETURN
  30       END