TEvtGen/EvtGenModels/EvtJetSetCDFInit.F

   1 C--------------------------------------------------------------------------
   2 C
   3 C Environment:
   4 C      This software is part of the EvtGen package developed jointly
   5 C      for the BaBar and CLEO collaborations.  If you use all or part
   6 C      of it, please give an appropriate acknowledgement.
   7 C
   8 C Copyright Information: See EvtGen/COPYRIGHT
   9 C      Copyright (C) 1998      Caltech, UCSB
  10 C
  11 C Module: EvtJetSetInit.F
  12 C
  13 C Description:
  14 C
  15 C Modification history:
  16 C
  17 C    DJL/RYD     August 11, 1998         Module created
  18 C
  19 C------------------------------------------------------------------------
  20       subroutine evtjetsetcdfinit(fname)
  21
  22       implicit none
  23
  24       external lydata
  25
  26       character*(*) fname
  27
  28
  29       open(54,STATUS='OLD',FILE=fname)
  30
  31       call LYUPDA(2,54)
  32
  33       close(54)
  34
  35
  36 C      call LYLIST(12)
  37
  38
  39       end
  40
  41
  42
  43
  44
  45