cgzaiDecay.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	cgzaidecay (pj, a, np)

Function/Subroutine Documentation

cgzaidecay()

subroutine cgzaidecay	(	type(ptcl)	pj,
		type(ptcl), dimension(*)	a,
		integer	np
	)

Definition at line 8 of file cgzaiDecay.f.

References c2bdcy(), cmkptc(), klambda, kpion, and regptcl.

Referenced by cintegzai(), and cmydecay().

       implicit none
#include  "Zptcl.h"
#include  "Zcode.h"

       integer np               !output. no. of ptcls produced
       type(ptcl):: pj         ! input. kaon
       type(ptcl):: a(*)      ! output. produced ptcls
!
       integer subcode  ! of lambda
       integer charge   ! of pi
!           gzai- --> lambda + pi-
!           gzai-Bar --> lambda_bar + pi+
       
       charge = pj%subcode
       subcode = pj%subcode
!     
       call cmkptc(kpion, regptcl, charge, a(1))
       call cmkptc(klambda, subcode, 0, a(2))
       call c2bdcy(pj, a(1), a(2))
       np=2

Here is the call graph for this function:

Here is the caller graph for this function: