Go to the source code of this file.
◆ c3pidc()
subroutine c3pidc |
( |
type(ptcl), intent(in) |
vm, |
|
|
type(ptcl), dimension(*), intent(out) |
a, |
|
|
integer, intent(out) |
np |
|
) |
| |
Definition at line 95 of file cvmDecay.f.
References cibst1(), cmkptc(), cnbdcy(), and kpion.
Referenced by comgdc(), and cphidc().
99 type(
ptcl),
intent(in):: vm
100 type(
ptcl),
intent(out)::
a(*)
102 integer,
intent(out):: np
115 do while( icon .ne. 0 .and. ntry < 200)
116 call cnbdcy(3, vm%mass,
a, 0, w, icon)
120 write(0, *)
' cnbdcy fails for omega 3 pi',
121 *
'cms=',vm%mass,
'icon=',icon
subroutine cibst1(init, p1, p2, po)
subroutine cnbdcy(n, ecm, p, jw, w, icon)
subroutine cmkptc(code, subcode, charge, p)
max ptcl codes in the kpion
◆ comgdc()
subroutine comgdc |
( |
type(ptcl), intent(in) |
vm, |
|
|
type(ptcl), dimension(*), intent(out) |
a, |
|
|
integer, intent(out) |
np |
|
) |
| |
Definition at line 39 of file cvmDecay.f.
References c2bdcy(), c3pidc(), cibst1(), cmkptc(), d0, kmuon, kphoton, kpion, and rndc().
Referenced by cinteomega(), and cvmdcy().
44 type(
ptcl),
intent(in):: vm
45 type(
ptcl),
intent(out)::
a(*)
47 integer,
intent(out):: np
59 if(u .lt. .892
d0)
then 61 elseif(u .lt. .9748
d0)
then 66 elseif( u < 0.9901
d0)
then 72 elseif( u < 0.9901009
d0)
then 78 elseif( u < 0.9901022
d0)
then
subroutine cibst1(init, p1, p2, po)
subroutine c3pidc(vm, a, np)
block data cblkEvhnp ! currently usable models data RegMdls ad *special data *Cekaon d0
subroutine c2bdcy(p, p1, p2)
subroutine cmkptc(code, subcode, charge, p)
max ptcl codes in the kpion
max ptcl codes in the kmuon
◆ cphidc()
subroutine cphidc |
( |
type(ptcl), intent(in) |
vm, |
|
|
type(ptcl), dimension(*), intent(out) |
a, |
|
|
integer, intent(out) |
np |
|
) |
| |
Definition at line 134 of file cvmDecay.f.
References c2bdcy(), c3pidc(), cmkptc(), crhodc(), d0, k0l, k0s, keta, kkaon, kmuon, kphoton, kpion, krho, and rndc().
Referenced by cintephi(), and cvmdcy().
139 type(
ptcl),
intent(in):: vm
140 type(
ptcl),
intent(out)::
a(*)
142 integer,
intent(out):: np
161 if(u .lt. 0.495
d0)
then 166 elseif(u .lt. 0.831
d0)
then 171 elseif(u .lt. 0.960
d0)
then 182 elseif( u < 0.9842
d0)
then 184 elseif( u < 0.99729
d0)
then 190 elseif( u < 0.997577
d0 )
then subroutine crhodc(vm, a, np)
max ptcl codes in the kseethru ! subcode integer k0l
max ptcl codes in the kseethru ! subcode integer k0s
max ptcl codes in the kkaon
subroutine c3pidc(vm, a, np)
block data cblkEvhnp ! currently usable models data RegMdls ad *special data *Cekaon d0
max ptcl codes in the krho
subroutine c2bdcy(p, p1, p2)
subroutine cmkptc(code, subcode, charge, p)
max ptcl codes in the keta
max ptcl codes in the kpion
max ptcl codes in the kmuon
◆ crhodc()
subroutine crhodc |
( |
type(ptcl), intent(in) |
vm, |
|
|
type(ptcl), dimension(*), intent(out) |
a, |
|
|
integer, intent(out) |
np |
|
) |
| |
Definition at line 4 of file cvmDecay.f.
References c2bdcy(), cmkptc(), d, kmuon, kpion, and rndc().
Referenced by cinterho(), cphidc(), and cvmdcy().
9 type(
ptcl),
intent(in):: vm
10 type(
ptcl),
intent(out)::
a(*)
12 integer,
intent(out):: np
18 if(vm%charge .eq. 0)
then
dE dx *! Nuc Int sampling table d
subroutine c2bdcy(p, p1, p2)
subroutine cmkptc(code, subcode, charge, p)
max ptcl codes in the kpion
max ptcl codes in the kmuon