[u/mrichter/AliRoot.git] / TEvtGen / EvtGenModels / EvtJetSetInit.F

C--------------------------------------------------------------------------
C
C Environment:
C      This software is part of the EvtGen package developed jointly
C      for the BaBar and CLEO collaborations.  If you use all or part
C      of it, please give an appropriate acknowledgement.
C
C Copyright Information: See EvtGen/COPYRIGHT
C      Copyright (C) 1998      Caltech, UCSB
C
C Module: EvtJetSetInit.F
C
C Description:
C
C Modification history:
C
C    DJL/RYD     August 11, 1998         Module created
C
C------------------------------------------------------------------------
      subroutine evtjetsetinit(fname)

      implicit none

      external ludata

      character*(*) fname


      open(54,STATUS='OLD',FILE=fname)

      call LUUPDA(2,54)

      close(54)      


      end
Commit	Line	Data
da0e9ce3	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 evtjetsetinit(fname)
	21
	22	implicit none
	23
	24	external ludata
	25
	26	character() fname
	27
	28
	29	open(54,STATUS='OLD',FILE=fname)
	30
	31	call LUUPDA(2,54)
	32
	33	close(54)
	34
	35
	36
	37
	38	end
	39
	40
	41
	42
	43
	44