HepPDT Reference Documentation

HepPDT

examListHerwigInterface.F

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----------------------------------------------------------------------

Generated on Fri Dec 4 14:05:23 2009 for HepPDT by  doxygen 1.4.7