afrt_phs.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	af_phs_read (infile, nlamb, nsd, ilam1, ilam2, isd1, isd2, jfunc, jnorm, jrgm, kfunc, irh, iset, xtitle, xww, xn1, xn2, xrg, xsig, xnpar, xdx, epar)
subroutine	af_phs_process (outdir, ailam, aisd, aisd1, aisd2, jfunc, jnorm, jrgm, kfunc, irh, iset, xtitle, xww, xn1, xn2, xrg, xsig, xnpar, xdx, epar, ormin, ormax, odelr, odelx, or11, or22, or33, or44, oreff, oveff, occnsml, obsr, osalb, oasf, oqscat, oqext, oangl, ophfu, opol, ot, othd, orbar, odnzp, odnp, odvp, osumnp, owt)
subroutine	flbfr (il, isd, ifunc, xrg, xsig, xnpar, epar)
subroutine	pfunc (il, isd, jfunc, kfunc, jrgm, xtitle, xww, xn1, xn2, xrg, xsig, xnpar, xdx, epar, ormin, ormax, odelr, odelx, or11, or22, or33, or44, oreff, oveff, occnsml, obsr, osalb, oasf, oqscat, oqext, oangl, ophfu, opol, ot, othd, orbar, odnzp, odnp, odvp, osumnp, owt)
subroutine	norz (ifunc, nn, il, isd, irgm, title, xlamb, xn1, xn2, xnpar, xdx orbar, odnzp, odnp, odvp, osumnp, owt)
subroutine	asym (x, y, f, bsr)
function	erfz (x)
function	gammp (a, x)
subroutine	gser (gamser, a, x, gln)
subroutine	gcf (gammcf, a, x, gln)
function	gammln (xx)
subroutine	moment (ifunc, nn)
subroutine	xmntst (ifunc, irgm)

Function/Subroutine Documentation

af_phs_process()

subroutine af_phs_process	(	character*255	outdir,
		integer*4	ailam,
		integer*4	aisd,
		integer*4	aisd1,
		integer*4	aisd2,
		integer*4, dimension(nsdt)	jfunc,
		integer*4, dimension(nsdt)	jnorm,
		integer*4, dimension(nsdt)	jrgm,
		integer*4, dimension(nsdt)	kfunc,
		integer*4, dimension(nsdt)	irh,
		integer*4, dimension(nsdt)	iset,
		character*255, dimension(nsdt)	xtitle,
		real*8, dimension(nsdt,nw)	xww,
		real*8, dimension(nmd,nsdt,nw)	xn1,
		real*8, dimension(nmd,nsdt,nw)	xn2,
		real*8, dimension(nmd,nsdt,nw)	xrg,
		real*8, dimension(nmd,nsdt,nw)	xsig,
		real*8, dimension(nmd,nsdt,nw)	xnpar,
		real*8, dimension(nmd,nsdt,nw)	xdx,
		real*8, dimension(nsdt,npar)	epar,
		real*8, dimension(nmd)	ormin,
		real*8, dimension(nmd)	ormax,
		real*8, dimension(nmd)	odelr,
		real*8, dimension(nmd)	odelx,
		real*8	or11,
		real*8	or22,
		real*8	or33,
		real*8	or44,
		real*8	oreff,
		real*8	oveff,
		real*8	occnsml,
		real*8	obsr,
		real*8	osalb,
		real*8	oasf,
		real*8	oqscat,
		real*8	oqext,
		real*8, dimension(ntf)	oangl,
		real*8, dimension(ntf)	ophfu,
		real*8, dimension(ntf)	opol,
		real*8, dimension(ntf,nstk)	ot,
		real*8, dimension(ntf)	othd,
		real*8, dimension(ndr)	orbar,
		real*8, dimension(ndr)	odnzp,
		real*8, dimension(ndr)	odnp,
		real*8, dimension(ndr)	odvp,
		real*8, dimension(ndr)	osumnp,
		real*8, dimension(ndr)	owt
	)

Definition at line 107 of file afrt_phs.f.

af_phs_read()

subroutine af_phs_read	(	character*255	infile,
		integer*4	nlamb,
		integer*4	nsd,
		integer*4	ilam1,
		integer*4	ilam2,
		integer*4	isd1,
		integer*4	isd2,
		integer*4, dimension(nsdt)	jfunc,
		integer*4, dimension(nsdt)	jnorm,
		integer*4, dimension(nsdt)	jrgm,
		integer*4, dimension(nsdt)	kfunc,
		integer*4, dimension(nsdt)	irh,
		integer*4, dimension(nsdt)	iset,
		character*80, dimension(nsdt)	xtitle,
		real*8, dimension(nsdt,nw)	xww,
		real*8, dimension(nmd,nsdt,nw)	xn1,
		real*8, dimension(nmd,nsdt,nw)	xn2,
		real*8, dimension(nmd,nsdt,nw)	xrg,
		real*8, dimension(nmd,nsdt,nw)	xsig,
		real*8, dimension(nmd,nsdt,nw)	xnpar,
		real*8, dimension(nmd,nsdt,nw)	xdx,
		real*8, dimension(nsdt,npar)	epar
	)

Definition at line 19 of file afrt_phs.f.

asym()

subroutine asym	(	real*8, dimension(m)	x,
		real*8, dimension(m)	y,
			f,
			bsr
	)

Definition at line 1376 of file afrt_phs.f.

erfz()

function erfz

(

x

)

Definition at line 1427 of file afrt_phs.f.

flbfr()

subroutine flbfr	(		il,
			isd,
			ifunc,
		real*8, dimension(nmd,nsdt,nw)	xrg,
		real*8, dimension(nmd,nsdt,nw)	xsig,
		real*8, dimension(nmd,nsdt,nw)	xnpar,
		real*8, dimension(nsdt,npar)	epar
	)

Definition at line 198 of file afrt_phs.f.

gammln()

function gammln

(

xx

)

Definition at line 1504 of file afrt_phs.f.

gammp()

function gammp	(		a,
			x
	)

Definition at line 1437 of file afrt_phs.f.

gcf()

subroutine gcf	(		gammcf,
			a,
			x,
			gln
	)

Definition at line 1473 of file afrt_phs.f.

gser()

subroutine gser	(		gamser,
			a,
			x,
			gln
	)

Definition at line 1450 of file afrt_phs.f.

moment()

subroutine moment	(		ifunc,
			nn
	)

Definition at line 1523 of file afrt_phs.f.

norz()

subroutine norz	(		ifunc,
			nn,
			il,
			isd,
			irgm,
		character*80	title,
		real*8	xlamb,
		real*8, dimension(nmd,nsdt,nw)	xn1,
		real*8, dimension(nmd,nsdt,nw)	xn2,
		real*8, dimension(nmd,nsdt,nw)	xnpar,
		real*8, dimension(nmd,nsdt,nw)	xdx,
		real*8, dimension(ndr)	orbar,
		real*8, dimension(ndr)	odnzp,
		real*8, dimension(ndr)	odnp,
		real*8, dimension(ndr)	odvp,
		real*8, dimension(ndr)	osumnp,
		real*8, dimension(ndr)	owt
	)

Definition at line 606 of file afrt_phs.f.

pfunc()

subroutine pfunc	(		il,
			isd,
		integer*4, dimension(nsdt)	jfunc,
		integer*4, dimension(nsdt)	kfunc,
		integer*4, dimension(nsdt)	jrgm,
		character*80, dimension(nsdt)	xtitle,
		real*8, dimension(nsdt,nw)	xww,
		real*8, dimension(nmd,nsdt,nw)	xn1,
		real*8, dimension(nmd,nsdt,nw)	xn2,
		real*8, dimension(nmd,nsdt,nw)	xrg,
		real*8, dimension(nmd,nsdt,nw)	xsig,
		real*8, dimension(nmd,nsdt,nw)	xnpar,
		real*8, dimension(nmd,nsdt,nw)	xdx,
		real*8, dimension(nsdt,npar)	epar,
		real*8, dimension(nmd)	ormin,
		real*8, dimension(nmd)	ormax,
		real*8, dimension(nmd)	odelr,
		real*8, dimension(nmd)	odelx,
		real*8	or11,
		real*8	or22,
		real*8	or33,
		real*8	or44,
		real*8	oreff,
		real*8	oveff,
		real*8	occnsml,
		real*8	obsr,
		real*8	osalb,
		real*8	oasf,
		real*8	oqscat,
		real*8	oqext,
		real*8, dimension(ntf)	oangl,
		real*8, dimension(ntf)	ophfu,
		real*8, dimension(ntf)	opol,
		real*8, dimension(ntf,nstk)	ot,
		real*8, dimension(ntf)	othd,
		real*8, dimension(ndr)	orbar,
		real*8, dimension(ndr)	odnzp,
		real*8, dimension(ndr)	odnp,
		real*8, dimension(ndr)	odvp,
		real*8, dimension(ndr)	osumnp,
		real*8, dimension(ndr)	owt
	)

Definition at line 235 of file afrt_phs.f.

xmntst()

subroutine xmntst	(		ifunc,
			irgm
	)

Definition at line 1588 of file afrt_phs.f.