!  GeInit.f90
!
!  Initialization routine for the Genesis generator.
!  Calling this routine is mandatory before using any
!  module of the Genesis package.
!
!  Detlef Irmscher, Thomas Ullrich, Uni Heidelberg, September 1993
!  Last update: 16.3.95 tu
!
subroutine GeInit(resourceFile, verbose)
    use genesis_m, self=>GeInit
    implicit none

    logical, optional :: verbose
    character(len=*)  :: resourceFile

    print "(/' ',a,/)", version

    nullify(treeList)           ! initialize lists
    nullify(particleList)
    nullify(decayList)

    rcFile = resourceFile       ! assign resource file
    print "(' use resource file: ',a)", rcFile

    call GeGetResources         ! read resource file

    call GeCheckResources       ! consistency check of resources

    call GeInitRndm             ! initialize random generator
    isInitialized = .true.      ! flag initialization status

    if (present(verbose)) then  ! show resources
       if (verbose) call GeShowResources
    endif
end subroutine GeInit