!  GeShowResources.f90
!
!  Print stored resources.
!
!  Thomas Ullrich, University Heidelberg, March 1995
!
subroutine GeShowResources
    use genesis_m, self=>GeShowResources
    implicit none
    integer          :: i
    character(len=8) :: string

    !
    ! Run Resources
    !
    print '(a)','Run Settings:'
    print *,'      rndmSeed ...................',rndmSeed
    print *,'      pion0_over_nch .............',pion0_over_nch
    print *,'      is_mass_weight .............',is_mass_weight
    print *,'      is_pt_weight ...............',is_pt_weight
    print *,'      central_over_total_pion0 ...',central_over_total_pion0
    print *,'      central_rapidity ...........',central_rapidity
    print *,'      etaMin .....................',etaMin
    print *,'      etaMax .....................',etaMax

    !
    ! Collision Resources
    !
    print '(a)','Collision Parameters:'
    print *,'      projectile%Z ................',projectile%Z
    print *,'      projectile%A ................',projectile%A
    print *,'      projectile%p%p%pz ...........',sngl(projectile%p%p%pz)
    print *,'      target%Z ....................',target%Z
    print *,'      target%A ....................',target%A
    print *,'      target%p%p%pz ...............',sngl(target%p%p%pz)

    !
    ! Particle Resources
    !
    print '(a)','Particle Definitions:'
    do i = 1, size(particleList)
       print *,'      particle%name ............... ',trim(particleList(i)%name)
       print *,'         particle%id ..............',particleList(i)%id
       print *,'         particle%mass ............',sngl(particleList(i)%mass)
       print *,'         particle%width ...........',sngl(particleList(i)%width)
       print *,'         particle%charge ..........',particleList(i)%charge
       print *,'         particle%spin ............',particleList(i)%spin
       print *,'         particle%relSigmaTotal ...',particleList(i)%relSigmaTotal
       print *,'         particle%relSigmaCentral .',particleList(i)%relSigmaCentral
       print *,'         particle%ptHbookId .......',particleList(i)%ptHbookId
       print *,'         particle%yHbookId ........',particleList(i)%yHbookId
    enddo

    !
    ! Decay Resources
    !
    print '(a)','Decay Definitions:'
    do i = 1, size(decayList)
       print *,'      decay%name .................. ',trim(decayList(i)%name)
       select case (decayList(i)%formFactor)
       case (USE_NONE)
          string = 'none'
       case (USE_VDM)
          string = 'VDM'
       case (USE_LEPTON_G)
          string = 'Lepton-G'
       case default
          string = '?'
       end select
       print *,'         decay%formFactor ......... ',string
       print *,'         decay%branchingRatio .....',sngl(decayList(i)%branchingRatio)
       print *,'         decay%enabled ............',decayList(i)%enabled
       print *,'         decay%nBody ..............',decayList(i)%nBody
       print *,'         decay%decayChildren ......',decayList(i)%decayChildren
    enddo
end subroutine GeShowResources