tm_ampld.lp.f File Reference

Go to the source code of this file.

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 tm_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 tm_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 tm_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 tm_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 tm_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 tm_ampld.lp.f.

drop()

subroutine drop

(

RAT

)

Definition at line 1960 of file tm_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 tm_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 tm_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 tm_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 tm_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 tm_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 tm_ampld.lp.f.

ryb()

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

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

sarea()

subroutine sarea	(		D,
			RAT
	)

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

sareac()

subroutine sareac	(		EPS,
			RAT
	)

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

surfch()

subroutine surfch	(		N,
			E,
			RAT
	)

Definition at line 1920 of file tm_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 tm_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 tm_ampld.lp.f.

tt()

subroutine tt	(		NMAX,
			NCHECK
	)

Definition at line 1852 of file tm_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 tm_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 tm_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 tm_ampld.lp.f.