RefCoef Module

Provides reflection coefficient data

Uses

- FatalError
- monotonicMod
Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Used by

Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Variables

Type	Visibility	Attributes		Name		Initial
integer,	public,	parameter	::	BRCFile	=	31
integer,	public,	parameter	::	TRCFile	=	32
integer,	public,	parameter	::	IRCFile	=	12
integer,	public		::	NBotPts
integer,	public		::	NTopPts
integer,	public		::	NkTab
integer,	public,	ALLOCATABLE	::	iTab(:)
real(kind=8),	public,	ALLOCATABLE	::	xTab(:)
complex(kind=8),	public,	ALLOCATABLE	::	fTab(:)
complex(kind=8),	public,	ALLOCATABLE	::	gTab(:)
type(ReflectionCoef),	public,	ALLOCATABLE	::	RBot(:)
type(ReflectionCoef),	public,	ALLOCATABLE	::	RTop(:)

Derived Types

type, public :: ReflectionCoef

Components

Type	Visibility	Attributes		Name		Initial
real(kind=8),	public		::	theta
real(kind=8),	public		::	R
real(kind=8),	public		::	phi

Subroutines

public subroutine ReadReflectionCoefficient(FileRoot, BotRC, TopRC, PRTFile)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=80),	intent(in)			::	FileRoot
character(len=1),	intent(in)			::	BotRC
character(len=1),	intent(in)			::	TopRC
integer,	intent(in)			::	PRTFile

public subroutine InterpolateReflectionCoefficient(RInt, R, NPts, PRTFile)

Arguments

Type	Intent	Optional	Attributes		Name
type(ReflectionCoef),	intent(inout)			::	RInt
type(ReflectionCoef),	intent(in)			::	R(NPts)
integer,	intent(in)			::	NPts
integer,	intent(in)			::	PRTFile

public subroutine InterpolateIRC(x, f, g, iPower, xTab, fTab, gTab, iTab, NkTab)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=8),	intent(in)			::	x
complex(kind=8),	intent(out)			::	f
complex(kind=8),	intent(out)			::	g
integer,	intent(out)			::	iPower
real(kind=8),	intent(in)			::	xTab(NkTab)
complex(kind=8),	intent(in)			::	fTab(NkTab)
complex(kind=8),	intent(in)			::	gTab(NkTab)
integer,	intent(in)			::	iTab(NkTab)
integer,	intent(in)			::	NkTab