gbltst.f90 File Reference

Test program. More...

Go to the source code of this file.

Functions/Subroutines
program	test
	Simple tests with GBL.
subroutine	gbltjc (itype, ds, bfac, cosl, ajac)
	Simplified jacobian (quadratic in DS)
subroutine	gbll2c (itype, cosl, djac)
	Simplified transformation local to curvilinear.
function	unrm ()
	Simple unit normal.
function	unif (ix)
	Simple uniform random numbers.

---

Detailed Description

Test program.

Definition in file gbltst.f90.

---

Function/Subroutine Documentation

subroutine gbll2c	(	integer, intent(in)	itype,
		real, intent(inout)	cosl,
		double precision, dimension(5,5), intent(out)	djac
	)

Simplified transformation local to curvilinear.

Definition at line 312 of file gbltst.f90.

Referenced by test().

subroutine gbltjc	(	integer, intent(in)	itype,
		real, intent(in)	ds,
		real, intent(in)	bfac,
		real, intent(inout)	cosl,
		double precision, dimension(5,5), intent(out)	ajac
	)

Simplified jacobian (quadratic in DS)

Definition at line 262 of file gbltst.f90.

Referenced by test().

program test

(

)

Simple tests with GBL.

Runs with gcc4 (for RANDOM_NUMBER) or gcc3 (simple uniform distribution).

Simple track model:

• initial direction (COSL,0.,SINL)
• solenoidal magnectic field B=(0,0,Bz)
• simplified jacobian (parabolic in arclength)
• distortions in curvilinear system
• multiple scattering

Definition at line 20 of file gbltst.f90.

References dbavat(), dbprv(), gbltraj::gbladm(), gbltraj::gbladp(), gbltraj::gblads(), gbltraj::gbladx(), gbltraj::gblfit(), gbltraj::gblini(), gbll2c(), gbltraj::gblmp2(), gbltraj::gblres(), gbltjc(), and unrm().

function unif

(

ix

)

Simple uniform random numbers.

Definition at line 358 of file gbltst.f90.

function unrm

(

)

Simple unit normal.

Definition at line 346 of file gbltst.f90.

Referenced by test().