cxai.f File Reference

Go to the source code of this file.

Functions/Subroutines
real *8 function	cxai (gam, mag)

Function/Subroutine Documentation

cxai()

real*8 function cxai	(	type(ptcl)	gam,
		type(magfield)	mag
	)

Definition at line 6 of file cxai.f.

References masele.

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

      type(ptcl):: gam ! gamma ray
      type(magfield):: mag  ! magnetic field.
      real*8 bsin, cgetbsin

      bsin = cgetbsin(gam, mag)
!            Eg/m  * Bsin/Bcr      
      cxai = gam%fm%p(4) /masele * bsin/bcr/ 2.