cgetBsin.f File Reference

Go to the source code of this file.

Functions/Subroutines
real *8 function	cgetbsin (aPtcl, mag)

Function/Subroutine Documentation

cgetbsin()

real*8 function cgetbsin	(	type(ptcl)	aPtcl,
		type(magfield)	mag
	)

Definition at line 5 of file cgetBsin.f.

References cpxyzp(), and cvecprod().

      implicit none
#include "Zglobalc.h"
#include "Zptcl.h"
#include "Zcoord.h"
#include "Zmagfield.h"

      type(ptcl):: aptcl    ! input. electron or gamma 
      type(magfield):: mag  ! magnetic field.

      type(coord):: p, b, pb      ! pb is  P x B
      real*8 pbsin, pabs
      integer i
!           for safety
      do i = 1, 3
          p%r(i) = aptcl%fm%p(i)
      enddo

      b%r(1) = mag%x
      b%r(2) = mag%y
      b%r(3) = mag%z

      call cvecprod(p, b, pb)
!        get pbsin
      pbsin = sqrt( pb%r(1)**2 + pb%r(2)**2 + pb%r(3)**2 )
!
      call cpxyzp(aptcl%fm, pabs)

      cgetbsin = pbsin/pabs

Here is the call graph for this function: