cpxyzp.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	cpxyzp (po, pabs)

Function/Subroutine Documentation

cpxyzp()

subroutine cpxyzp	(	type(fmom)	po,
		real*8	pabs
	)

Definition at line 3 of file cpxyzp.f.

Referenced by cadjm(), cgetbsin(), cmoveptcl1(), cnbdc5(), cresetdirec(), and cresetmom().

       implicit none
#include  "Zptcl.h"
       type(fmom):: po
       real*8 pabs
       pabs=sqrt(po%p(1)**2+po%p(2)**2+po%p(3)**2)

Here is the caller graph for this function: