HERWIG/src/ipdgeu.f

   1
   2 CDECK  ID>, IPDGEU.
   3
   4 *CMZ :-        -28/01/92  12.34.44  by  Mike Seymour
   5
   6 *-- Author :    Luca Stanco
   7
   8 C-----------------------------------------------------------------------
   9
  10       FUNCTION IPDGEU(I)
  11
  12 C-----------------------------------------------------------------------
  13
  14 C     DUMMY SUBROUTINE: DELETE AND SET BDECAY='EURO'
  15
  16 C     IN MAIN PROGRAM IF YOU USE EURODEC DECAY PACKAGE
  17
  18 C-----------------------------------------------------------------------
  19
  20       INTEGER IPDGEU,I
  21
  22       WRITE (6,10)
  23
  24    10 FORMAT(/10X,'IPDGEU CALLED BUT NOT LINKED')
  25
  26       IPDGEU=0
  27
  28       STOP
  29
  30       END