gibuu is hosted by Hepforge, IPPP Durham
GiBUU

TABLE OF CONTENTS


/PreEvList [ Modules ]

[ Top ] [ Modules ]

NAME

module PreEvList

PURPOSE

Here the handling of "type tPreEvList" are given.


PreEvList/CreateSortedPreEvent [ Functions ]

[ Top ] [ PreEvList ] [ Functions ]

NAME

logical function CreateSortedPreEvent(E, PreE) logical function CreateSortedPreEvent(Parts, PreE)

PURPOSE

This routine creates a sorted list of particles on the basis of type "preEvent" out of the given tEvent.

INPUTS

  • type(tAnaEvent) :: E -- The event

or * type(particle), dimension(:) :: Parts -- The Particles

OUTPUT

  • type(preEvent), dimension(:) :: PreE -- the list of particles
  • return value flags success or not

NOTES

Only a maximum number of particles is considered, at the moment: 40.


PreEvList/PreEvList_INIT [ Subroutines ]

[ Top ] [ PreEvList ] [ Subroutines ]

NAME

subroutine PreEvList_INIT(L)

PURPOSE

Initialize the List (call only at start; to reset the list please call PreEvList_CLEAR)

INPUTS

OUTPUT

(none)


PreEvList/PreEvList_CLEAR [ Subroutines ]

[ Top ] [ PreEvList ] [ Subroutines ]

NAME

subroutine PreEvList_CLEAR(L)

PURPOSE

Reset the List: Delete all Nodes and Entries and re-init the pointers

INPUTS

OUTPUT

(none)


PreEvList/PreEvList_INSERT [ Subroutines ]

[ Top ] [ PreEvList ] [ Subroutines ]

NAME

subroutine PreEvList_INSERT(L, V, ipos)

PURPOSE

Insert the entry "V" into the list "L", if it is not already in. In this case, just sum up the value of "weight" of the corresponding node

INPUTS

OUTPUT

  • integer, OPTIONAL :: ipos -- the position in the list
  • The list is modified

NOTES

one could think about building up a sorted list instead of just appending new entries at the end.


PreEvList/PreEvList_GET [ Subroutines ]

[ Top ] [ PreEvList ] [ Subroutines ]

NAME

logical function PreEvList_GET(L, V, ipos)

PURPOSE

Insert the entry "V" into the list "L", if it is not already in. In this case, just sum up the value of "weight" of the corresponding node

INPUTS

OUTPUT

  • type(tPreEvListEntry) :: V -- The Entry
  • function value : .true. at success


PreEvList/PreEvList_Print [ Subroutines ]

[ Top ] [ PreEvList ] [ Subroutines ]

NAME

subroutine PreEvList_Print (iFile, L, fak, n, iBreak, sBreak, withLN)

PURPOSE

Write the list "L" to file "iFile". Multiply the written weights by the factor "fak". As a side effect, the list is being sorted (before printing).

INPUTS

  • integer :: iFile -- The file number
  • type(tPreEvList) :: L -- The List
  • real :: fak -- the factor to multiply the weights with
  • integer,OPTIONAL :: n -- number of columns to print
  • integer,OPTIONAL :: iBreak -- some string is inserted after entry nnn
  • character*(*),OPTIONAL :: sBreak -- string to insert
  • logical, OPTIONAL :: withLN -- print with line numbers

OUTPUT

witten to file "iFile"

NOTES

The format is not very clean.


PreEvList/PreEvList_PrintEntry [ Subroutines ]

[ Top ] [ PreEvList ] [ Subroutines ]

NAME

subroutine PreEvList_PrintEntry(iFile,E,fak,n,iBreak,sBreak,iLN)

PURPOSE

Print a tPreEvListEntry to output.

INPUTS

  • integer :: iFile -- The file number
  • type(tPreEvListEntry) :: E -- The List-Entry
  • real :: fak -- the factor to multiply the weights with
  • integer,OPTIONAL :: n -- number of columns to print
  • integer,OPTIONAL :: iBreak -- some string is inserted after entry nnn
  • character*(*),OPTIONAL :: sBreak -- string to insert
  • integer, OPTIONAL :: withLN -- line number to print

OUTPUT

witten to file "iFile"

NOTES

The format is not very clean.


PreEvList/PreEvList_Sort [ Subroutines ]

[ Top ] [ PreEvList ] [ Subroutines ]

NAME

subroutine PreEvList_Sort (L)

PURPOSE

Sort the list 'L' by weights (using the 'mergesort' algorithm).

INPUTS

OUTPUT

NOTE This routine represents a rather direct translation of the C code from http://www.chiark.greenend.org.uk/~sgtatham/algorithms/listsort.html