![]() |
HepPDT Reference DocumentationHepPDT |
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----------------------------------------------------------------------