HERWIG/src/eudini.f

   1
   2 CDECK  ID>, EUDINI.
   3
   4 *CMZ :-        -28/01/92  12.34.44  by  Mike Seymour
   5
   6 *-- Author :    Luca Stanco
   7
   8 C-----------------------------------------------------------------------
   9
  10       SUBROUTINE EUDINI
  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       WRITE (6,10)
  21
  22    10 FORMAT(/10X,'EUDINI CALLED BUT NOT LINKED')
  23
  24       STOP
  25
  26       END