crecprob.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	crecprob (depthin, code, limit, dfai, E0in, NN, cosz, nr, recprob, nptcl, age, sum, Nx)

Function/Subroutine Documentation

crecprob()

subroutine crecprob	(	real	depthin,
		integer	code,
		real	limit,
		real	dfai,
		real	E0in,
		integer	NN,
		real	cosz,
		integer	nr,
		real, dimension(nr)	recprob,
		real, dimension(nr)	nptcl,
		real	age,
		real	sum,
		real	Nx
	)

Definition at line 3 of file crecprob.f.

Referenced by __checknrfai.f__(), and howmuch().

      implicit none
!
!        compute probabilty that we accept observed particles
!        which fall in at Moliere unit r and r+dr with dfai
!        azimuthal angle range; the probabilty is determined 
!        so that the maximumk number may not exceed 'limit'
!        in each region.  
!        This is based on 10^18 eV shower. 
!
      real depthin   ! input g/cm^2
      integer code ! input gamma-1, e-2, mu-3, had-4
      real limit   ! input max number of particls to be recorded
                   ! in actual simulation run.
      integer nr   ! input number of r bin; 42. is standard
                   ! r is digitized from r1=0.01 (m.u) with 0.1 log10
                   ! bin.
      real dfai    ! input  fai angle (deg) bin. 30 is standard
      real e0in      ! input  primary total energy in GeV.
      integer nn   ! input  primary nucleon number.
      real cosz    ! input  primary zenith angle in cosine
      real recprob(nr) ! ouput. probability to record particles
                       ! at r (at depth) in dfai region. if >1.
                       ! accept always
      real nptcl(nr)   ! output. average number of particles falling
                       ! on the given band region.
      real age        ! output. given depth is at age

      real sum  !  output sum of particles
      real nx    !  output number of particles at depth (Nx ~ sum)

      integer idep, ir
      real r1, r2,  a,  s, r
      real sizex, asdensity, rho,  n
      real pi, fita, fitb, fitc
      real  eps, depth, e0, fac
      real cogdep, dep2cogdep, cogdep2s
!
      pi=3.141592
      sum = 0.
      if(nn .ge. 1) then
         e0=e0in/nn
         fac = nn
      else
!         to be updateded
         e0 = e0in
         fac = 1
      endif 
      depth = depthin/cosz
      cogdep = dep2cogdep(e0in, nn, depth)
      s = cogdep2s(e0in, nn, cogdep)
      nx = sizex(e0in, nn, code, s)
      r1 = 0.01/10**0.05
      do ir=1, nr
         r2=r1*10.**0.1
         a = pi*(r2**2- r1**2)*dfai/360.
         r = sqrt(r1*r2)
         rho=asdensity(e0, code, s, r)
         n= nx*rho*a
         nptcl(ir)=n
         sum = sum + n
         eps =limit/n
!         if(code .ge. 3 .and.  ir .lt. 20 ) then
!            eps = eps*10.
!         elseif(code .ge. 3 ) then
!            eps = eps*2.
!         elseif(code .eq. 2 .and. ir .lt. 20 ) then
!            eps = eps*1.5
!         endif
         if(eps .lt. 0.) then
            recprob(ir) = 1.1
         else
            recprob(ir)= eps
         endif
         r1= r2
      enddo
      age = s

Here is the caller graph for this function: