cpCos2pxyz.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	cpcos2pxyz (cosa, p, pxyz)

Function/Subroutine Documentation

cpcos2pxyz()

subroutine cpcos2pxyz	(	real*8	cosa,
		real*8	p,
		type(fmom)	pxyz
	)

Definition at line 2 of file cpCos2pxyz.f.

References kcossn().

Referenced by ckmuneupidcy(), ckpieneudecay(), and cmuneudcy().

      implicit none
!----      include '../../Zptcl.h'
#include  "Zptcl.h"
      real*8 cosa, p

      type(fmom):: pxyz
      real*8  cs, sn, tmp, sina

      call kcossn(cs, sn)
      tmp=1.- cosa**2
      sina=sqrt(tmp)
      pxyz%p(1) = sina*cs*p
      pxyz%p(2) = sina*sn*p
      pxyz%p(3) = cosa*p

Here is the call graph for this function:

Here is the caller graph for this function: