crdmuSmpTbl.f

Go to the documentation of this file.

      subroutine crdmuprstbl
      implicit none
!     set  muon  pair ceation cnst
      call crdmuprcnst
      end
!     ************************
      subroutine crdmubrstbl
      implicit none
      call crdmubrcnst
      end
!     ************************
      subroutine crdmunstbl
      implicit none
#include  "Zcmuint.h"
      call crdmuncnst
!        energy dependence
      munpwtx = 5.982385835778501d-2 
!        energy dependence      
      munpwdedx0 =  -1.727630385862580d-2
!         energy dependence
      munpwdedxt = 5.289883443973254d-2
      end
!     ************************
      subroutine crdmuprcnst
      implicit none
#include  "Zcmuint.h"

      muprvmin =1.d-3 
      muprdetx = 0.1d0
      muprde = 0.2d0
      mupremin = 18.4826551756518d0
      mupremax = 73580.7755629467d0
      muprdu = 1.d-2
      muprusize = 101
      mupresize = 19
      muprtxt = 38
      mupremax1 = 92632.7081757169
      end
!     ************************
      subroutine crdmubrcnst
      implicit none
#include "Zcmuint.h"
      mubrvmin = 1.d-3
      mubrdetx = 0.1d0
      mubrde = 0.2d0
      mubremin = 26.4037931080739d0
      mubremax = 66323.3296485571d0
      mubrdu = 1.d-2
      mubrusize = 101
      mubresize = 18
      mubrtxt = 36
      mubremax1 = 83496.1250893700d0
      end
!     ************************
      subroutine crdmuncnst
      implicit none
#include  "Zcmuint.h"
      munvmin  = 1.d-3
      mundetx = 0.1d0
      munde  = 0.2d0
      munemin = 40.7451833474073d0
      munemax = 64576.7637128858d0  
      mundu = 1.d-2
      munusize = 101
      munesize = 17
      muntxt = 34
      munemax1 = 81297.3288495795d0
      end