lamdba_hv Subroutine

public subroutine lamdba_hv(d1, dd1i, dd1ij, L, dLi, dLij)

Infinite pressure limit parameter $\Lambda$

$\Lambda = \frac{1}{\delta_1 + \delta_2} \ln \frac{1 + \delta_1}{1 + \delta_2}$

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=pr),	intent(in)			::	d1
real(kind=pr),	intent(in)			::	dd1i(:)
real(kind=pr),	intent(in)			::	dd1ij(:,:)
real(kind=pr),	intent(out)			::	L
real(kind=pr),	intent(out)			::	dLi(:)
real(kind=pr),	intent(out)			::	dLij(:,:)

Variables

Type	Visibility	Attributes		Name		Initial
real(kind=pr),	public,	dimension(size(dd1i), size(dd1i))	::	d2f
real(kind=pr),	public,	dimension(size(dd1i), size(dd1i))	::	d2g
real(kind=pr),	public,	dimension(size(dd1i), size(dd1i))	::	d2h
real(kind=pr),	public,	dimension(size(dd1i))	::	df
real(kind=pr),	public,	dimension(size(dd1i))	::	dg
real(kind=pr),	public,	dimension(size(dd1i))	::	dh
real(kind=pr),	public		::	f
real(kind=pr),	public		::	g
real(kind=pr),	public		::	h
integer,	public		::	i
integer,	public		::	j
integer,	public		::	nc