Functions/Subroutines
subroutine	calctmat (AXI, RAT, LAM, MRR, MRI, EPS, NP, DDELT, NDGS, NMAX)

subroutine	calcampl (NMAX, LAM, THET0, THET, PHI0, PHI, ALPHA, BETA, S, Z)

subroutine	ampl (NMAX, DLAM, TL, TL1, PL, PL1, ALPHA, BETA, VV, VH, HV, HH)

subroutine	vigampl (X, NMAX, M, DV1, DV2)

subroutine	const (NGAUSS, NMAX, MMAX, P, X, W, AN, ANN, S, SS, NP, EPS)

subroutine	vary (LAM, MRR, MRI, A, EPS, NP, NGAUSS, X, P, PPI, PIR, PII, R, DR, DDR, DRR, DRI, NMAX)

subroutine	rsp1 (X, NG, NGAUSS, REV, EPS, NP, R, DR)

subroutine	rsp2 (X, NG, REV, EPS, N, R, DR)

subroutine	rsp3 (X, NG, NGAUSS, REV, EPS, R, DR)

subroutine	rsp4 (X, NG, REV, R, DR)

subroutine	bess (X, XR, XI, NG, NMAX, NNMAX1, NNMAX2)

subroutine	rjb (X, Y, U, NMAX, NNMAX)

subroutine	ryb (X, Y, V, NMAX)

subroutine	cjb (XR, XI, YR, YI, UR, UI, NMAX, NNMAX)

subroutine	tmatr0 (NGAUSS, X, W, AN, ANN, S, SS, PPI, PIR, PII, R, DR, DDR, DRR, DRI, NMAX, NCHECK)

subroutine	tmatr (M, NGAUSS, X, W, AN, ANN, S, SS, PPI, PIR, PII, R, DR, DDR, DRR, DRI, NMAX, NCHECK)

subroutine	vig (X, NMAX, M, DV1, DV2)

subroutine	tt (NMAX, NCHECK)

subroutine	sarea (D, RAT)

subroutine	surfch (N, E, RAT)

subroutine	sareac (EPS, RAT)

subroutine	drop (RAT)

subroutine	gauss (N, IND1, IND2, Z, W)

Function/Subroutine Documentation

◆ ampl()

subroutine ampl	(		NMAX,
			DLAM,
			TL,
			TL1,
			PL,
			PL1,
			ALPHA,
			BETA,
		complex*16	VV,
		complex*16	VH,
		complex*16	HV,
		complex*16	HH
	)

Definition at line 574 of file ampld.lp.f.

◆ bess()

subroutine bess	(	real*8, dimension(ng)	X,
		real*8, dimension(ng)	XR,
		real*8, dimension(ng)	XI,
			NG,
			NMAX,
			NNMAX1,
			NNMAX2
	)

Definition at line 1138 of file ampld.lp.f.

◆ calcampl()

subroutine calcampl	(		NMAX,
		real*8	LAM,
			THET0,
			THET,
			PHI0,
			PHI,
			ALPHA,
			BETA,
		complex*16, dimension(2,2)	S,
		real*8, dimension(4,4)	Z
	)

Definition at line 512 of file ampld.lp.f.

◆ calctmat()

subroutine calctmat	(		AXI,
			RAT,
		real*8	LAM,
		real*8	MRR,
		real*8	MRI,
			EPS,
			NP,
			DDELT,
			NDGS,
			NMAX
	)

Definition at line 263 of file ampld.lp.f.

◆ cjb()

subroutine cjb	(		XR,
			XI,
		real*8, dimension(nmax)	YR,
		real*8, dimension(nmax)	YI,
		real*8, dimension(nmax)	UR,
		real*8, dimension(nmax)	UI,
			NMAX,
			NNMAX
	)

Definition at line 1228 of file ampld.lp.f.

◆ const()

subroutine const	(		NGAUSS,
			NMAX,
			MMAX,
			P,
		real*8, dimension(npng2)	X,
		real*8, dimension(npng2)	W,
		real*8, dimension(npn1)	AN,
		real*8, dimension(npn1,npn1)	ANN,
		real*8, dimension(npng2)	S,
		real*8, dimension(npng2)	SS,
			NP,
			EPS
	)

Definition at line 924 of file ampld.lp.f.

◆ drop()

subroutine drop ( RAT )

Definition at line 1960 of file ampld.lp.f.

◆ gauss()

subroutine gauss	(		N,
			IND1,
			IND2,
		real*8, dimension(n)	Z,
		real*8, dimension(n)	W
	)

Definition at line 2017 of file ampld.lp.f.

◆ rjb()

subroutine rjb	(		X,
		real*8, dimension(nmax)	Y,
		real*8, dimension(nmax)	U,
			NMAX,
			NNMAX
	)

Definition at line 1172 of file ampld.lp.f.

◆ rsp1()

subroutine rsp1	(	real*8, dimension(ng)	X,
			NG,
			NGAUSS,
			REV,
			EPS,
			NP,
		real*8, dimension(ng)	R,
		real*8, dimension(ng)	DR
	)

Definition at line 1030 of file ampld.lp.f.

◆ rsp2()

subroutine rsp2	(	real*8, dimension(ng)	X,
			NG,
			REV,
			EPS,
			N,
		real*8, dimension(ng)	R,
		real*8, dimension(ng)	DR
	)

Definition at line 1053 of file ampld.lp.f.

◆ rsp3()

subroutine rsp3	(	real*8, dimension(ng)	X,
			NG,
			NGAUSS,
			REV,
			EPS,
		real*8, dimension(ng)	R,
		real*8, dimension(ng)	DR
	)

Definition at line 1078 of file ampld.lp.f.

◆ rsp4()

subroutine rsp4	(	real*8, dimension(ng)	X,
			NG,
			REV,
		real*8, dimension(ng)	R,
		real*8, dimension(ng)	DR
	)

Definition at line 1112 of file ampld.lp.f.

◆ ryb()

subroutine ryb	(		X,
		real*8, dimension(nmax)	Y,
		real*8, dimension(nmax)	V,
			NMAX
	)

Definition at line 1199 of file ampld.lp.f.

◆ sarea()

subroutine sarea	(	D,
		RAT
	)

Definition at line 1902 of file ampld.lp.f.

◆ sareac()

subroutine sareac	(	EPS,
		RAT
	)

Definition at line 1951 of file ampld.lp.f.

◆ surfch()

subroutine surfch	(	N,
		E,
		RAT
	)

Definition at line 1920 of file ampld.lp.f.

◆ tmatr()

subroutine tmatr	(		M,
			NGAUSS,
		real*8, dimension(npng2)	X,
		real*8, dimension(npng2)	W,
		real*8, dimension(npn1)	AN,
		real*8, dimension(npn1,npn1)	ANN,
		real*8, dimension(npng2)	S,
		real*8, dimension(npng2)	SS,
			PPI,
			PIR,
			PII,
		real*8, dimension(npng2)	R,
		real*8, dimension(npng2)	DR,
		real*8, dimension(npng2)	DDR,
		real*8, dimension(npng2)	DRR,
		real*8, dimension(npng2)	DRI,
			NMAX,
			NCHECK
	)

Definition at line 1514 of file ampld.lp.f.

◆ tmatr0()

subroutine tmatr0	(		NGAUSS,
		real*8, dimension(npng2)	X,
		real*8, dimension(npng2)	W,
		real*8, dimension(npn1)	AN,
		real*8, dimension(npn1,npn1)	ANN,
		real*8, dimension(npng2)	S,
		real*8, dimension(npng2)	SS,
			PPI,
			PIR,
			PII,
		real*8, dimension(npng2)	R,
		real*8, dimension(npng2)	DR,
		real*8, dimension(npng2)	DDR,
		real*8, dimension(npng2)	DRR,
		real*8, dimension(npng2)	DRI,
			NMAX,
			NCHECK
	)

Definition at line 1301 of file ampld.lp.f.

◆ tt()

subroutine tt	(	NMAX,
		NCHECK
	)

Definition at line 1852 of file ampld.lp.f.

◆ vary()

subroutine vary	(	real*8	LAM,
		real*8	MRR,
		real*8	MRI,
			A,
			EPS,
			NP,
			NGAUSS,
		real*8, dimension(npng2)	X,
			P,
			PPI,
			PIR,
			PII,
		real*8, dimension(npng2)	R,
		real*8, dimension(npng2)	DR,
		real*8, dimension(npng2)	DDR,
		real*8, dimension(npng2)	DRR,
		real*8, dimension(npng2)	DRI,
			NMAX
	)

Definition at line 978 of file ampld.lp.f.

◆ vig()

subroutine vig	(		X,
			NMAX,
			M,
		real*8, dimension(npn1)	DV1,
		real*8, dimension(npn1)	DV2
	)

Definition at line 1793 of file ampld.lp.f.

◆ vigampl()

subroutine vigampl	(		X,
			NMAX,
			M,
		real*8, dimension(npn6)	DV1,
		real*8, dimension(npn6)	DV2
	)

Definition at line 860 of file ampld.lp.f.

Functions/Subroutines