00001
00002 subroutine list_herwig_init(nevt)
00003 c
00004 c initialization for the herwig C++ listing
00005 c
00006 #include "herwig65.inc"
00007 integer lnhwrt,lnhrd,lnhout,lnhdcy
00008 common/heplun/lnhwrt,lnhrd,lnhout,lnhdcy
00009
00010 external hwudat
00011 integer n
00012 integer istr,nevt
00013 C
00014 C initialize HEP logical units
00015 lnhwrt=0
00016 lnhrd=0
00017 lnhdcy=0
00018 lnhout=22
00019 lhwout=lnhout
00020 C open(unit=lnhout,file='examHerwigToStdHep.lpt',status='new')
00021 C
00022 c call hptrlsth
00023 C
00024 return
00025 end
00026
00027 subroutine get_list_size( isize )
00028 c return the maximum size of herwig's particle list
00029 #include "herwig65.inc"
00030 integer isize
00031 isize = NRES
00032 return
00033 end
00034
00035 subroutine get_herwig_name( ihwg, id, name )
00036 c ihwg is the index into herwig's short list
00037 #include "herwig65.inc"
00038 integer id, ihwg
00039 character*8 name
00040 id = 0
00041 call HWUIDT(2,id,ihwg,name)
00042 return
00043 end
00044
00045 subroutine list_herwig_end
00046 integer lnhwrt,lnhrd,lnhout,lnhdcy
00047 common/heplun/lnhwrt,lnhrd,lnhout,lnhdcy
00048 C---terminate elementary process
00049 c call hwefin
00050 C close(unit=lnhout)
00051 return
00052 end
00053
00054 C----------------------------------------------------------------------
00055 subroutine hwabeg
00056 C... user's routine for initialization
00057 end
00058 subroutine hwaend
00059 C... user's routine for terminal calculations, histogram output, etc
00060 end
00061 subroutine hwanal
00062 C... user's routine to analyse data from event
00063 end
00064 C----------------------------------------------------------------------