testkl3.f File Reference

Go to the source code of this file.

Functions/Subroutines
program	__testkl3.f__
real function	kl3 (f)

Function/Subroutine Documentation

__testkl3.f__()

program __testkl3.f__

(

)

Definition at line 5 of file testkl3.f.

References e, f, i, kfrge(), nnn, p, parameter(), and y.

          real*4  kl3, kl3min, kl3max

Here is the call graph for this function:

kl3()

real function kl3

(

f

)

Definition at line 88 of file testkl3.f.

References f, parameter(), and t.

!           see n.p 22(1961)553-578
! ****************************************************************
!       put ml=object lepton mass (neu or mu)
!           mlp=other lepton  mass
! ****************************************************************
          real*4  mk,  ml, mlp, mmu, me, mpimk
!@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
          parameter( mk=493.667, mmu=105.66, me=.511,
     *               mpi=134.96,  ml=mmu, alfa=ml/mk,
     *               mpimk=mpi/mk, mlp=0, gz=-.35, a2=alfa**2)
!
         t= mpimk**2/ ( 1.-2*f+ a2)
         kl3= sqrt(f**2-a2)*(1.-t)**2 *(     4* f *(1.-2*f)
     *     + 5*a2*f-a2**2  +gz*a2*(4.-6*f+2*a2)+
     *     gz**2 * a2 * (f-a2)    )
          return
        entry kl3min(f)
            kl3=alfa
            return
        entry kl3max(f)
            kl3=(1.+a2-mpimk**2)/2

Here is the call graph for this function: