cepgen_print.f

Go to the documentation of this file.

      ! CepGen: a central exclusive processes event generator
      ! Copyright (C) 2018-2024  Laurent Forthomme
      !
      ! This program is free software: you can redistribute it and/or modify
      ! it under the terms of the GNU General Public License as published by
      ! the Free Software Foundation, either version 3 of the License, or
      ! any later version.
      !
      ! This program is distributed in the hope that it will be useful,
      ! but WITHOUT ANY WARRANTY; without even the implied warranty of
      ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
      ! GNU General Public License for more details.
      !
      ! You should have received a copy of the GNU General Public License
      ! along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
      subroutine cepgen_print
 
      implicit none
      include 'CepGen/Process/Fortran/KTBlocks.inc'
      logical params_shown
      data params_shown/.false./
      save params_shown
 
      if(params_shown) return
 
      print *,'========================================================'
      print *,'Constant                                   value(s)'
      print *,'--------------------------------------------------------'
      print 100,'Proton mass (GeV/c^2)',am_p
      print 100,'GeV^2 -> pb conversion',units
      print 100,'pi',pi
      print *,'========================================================'
      print *,'Parameter                                  value(s)'
      print *,'--------------------------------------------------------'
      print 101,'Process mode:',icontri
      print 103,'Beams momenta:',inp1,inp2
      print 102,'Fluxes modes:',iflux1,iflux2
      print 104,'Beams (A,Z):',a_nuc1,z_nuc1,a_nuc2,z_nuc2
      print *,'========================================================'
      print *,'Cut                        enabled   minimum     maximum'
      print *,'--------------------------------------------------------'
      print 105,'pt(single)',ipt,pt_min,pt_max
      print 105,'energy(single)',iene,ene_min,ene_max
      print 105,'eta(single)',ieta,eta_min,eta_max
      print 105,'m(sum)',iinvm,invm_min,invm_max
      print 105,'pt(sum)',iptsum,ptsum_min,ptsum_max
      print 105,'delta(y)',idely,dely_min,dely_max
      print *,'========================================================'
      print *,'Process-specific parameters'
      print *,'--------------------------------------------------------'
      call cepgen_list_params
      print *,'========================================================'
 
      params_shown=.true.
 
100   format(a33,f24.6)
101   format(a33,i12)
102   format(a33,i12,i12)
103   format(a33,f12.2,f12.2)
104   format(a33,'   (',i3,',',i3,'),  (',i3,',',i3,')')
105   format(a26,'     ',l2,f12.4,f12.4)
 
      end