cgetBeta.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	cgetbeta (aPtcl, beta)

Function/Subroutine Documentation

cgetbeta()

subroutine cgetbeta	(	type(ptcl)	aPtcl,
		real*8	beta
	)

Definition at line 4 of file cgetBeta.f.

Referenced by cmovestreight().

      implicit none
!----      include '../Particle/Zptcl.h'
#include  "Zptcl.h"
      type(ptcl)::aptcl
      real*8 beta
!
      real*8 g, gmin/100./
!
      if(aptcl%mass .eq. 0.) then
         beta = 1.
      else
         g =aptcl%fm%p(4)/aptcl%mass 
         if(g .lt. gmin) then
            beta = sqrt(1. - 1./g/g)
         else
            beta =(-1./g/g/8.0-0.5)/g/g + 1.
         endif
      endif

Here is the caller graph for this function: