cadjm.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	cadjm (p, q)

Function/Subroutine Documentation

cadjm()

subroutine cadjm	(	type(ptcl)	p,
		type(ptcl)	q
	)

Definition at line 14 of file cadjm.f.

References cpxyzp(), and d0.

Referenced by cfakegh(), cgextx(), and cleadingpiaftercol().

!----      include '../Zptcl.h'
#include  "Zptcl.h"
      type(ptcl):: p, q
!      
      real*8  pabs, cpabs, r
!        |p| from 3 momentum
      call cpxyzp(p%fm, pabs)
!        true |p|      
      cpabs = p%fm%p(4)**2 - p%mass**2
      if(cpabs .gt. 0.d0 .and. pabs .gt. 0.d0) then
           cpabs = sqrt(cpabs)
           r = cpabs/pabs
           q%fm%p(1) = p%fm%p(1) * r
           q%fm%p(2) = p%fm%p(2) * r
           q%fm%p(3) = p%fm%p(3) * r
      else
           q%fm%p(1) =0.
           q%fm%p(2) =0.
           q%fm%p(3) =0.
      endif
      q%fm%p(4) = p%fm%p(4)
      q%mass = p%mass

Here is the call graph for this function:

Here is the caller graph for this function: