mfi_lapack – MFI - Modern Fortran Interfaces

Modern fortran interfaces for LAPACK

Uses

- f77_lapack
- iso_fortran_env

Interfaces

public interface mfi_geqrf

Generic modern interface for GEQRF. Supports s, d, c, z. See also: sgeqrf, dgeqrf, cgeqrf, zgeqrf.

public pure subroutine mfi_sgeqrf(a, tau, info)

Modern interface for f77_geqrf. See also: mfi_geqrf, f77_geqrf.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=REAL32),	intent(inout)			::	a(:,:)
real(kind=REAL32),	intent(out),	optional,	target	::	tau(:)
integer,	intent(out),	optional		::	info

public pure subroutine mfi_dgeqrf(a, tau, info)

Modern interface for f77_geqrf. See also: mfi_geqrf, f77_geqrf.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=REAL64),	intent(inout)			::	a(:,:)
real(kind=REAL64),	intent(out),	optional,	target	::	tau(:)
integer,	intent(out),	optional		::	info

public pure subroutine mfi_cgeqrf(a, tau, info)

Modern interface for f77_geqrf. See also: mfi_geqrf, f77_geqrf.

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=REAL32),	intent(inout)			::	a(:,:)
complex(kind=REAL32),	intent(out),	optional,	target	::	tau(:)
integer,	intent(out),	optional		::	info

public pure subroutine mfi_zgeqrf(a, tau, info)

Modern interface for f77_geqrf. See also: mfi_geqrf, f77_geqrf.

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=REAL64),	intent(inout)			::	a(:,:)
complex(kind=REAL64),	intent(out),	optional,	target	::	tau(:)
integer,	intent(out),	optional		::	info

public interface mfi_gerqf

Generic modern interface for GERQF. Supports s, d, c, z. See also: sgerqf, dgerqf, cgerqf, zgerqf.

public pure subroutine mfi_sgerqf(a, tau, info)

Modern interface for f77_gerqf. See also: mfi_gerqf, f77_gerqf.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=REAL32),	intent(inout)			::	a(:,:)
real(kind=REAL32),	intent(out),	optional,	target	::	tau(:)
integer,	intent(out),	optional		::	info

public pure subroutine mfi_dgerqf(a, tau, info)

Modern interface for f77_gerqf. See also: mfi_gerqf, f77_gerqf.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=REAL64),	intent(inout)			::	a(:,:)
real(kind=REAL64),	intent(out),	optional,	target	::	tau(:)
integer,	intent(out),	optional		::	info

public pure subroutine mfi_cgerqf(a, tau, info)

Modern interface for f77_gerqf. See also: mfi_gerqf, f77_gerqf.

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=REAL32),	intent(inout)			::	a(:,:)
complex(kind=REAL32),	intent(out),	optional,	target	::	tau(:)
integer,	intent(out),	optional		::	info

public pure subroutine mfi_zgerqf(a, tau, info)

Modern interface for f77_gerqf. See also: mfi_gerqf, f77_gerqf.

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=REAL64),	intent(inout)			::	a(:,:)
complex(kind=REAL64),	intent(out),	optional,	target	::	tau(:)
integer,	intent(out),	optional		::	info

public interface mfi_getrf

Generic modern interface for GETRF. Supports s, d, c, z. See also: sgetrf, dgetrf, cgetrf, zgetrf.

public pure subroutine mfi_sgetrf(a, ipiv, info)

Modern interface for f77_getrf. See also: mfi_getrf, f77_getrf.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=REAL32),	intent(inout)			::	a(:,:)
integer,	intent(out),	optional,	target	::	ipiv(:)
integer,	intent(out),	optional		::	info

public pure subroutine mfi_dgetrf(a, ipiv, info)

Modern interface for f77_getrf. See also: mfi_getrf, f77_getrf.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=REAL64),	intent(inout)			::	a(:,:)
integer,	intent(out),	optional,	target	::	ipiv(:)
integer,	intent(out),	optional		::	info

public pure subroutine mfi_cgetrf(a, ipiv, info)

Modern interface for f77_getrf. See also: mfi_getrf, f77_getrf.

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=REAL32),	intent(inout)			::	a(:,:)
integer,	intent(out),	optional,	target	::	ipiv(:)
integer,	intent(out),	optional		::	info

public pure subroutine mfi_zgetrf(a, ipiv, info)

Modern interface for f77_getrf. See also: mfi_getrf, f77_getrf.

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=REAL64),	intent(inout)			::	a(:,:)
integer,	intent(out),	optional,	target	::	ipiv(:)
integer,	intent(out),	optional		::	info

public interface mfi_getri

Generic modern interface for GETRI. Supports s, d, c, z. See also: sgetri, dgetri, cgetri, zgetri.

public pure subroutine mfi_sgetri(a, ipiv, info)

Modern interface for f77_getri. See also: mfi_getri, f77_getri.

Arguments

Type	Intent	Optional		Name
real(kind=REAL32),	intent(inout)		::	a(:,:)
integer,	intent(in)		::	ipiv(:)
integer,	intent(out),	optional	::	info

public pure subroutine mfi_dgetri(a, ipiv, info)

Modern interface for f77_getri. See also: mfi_getri, f77_getri.

Arguments

Type	Intent	Optional		Name
real(kind=REAL64),	intent(inout)		::	a(:,:)
integer,	intent(in)		::	ipiv(:)
integer,	intent(out),	optional	::	info

public pure subroutine mfi_cgetri(a, ipiv, info)

Modern interface for f77_getri. See also: mfi_getri, f77_getri.

Arguments

Type	Intent	Optional		Name
complex(kind=REAL32),	intent(inout)		::	a(:,:)
integer,	intent(in)		::	ipiv(:)
integer,	intent(out),	optional	::	info

public pure subroutine mfi_zgetri(a, ipiv, info)

Modern interface for f77_getri. See also: mfi_getri, f77_getri.

Arguments

Type	Intent	Optional		Name
complex(kind=REAL64),	intent(inout)		::	a(:,:)
integer,	intent(in)		::	ipiv(:)
integer,	intent(out),	optional	::	info

public interface mfi_getrs

Generic modern interface for GETRS. Supports s, d, c, z. See also: sgetrs, dgetrs, cgetrs, zgetrs.

public pure subroutine mfi_sgetrs(a, ipiv, b, trans, info)

Modern interface for f77_getrs. See also: mfi_getrs, f77_getrs.

Arguments

Type	Intent	Optional		Name
real(kind=REAL32),	intent(inout)		::	a(:,:)
integer,	intent(in)		::	ipiv(:)
real(kind=REAL32),	intent(inout)		::	b(:,:)
character(len=1),	intent(in),	optional	::	trans
integer,	intent(out),	optional	::	info

public pure subroutine mfi_dgetrs(a, ipiv, b, trans, info)

Modern interface for f77_getrs. See also: mfi_getrs, f77_getrs.

Arguments

Type	Intent	Optional		Name
real(kind=REAL64),	intent(inout)		::	a(:,:)
integer,	intent(in)		::	ipiv(:)
real(kind=REAL64),	intent(inout)		::	b(:,:)
character(len=1),	intent(in),	optional	::	trans
integer,	intent(out),	optional	::	info

public pure subroutine mfi_cgetrs(a, ipiv, b, trans, info)

Modern interface for f77_getrs. See also: mfi_getrs, f77_getrs.

Arguments

Type	Intent	Optional		Name
complex(kind=REAL32),	intent(inout)		::	a(:,:)
integer,	intent(in)		::	ipiv(:)
complex(kind=REAL32),	intent(inout)		::	b(:,:)
character(len=1),	intent(in),	optional	::	trans
integer,	intent(out),	optional	::	info

public pure subroutine mfi_zgetrs(a, ipiv, b, trans, info)

Modern interface for f77_getrs. See also: mfi_getrs, f77_getrs.

Arguments

Type	Intent	Optional		Name
complex(kind=REAL64),	intent(inout)		::	a(:,:)
integer,	intent(in)		::	ipiv(:)
complex(kind=REAL64),	intent(inout)		::	b(:,:)
character(len=1),	intent(in),	optional	::	trans
integer,	intent(out),	optional	::	info

public interface mfi_hetrf

Generic modern interface for HETRF. Supports c, z. See also: chetrf, zhetrf.

public pure subroutine mfi_chetrf(a, uplo, ipiv, info)

Modern interface for f77_hetrf. See also: mfi_hetrf, f77_hetrf. Computes the factorization of a Hermitian matrix using the Bunch-Kaufman diagonal pivoting method

The factorization has the form: - A = UDUH (if uplo='U') or - A = LDLH (if uplo='L')

where U (or L) is a product of permutation and unit upper (lower) triangular matrices, and D is block diagonal with 1-by-1 and 2-by-2 diagonal blocks.

Parameters: - a (inout): On entry, the Hermitian matrix A. On exit, the block diagonal matrix D and the multipliers used to obtain the factor U or L. - uplo (in, optional): Specifies whether the upper ('U') or lower ('L') triangular part of the Hermitian matrix A is stored. Default: 'U' - ipiv (out, optional): The pivot indices that define the permutation matrix P. If ipiv is not provided, it will be allocated internally. - info (out, optional): Output status: 0 for success, < 0 for illegal argument, > 0 if D(k,k) is exactly zero.

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=REAL32),	intent(inout)			::	a(:,:)
character(len=1),	intent(in),	optional		::	uplo
integer,	intent(out),	optional,	target	::	ipiv(:)
integer,	intent(out),	optional		::	info

public pure subroutine mfi_zhetrf(a, uplo, ipiv, info)

Modern interface for f77_hetrf. See also: mfi_hetrf, f77_hetrf. Computes the factorization of a Hermitian matrix using the Bunch-Kaufman diagonal pivoting method

The factorization has the form: - A = UDUH (if uplo='U') or - A = LDLH (if uplo='L')

where U (or L) is a product of permutation and unit upper (lower) triangular matrices, and D is block diagonal with 1-by-1 and 2-by-2 diagonal blocks.

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=REAL64),	intent(inout)			::	a(:,:)
character(len=1),	intent(in),	optional		::	uplo
integer,	intent(out),	optional,	target	::	ipiv(:)
integer,	intent(out),	optional		::	info

public interface mfi_hegv

Generic modern interface for HEGV. Supports c, z. See also: chegv, zhegv.

public pure subroutine mfi_chegv(a, b, w, itype, jobz, uplo, info)

Modern interface for f77_hegv. See also: mfi_hegv, f77_hegv.

Arguments

Type	Intent	Optional		Name
complex(kind=REAL32),	intent(inout)		::	a(:,:)
complex(kind=REAL32),	intent(inout)		::	b(:,:)
real(kind=REAL32),	intent(out)		::	w(:)
integer,	intent(in),	optional	::	itype
character(len=1),	intent(in),	optional	::	jobz
character(len=1),	intent(in),	optional	::	uplo
integer,	intent(out),	optional	::	info

public pure subroutine mfi_zhegv(a, b, w, itype, jobz, uplo, info)

Modern interface for f77_hegv. See also: mfi_hegv, f77_hegv.

Arguments

Type	Intent	Optional		Name
complex(kind=REAL64),	intent(inout)		::	a(:,:)
complex(kind=REAL64),	intent(inout)		::	b(:,:)
real(kind=REAL64),	intent(out)		::	w(:)
integer,	intent(in),	optional	::	itype
character(len=1),	intent(in),	optional	::	jobz
character(len=1),	intent(in),	optional	::	uplo
integer,	intent(out),	optional	::	info

public interface mfi_heevd

Generic modern interface for HEEVD. Supports c, z. See also: cheevd, zheevd.

public pure subroutine mfi_cheevd(a, w, jobz, uplo, info)

Modern interface for f77_heevd. See also: mfi_heevd, f77_heevd.

Arguments

Type	Intent	Optional		Name
complex(kind=REAL32),	intent(inout)		::	a(:,:)
real(kind=REAL32),	intent(out)		::	w(:)
character(len=1),	intent(in),	optional	::	jobz
character(len=1),	intent(in),	optional	::	uplo
integer,	intent(out),	optional	::	info

public pure subroutine mfi_zheevd(a, w, jobz, uplo, info)

Modern interface for f77_heevd. See also: mfi_heevd, f77_heevd.

Arguments

Type	Intent	Optional		Name
complex(kind=REAL64),	intent(inout)		::	a(:,:)
real(kind=REAL64),	intent(out)		::	w(:)
character(len=1),	intent(in),	optional	::	jobz
character(len=1),	intent(in),	optional	::	uplo
integer,	intent(out),	optional	::	info

public interface mfi_heevr

Generic modern interface for HEEVR. Supports c, z. See also: cheevr, zheevr.

public pure subroutine mfi_cheevr(a, w, jobz, uplo, range, vl, vu, il, iu, abstol, m, z, isuppz, info)

Modern interface for f77_heevr. See also: mfi_heevr, f77_heevr. Computes selected eigenvalues and, optionally, eigenvectors of a Hermitian matrix using RRR

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=REAL32),	intent(inout)			::	a(:,:)
real(kind=REAL32),	intent(out)			::	w(:)
character(len=1),	intent(in),	optional		::	jobz
character(len=1),	intent(in),	optional		::	uplo
character(len=1),	intent(in),	optional		::	range
real(kind=REAL32),	intent(in),	optional		::	vl
real(kind=REAL32),	intent(in),	optional		::	vu
integer,	intent(in),	optional		::	il
integer,	intent(in),	optional		::	iu
real(kind=REAL32),	intent(in),	optional		::	abstol
integer,	intent(out),	optional		::	m
complex(kind=REAL32),	intent(out),	optional,	target	::	z(:,:)
integer,	intent(out),	optional,	target	::	isuppz(:)
integer,	intent(out),	optional		::	info

public pure subroutine mfi_zheevr(a, w, jobz, uplo, range, vl, vu, il, iu, abstol, m, z, isuppz, info)

Modern interface for f77_heevr. See also: mfi_heevr, f77_heevr. Computes selected eigenvalues and, optionally, eigenvectors of a Hermitian matrix using RRR

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=REAL64),	intent(inout)			::	a(:,:)
real(kind=REAL64),	intent(out)			::	w(:)
character(len=1),	intent(in),	optional		::	jobz
character(len=1),	intent(in),	optional		::	uplo
character(len=1),	intent(in),	optional		::	range
real(kind=REAL64),	intent(in),	optional		::	vl
real(kind=REAL64),	intent(in),	optional		::	vu
integer,	intent(in),	optional		::	il
integer,	intent(in),	optional		::	iu
real(kind=REAL64),	intent(in),	optional		::	abstol
integer,	intent(out),	optional		::	m
complex(kind=REAL64),	intent(out),	optional,	target	::	z(:,:)
integer,	intent(out),	optional,	target	::	isuppz(:)
integer,	intent(out),	optional		::	info

public interface mfi_heevx

Generic modern interface for HEEVX. Supports c, z. See also: cheevx, zheevx.

public pure subroutine mfi_cheevx(a, w, uplo, z, vl, vu, il, iu, m, ifail, abstol, info)

Modern interface for f77_heevx. See also: mfi_heevx, f77_heevx. Computes selected eigenvalues and, optionally, eigenvectors of a complex Hermitian matrix.

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=REAL32),	intent(inout)			::	a(:,:)
real(kind=REAL32),	intent(out)			::	w(:)
character(len=1),	intent(in),	optional		::	uplo
complex(kind=REAL32),	intent(out),	optional		::	z(:,:)
real(kind=REAL32),	intent(in),	optional		::	vl
real(kind=REAL32),	intent(in),	optional		::	vu
integer,	intent(in),	optional		::	il
integer,	intent(in),	optional		::	iu
integer,	intent(out),	optional		::	m
integer,	intent(out),	optional,	target	::	ifail(:)
real(kind=REAL32),	intent(in),	optional		::	abstol
integer,	intent(out),	optional		::	info

public pure subroutine mfi_zheevx(a, w, uplo, z, vl, vu, il, iu, m, ifail, abstol, info)

Modern interface for f77_heevx. See also: mfi_heevx, f77_heevx. Computes selected eigenvalues and, optionally, eigenvectors of a complex Hermitian matrix.

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=REAL64),	intent(inout)			::	a(:,:)
real(kind=REAL64),	intent(out)			::	w(:)
character(len=1),	intent(in),	optional		::	uplo
complex(kind=REAL64),	intent(out),	optional		::	z(:,:)
real(kind=REAL64),	intent(in),	optional		::	vl
real(kind=REAL64),	intent(in),	optional		::	vu
integer,	intent(in),	optional		::	il
integer,	intent(in),	optional		::	iu
integer,	intent(out),	optional		::	m
integer,	intent(out),	optional,	target	::	ifail(:)
real(kind=REAL64),	intent(in),	optional		::	abstol
integer,	intent(out),	optional		::	info

public interface mfi_gesvd

Generic modern interface for GESVD. Supports s, d, c, z. See also: sgesvd, dgesvd, cgesvd, zgesvd.

public pure subroutine mfi_sgesvd(a, s, u, vt, ww, job, info)

Modern interface for f77_gesvd. See also: mfi_gesvd, f77_gesvd.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=REAL32),	intent(inout)			::	a(:,:)
real(kind=REAL32),	intent(out)			::	s(:)
real(kind=REAL32),	intent(out),	optional,	target	::	u(:,:)
real(kind=REAL32),	intent(out),	optional,	target	::	vt(:,:)
real(kind=REAL32),	intent(out),	optional,	target	::	ww(:)
character(len=1),	intent(in),	optional		::	job
integer,	intent(out),	optional		::	info

public pure subroutine mfi_dgesvd(a, s, u, vt, ww, job, info)

Modern interface for f77_gesvd. See also: mfi_gesvd, f77_gesvd.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=REAL64),	intent(inout)			::	a(:,:)
real(kind=REAL64),	intent(out)			::	s(:)
real(kind=REAL64),	intent(out),	optional,	target	::	u(:,:)
real(kind=REAL64),	intent(out),	optional,	target	::	vt(:,:)
real(kind=REAL64),	intent(out),	optional,	target	::	ww(:)
character(len=1),	intent(in),	optional		::	job
integer,	intent(out),	optional		::	info

public pure subroutine mfi_cgesvd(a, s, u, vt, ww, job, info)

Modern interface for f77_gesvd. See also: mfi_gesvd, f77_gesvd.

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=REAL32),	intent(inout)			::	a(:,:)
real(kind=REAL32),	intent(out)			::	s(:)
complex(kind=REAL32),	intent(out),	optional,	target	::	u(:,:)
complex(kind=REAL32),	intent(out),	optional,	target	::	vt(:,:)
real(kind=REAL32),	intent(out),	optional,	target	::	ww(:)
character(len=1),	intent(in),	optional		::	job
integer,	intent(out),	optional		::	info

public pure subroutine mfi_zgesvd(a, s, u, vt, ww, job, info)

Modern interface for f77_gesvd. See also: mfi_gesvd, f77_gesvd.

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=REAL64),	intent(inout)			::	a(:,:)
real(kind=REAL64),	intent(out)			::	s(:)
complex(kind=REAL64),	intent(out),	optional,	target	::	u(:,:)
complex(kind=REAL64),	intent(out),	optional,	target	::	vt(:,:)
real(kind=REAL64),	intent(out),	optional,	target	::	ww(:)
character(len=1),	intent(in),	optional		::	job
integer,	intent(out),	optional		::	info

public interface mfi_orgqr

Generic modern interface for ORGQR. Supports s, d. See also: sorgqr, dorgqr.

public pure subroutine mfi_sorgqr(a, tau, k, info)

Modern interface for f77_orgqr. See also: mfi_orgqr, f77_orgqr. Generates the real orthogonal matrix Q of the QR factorization

Arguments

Type	Intent	Optional		Name
real(kind=REAL32),	intent(inout)		::	a(:,:)
real(kind=REAL32),	intent(in)		::	tau(:)
integer,	intent(in),	optional	::	k
integer,	intent(out),	optional	::	info

public pure subroutine mfi_dorgqr(a, tau, k, info)

Modern interface for f77_orgqr. See also: mfi_orgqr, f77_orgqr. Generates the real orthogonal matrix Q of the QR factorization

Arguments

Type	Intent	Optional		Name
real(kind=REAL64),	intent(inout)		::	a(:,:)
real(kind=REAL64),	intent(in)		::	tau(:)
integer,	intent(in),	optional	::	k
integer,	intent(out),	optional	::	info

public interface mfi_orgrq

Generic modern interface for ORGRQ. Supports s, d. See also: sorgrq, dorgrq.

public pure subroutine mfi_sorgrq(a, tau, k, info)

Modern interface for f77_orgrq. See also: mfi_orgrq, f77_orgrq. Generates the real orthogonal matrix Q of the QR factorization

Arguments

Type	Intent	Optional		Name
real(kind=REAL32),	intent(inout)		::	a(:,:)
real(kind=REAL32),	intent(in)		::	tau(:)
integer,	intent(in),	optional	::	k
integer,	intent(out),	optional	::	info

public pure subroutine mfi_dorgrq(a, tau, k, info)

Modern interface for f77_orgrq. See also: mfi_orgrq, f77_orgrq. Generates the real orthogonal matrix Q of the QR factorization

Arguments

Type	Intent	Optional		Name
real(kind=REAL64),	intent(inout)		::	a(:,:)
real(kind=REAL64),	intent(in)		::	tau(:)
integer,	intent(in),	optional	::	k
integer,	intent(out),	optional	::	info

public interface mfi_ungqr

Generic modern interface for UNGQR. Supports c, z. See also: cungqr, zungqr.

public pure subroutine mfi_cungqr(a, tau, k, info)

Modern interface for f77_ungqr. See also: mfi_ungqr, f77_ungqr. Generates the real orthogonal matrix Q of the QR factorization

Arguments

Type	Intent	Optional		Name
complex(kind=REAL32),	intent(inout)		::	a(:,:)
complex(kind=REAL32),	intent(in)		::	tau(:)
integer,	intent(in),	optional	::	k
integer,	intent(out),	optional	::	info

public pure subroutine mfi_zungqr(a, tau, k, info)

Modern interface for f77_ungqr. See also: mfi_ungqr, f77_ungqr. Generates the real orthogonal matrix Q of the QR factorization

Arguments

Type	Intent	Optional		Name
complex(kind=REAL64),	intent(inout)		::	a(:,:)
complex(kind=REAL64),	intent(in)		::	tau(:)
integer,	intent(in),	optional	::	k
integer,	intent(out),	optional	::	info

public interface mfi_ungrq

Generic modern interface for UNGRQ. Supports c, z. See also: cungrq, zungrq.

public pure subroutine mfi_cungrq(a, tau, k, info)

Modern interface for f77_ungrq. See also: mfi_ungrq, f77_ungrq. Generates the real orthogonal matrix Q of the QR factorization

Arguments

Type	Intent	Optional		Name
complex(kind=REAL32),	intent(inout)		::	a(:,:)
complex(kind=REAL32),	intent(in)		::	tau(:)
integer,	intent(in),	optional	::	k
integer,	intent(out),	optional	::	info

public pure subroutine mfi_zungrq(a, tau, k, info)

Modern interface for f77_ungrq. See also: mfi_ungrq, f77_ungrq. Generates the real orthogonal matrix Q of the QR factorization

Arguments

Type	Intent	Optional		Name
complex(kind=REAL64),	intent(inout)		::	a(:,:)
complex(kind=REAL64),	intent(in)		::	tau(:)
integer,	intent(in),	optional	::	k
integer,	intent(out),	optional	::	info

public interface mfi_ormqr

Generic modern interface for ORMQR. Supports s, d. See also: sormqr, dormqr.

public pure subroutine mfi_sormqr(a, tau, c, side, trans, info)

Modern interface for f77_ormqr. See also: mfi_ormqr, f77_ormqr. Multiplies a matrix by the orthogonal matrix Q from geqrf

Arguments

Type	Intent	Optional		Name
real(kind=REAL32),	intent(inout)		::	a(:,:)
real(kind=REAL32),	intent(in)		::	tau(:)
real(kind=REAL32),	intent(inout)		::	c(:,:)
character(len=1),	intent(in),	optional	::	side
character(len=1),	intent(in),	optional	::	trans
integer,	intent(out),	optional	::	info

public pure subroutine mfi_dormqr(a, tau, c, side, trans, info)

Modern interface for f77_ormqr. See also: mfi_ormqr, f77_ormqr. Multiplies a matrix by the orthogonal matrix Q from geqrf

Arguments

Type	Intent	Optional		Name
real(kind=REAL64),	intent(inout)		::	a(:,:)
real(kind=REAL64),	intent(in)		::	tau(:)
real(kind=REAL64),	intent(inout)		::	c(:,:)
character(len=1),	intent(in),	optional	::	side
character(len=1),	intent(in),	optional	::	trans
integer,	intent(out),	optional	::	info

public interface mfi_ormrq

Generic modern interface for ORMRQ. Supports s, d. See also: sormrq, dormrq.

public pure subroutine mfi_sormrq(a, tau, c, side, trans, info)

Modern interface for f77_ormrq. See also: mfi_ormrq, f77_ormrq. Multiplies a matrix by the orthogonal matrix Q from geqrf

Arguments

Type	Intent	Optional		Name
real(kind=REAL32),	intent(inout)		::	a(:,:)
real(kind=REAL32),	intent(in)		::	tau(:)
real(kind=REAL32),	intent(inout)		::	c(:,:)
character(len=1),	intent(in),	optional	::	side
character(len=1),	intent(in),	optional	::	trans
integer,	intent(out),	optional	::	info

public pure subroutine mfi_dormrq(a, tau, c, side, trans, info)

Modern interface for f77_ormrq. See also: mfi_ormrq, f77_ormrq. Multiplies a matrix by the orthogonal matrix Q from geqrf

Arguments

Type	Intent	Optional		Name
real(kind=REAL64),	intent(inout)		::	a(:,:)
real(kind=REAL64),	intent(in)		::	tau(:)
real(kind=REAL64),	intent(inout)		::	c(:,:)
character(len=1),	intent(in),	optional	::	side
character(len=1),	intent(in),	optional	::	trans
integer,	intent(out),	optional	::	info

public interface mfi_unmqr

Generic modern interface for UNMQR. Supports c, z. See also: cunmqr, zunmqr.

public pure subroutine mfi_cunmqr(a, tau, c, side, trans, info)

Modern interface for f77_unmqr. See also: mfi_unmqr, f77_unmqr. Multiplies a matrix by the orthogonal matrix Q from geqrf

Arguments

Type	Intent	Optional		Name
complex(kind=REAL32),	intent(inout)		::	a(:,:)
complex(kind=REAL32),	intent(in)		::	tau(:)
complex(kind=REAL32),	intent(inout)		::	c(:,:)
character(len=1),	intent(in),	optional	::	side
character(len=1),	intent(in),	optional	::	trans
integer,	intent(out),	optional	::	info

public pure subroutine mfi_zunmqr(a, tau, c, side, trans, info)

Modern interface for f77_unmqr. See also: mfi_unmqr, f77_unmqr. Multiplies a matrix by the orthogonal matrix Q from geqrf

Arguments

Type	Intent	Optional		Name
complex(kind=REAL64),	intent(inout)		::	a(:,:)
complex(kind=REAL64),	intent(in)		::	tau(:)
complex(kind=REAL64),	intent(inout)		::	c(:,:)
character(len=1),	intent(in),	optional	::	side
character(len=1),	intent(in),	optional	::	trans
integer,	intent(out),	optional	::	info

public interface mfi_unmrq

Generic modern interface for UNMRQ. Supports c, z. See also: cunmrq, zunmrq.

public pure subroutine mfi_cunmrq(a, tau, c, side, trans, info)

Modern interface for f77_unmrq. See also: mfi_unmrq, f77_unmrq. Multiplies a matrix by the orthogonal matrix Q from geqrf

Arguments

Type	Intent	Optional		Name
complex(kind=REAL32),	intent(inout)		::	a(:,:)
complex(kind=REAL32),	intent(in)		::	tau(:)
complex(kind=REAL32),	intent(inout)		::	c(:,:)
character(len=1),	intent(in),	optional	::	side
character(len=1),	intent(in),	optional	::	trans
integer,	intent(out),	optional	::	info

public pure subroutine mfi_zunmrq(a, tau, c, side, trans, info)

Modern interface for f77_unmrq. See also: mfi_unmrq, f77_unmrq. Multiplies a matrix by the orthogonal matrix Q from geqrf

Arguments

Type	Intent	Optional		Name
complex(kind=REAL64),	intent(inout)		::	a(:,:)
complex(kind=REAL64),	intent(in)		::	tau(:)
complex(kind=REAL64),	intent(inout)		::	c(:,:)
character(len=1),	intent(in),	optional	::	side
character(len=1),	intent(in),	optional	::	trans
integer,	intent(out),	optional	::	info

public interface mfi_org2r

Generic modern interface for ORG2R. Supports s, d. See also: sorg2r, dorg2r.

public pure subroutine mfi_sorg2r(a, tau, k, info)

Modern interface for f77_org2r. See also: mfi_org2r, f77_org2r. Generates the real orthogonal matrix Q of the QR factorization formed by geqr2

Arguments

Type	Intent	Optional		Name
real(kind=REAL32),	intent(inout)		::	a(:,:)
real(kind=REAL32),	intent(in)		::	tau(:)
integer,	intent(in),	optional	::	k
integer,	intent(out),	optional	::	info

public pure subroutine mfi_dorg2r(a, tau, k, info)

Modern interface for f77_org2r. See also: mfi_org2r, f77_org2r. Generates the real orthogonal matrix Q of the QR factorization formed by geqr2

Arguments

Type	Intent	Optional		Name
real(kind=REAL64),	intent(inout)		::	a(:,:)
real(kind=REAL64),	intent(in)		::	tau(:)
integer,	intent(in),	optional	::	k
integer,	intent(out),	optional	::	info

public interface mfi_ung2r

Generic modern interface for UNG2R. Supports c, z. See also: cung2r, zung2r.

public pure subroutine mfi_cung2r(a, tau, k, info)

Modern interface for f77_ung2r. See also: mfi_ung2r, f77_ung2r. Generates the real orthogonal matrix Q of the QR factorization formed by geqr2

Arguments

Type	Intent	Optional		Name
complex(kind=REAL32),	intent(inout)		::	a(:,:)
complex(kind=REAL32),	intent(in)		::	tau(:)
integer,	intent(in),	optional	::	k
integer,	intent(out),	optional	::	info

public pure subroutine mfi_zung2r(a, tau, k, info)

Modern interface for f77_ung2r. See also: mfi_ung2r, f77_ung2r. Generates the real orthogonal matrix Q of the QR factorization formed by geqr2

Arguments

Type	Intent	Optional		Name
complex(kind=REAL64),	intent(inout)		::	a(:,:)
complex(kind=REAL64),	intent(in)		::	tau(:)
integer,	intent(in),	optional	::	k
integer,	intent(out),	optional	::	info

public interface mfi_orm2r

Generic modern interface for ORM2R. Supports s, d. See also: sorm2r, dorm2r.

public pure subroutine mfi_sorm2r(a, tau, c, side, trans, info)

Modern interface for f77_orm2r. See also: mfi_orm2r, f77_orm2r. Multiplies a real matrix by the orthogonal matrix Q formed by geqr2

Arguments

Type	Intent	Optional		Name
real(kind=REAL32),	intent(inout)		::	a(:,:)
real(kind=REAL32),	intent(in)		::	tau(:)
real(kind=REAL32),	intent(inout)		::	c(:,:)
character(len=1),	intent(in),	optional	::	side
character(len=1),	intent(in),	optional	::	trans
integer,	intent(out),	optional	::	info

public pure subroutine mfi_dorm2r(a, tau, c, side, trans, info)

Modern interface for f77_orm2r. See also: mfi_orm2r, f77_orm2r. Multiplies a real matrix by the orthogonal matrix Q formed by geqr2

Arguments

Type	Intent	Optional		Name
real(kind=REAL64),	intent(inout)		::	a(:,:)
real(kind=REAL64),	intent(in)		::	tau(:)
real(kind=REAL64),	intent(inout)		::	c(:,:)
character(len=1),	intent(in),	optional	::	side
character(len=1),	intent(in),	optional	::	trans
integer,	intent(out),	optional	::	info

public interface mfi_unm2r

Generic modern interface for UNM2R. Supports c, z. See also: cunm2r, zunm2r.

public pure subroutine mfi_cunm2r(a, tau, c, side, trans, info)

Modern interface for f77_unm2r. See also: mfi_unm2r, f77_unm2r. Multiplies a real matrix by the orthogonal matrix Q formed by geqr2

Arguments

Type	Intent	Optional		Name
complex(kind=REAL32),	intent(inout)		::	a(:,:)
complex(kind=REAL32),	intent(in)		::	tau(:)
complex(kind=REAL32),	intent(inout)		::	c(:,:)
character(len=1),	intent(in),	optional	::	side
character(len=1),	intent(in),	optional	::	trans
integer,	intent(out),	optional	::	info

public pure subroutine mfi_zunm2r(a, tau, c, side, trans, info)

Modern interface for f77_unm2r. See also: mfi_unm2r, f77_unm2r. Multiplies a real matrix by the orthogonal matrix Q formed by geqr2

Arguments

Type	Intent	Optional		Name
complex(kind=REAL64),	intent(inout)		::	a(:,:)
complex(kind=REAL64),	intent(in)		::	tau(:)
complex(kind=REAL64),	intent(inout)		::	c(:,:)
character(len=1),	intent(in),	optional	::	side
character(len=1),	intent(in),	optional	::	trans
integer,	intent(out),	optional	::	info

public interface mfi_orgr2

Generic modern interface for ORGR2. Supports s, d. See also: sorgr2, dorgr2.

public pure subroutine mfi_sorgr2(a, tau, k, info)

Modern interface for f77_orgr2. See also: mfi_orgr2, f77_orgr2. Generates the real orthogonal matrix Q of the RQ factorization formed by gerq2

Arguments

Type	Intent	Optional		Name
real(kind=REAL32),	intent(inout)		::	a(:,:)
real(kind=REAL32),	intent(in)		::	tau(:)
integer,	intent(in),	optional	::	k
integer,	intent(out),	optional	::	info

public pure subroutine mfi_dorgr2(a, tau, k, info)

Modern interface for f77_orgr2. See also: mfi_orgr2, f77_orgr2. Generates the real orthogonal matrix Q of the RQ factorization formed by gerq2

Arguments

Type	Intent	Optional		Name
real(kind=REAL64),	intent(inout)		::	a(:,:)
real(kind=REAL64),	intent(in)		::	tau(:)
integer,	intent(in),	optional	::	k
integer,	intent(out),	optional	::	info

public interface mfi_ungr2

Generic modern interface for UNGR2. Supports c, z. See also: cungr2, zungr2.

public pure subroutine mfi_cungr2(a, tau, k, info)

Modern interface for f77_ungr2. See also: mfi_ungr2, f77_ungr2. Generates the real orthogonal matrix Q of the RQ factorization formed by gerq2

Arguments

Type	Intent	Optional		Name
complex(kind=REAL32),	intent(inout)		::	a(:,:)
complex(kind=REAL32),	intent(in)		::	tau(:)
integer,	intent(in),	optional	::	k
integer,	intent(out),	optional	::	info

public pure subroutine mfi_zungr2(a, tau, k, info)

Modern interface for f77_ungr2. See also: mfi_ungr2, f77_ungr2. Generates the real orthogonal matrix Q of the RQ factorization formed by gerq2

Arguments

Type	Intent	Optional		Name
complex(kind=REAL64),	intent(inout)		::	a(:,:)
complex(kind=REAL64),	intent(in)		::	tau(:)
integer,	intent(in),	optional	::	k
integer,	intent(out),	optional	::	info

public interface mfi_ormr2

Generic modern interface for ORMR2. Supports s, d. See also: sormr2, dormr2.

public pure subroutine mfi_sormr2(a, tau, c, side, trans, info)

Modern interface for f77_ormr2. See also: mfi_ormr2, f77_ormr2. Multiplies a real matrix by the orthogonal matrix Q formed by gerq2

Arguments

Type	Intent	Optional		Name
real(kind=REAL32),	intent(inout)		::	a(:,:)
real(kind=REAL32),	intent(in)		::	tau(:)
real(kind=REAL32),	intent(inout)		::	c(:,:)
character(len=1),	intent(in),	optional	::	side
character(len=1),	intent(in),	optional	::	trans
integer,	intent(out),	optional	::	info

public pure subroutine mfi_dormr2(a, tau, c, side, trans, info)

Modern interface for f77_ormr2. See also: mfi_ormr2, f77_ormr2. Multiplies a real matrix by the orthogonal matrix Q formed by gerq2

Arguments

Type	Intent	Optional		Name
real(kind=REAL64),	intent(inout)		::	a(:,:)
real(kind=REAL64),	intent(in)		::	tau(:)
real(kind=REAL64),	intent(inout)		::	c(:,:)
character(len=1),	intent(in),	optional	::	side
character(len=1),	intent(in),	optional	::	trans
integer,	intent(out),	optional	::	info

public interface mfi_unmr2

Generic modern interface for UNMR2. Supports c, z. See also: cunmr2, zunmr2.

public pure subroutine mfi_cunmr2(a, tau, c, side, trans, info)

Modern interface for f77_unmr2. See also: mfi_unmr2, f77_unmr2. Multiplies a real matrix by the orthogonal matrix Q formed by gerq2

Arguments

Type	Intent	Optional		Name
complex(kind=REAL32),	intent(inout)		::	a(:,:)
complex(kind=REAL32),	intent(in)		::	tau(:)
complex(kind=REAL32),	intent(inout)		::	c(:,:)
character(len=1),	intent(in),	optional	::	side
character(len=1),	intent(in),	optional	::	trans
integer,	intent(out),	optional	::	info

public pure subroutine mfi_zunmr2(a, tau, c, side, trans, info)

Modern interface for f77_unmr2. See also: mfi_unmr2, f77_unmr2. Multiplies a real matrix by the orthogonal matrix Q formed by gerq2

Arguments

Type	Intent	Optional		Name
complex(kind=REAL64),	intent(inout)		::	a(:,:)
complex(kind=REAL64),	intent(in)		::	tau(:)
complex(kind=REAL64),	intent(inout)		::	c(:,:)
character(len=1),	intent(in),	optional	::	side
character(len=1),	intent(in),	optional	::	trans
integer,	intent(out),	optional	::	info

public interface mfi_potrf

Generic modern interface for POTRF. Supports s, d, c, z. See also: spotrf, dpotrf, cpotrf, zpotrf.

public pure subroutine mfi_spotrf(a, info, uplo)

Modern interface for f77_potrf. See also: mfi_potrf, f77_potrf.

Arguments

Type	Intent	Optional		Name
real(kind=REAL32),	intent(inout)		::	a(:,:)
integer,	intent(out),	optional	::	info
character(len=1),	intent(in),	optional	::	uplo

public pure subroutine mfi_dpotrf(a, info, uplo)

Modern interface for f77_potrf. See also: mfi_potrf, f77_potrf.

Arguments

Type	Intent	Optional		Name
real(kind=REAL64),	intent(inout)		::	a(:,:)
integer,	intent(out),	optional	::	info
character(len=1),	intent(in),	optional	::	uplo

public pure subroutine mfi_cpotrf(a, info, uplo)

Modern interface for f77_potrf. See also: mfi_potrf, f77_potrf.

Arguments

Type	Intent	Optional		Name
complex(kind=REAL32),	intent(inout)		::	a(:,:)
integer,	intent(out),	optional	::	info
character(len=1),	intent(in),	optional	::	uplo

public pure subroutine mfi_zpotrf(a, info, uplo)

Modern interface for f77_potrf. See also: mfi_potrf, f77_potrf.

Arguments

Type	Intent	Optional		Name
complex(kind=REAL64),	intent(inout)		::	a(:,:)
integer,	intent(out),	optional	::	info
character(len=1),	intent(in),	optional	::	uplo

public interface mfi_potri

Generic modern interface for POTRI. Supports s, d, c, z. See also: spotri, dpotri, cpotri, zpotri.

public pure subroutine mfi_spotri(a, info, uplo)

Modern interface for f77_potri. See also: mfi_potri, f77_potri.

Arguments

Type	Intent	Optional		Name
real(kind=REAL32),	intent(inout)		::	a(:,:)
integer,	intent(out),	optional	::	info
character(len=1),	intent(in),	optional	::	uplo

public pure subroutine mfi_dpotri(a, info, uplo)

Modern interface for f77_potri. See also: mfi_potri, f77_potri.

Arguments

Type	Intent	Optional		Name
real(kind=REAL64),	intent(inout)		::	a(:,:)
integer,	intent(out),	optional	::	info
character(len=1),	intent(in),	optional	::	uplo

public pure subroutine mfi_cpotri(a, info, uplo)

Modern interface for f77_potri. See also: mfi_potri, f77_potri.

Arguments

Type	Intent	Optional		Name
complex(kind=REAL32),	intent(inout)		::	a(:,:)
integer,	intent(out),	optional	::	info
character(len=1),	intent(in),	optional	::	uplo

public pure subroutine mfi_zpotri(a, info, uplo)

Modern interface for f77_potri. See also: mfi_potri, f77_potri.

Arguments

Type	Intent	Optional		Name
complex(kind=REAL64),	intent(inout)		::	a(:,:)
integer,	intent(out),	optional	::	info
character(len=1),	intent(in),	optional	::	uplo

public interface mfi_potrs

Generic modern interface for POTRS. Supports s, d, c, z. See also: spotrs, dpotrs, cpotrs, zpotrs.

public pure subroutine mfi_spotrs(a, b, uplo, info)

Modern interface for f77_potrs. See also: mfi_potrs, f77_potrs.

Arguments

Type	Intent	Optional		Name
real(kind=REAL32),	intent(in)		::	a(:,:)
real(kind=REAL32),	intent(inout)		::	b(:,:)
character(len=1),	intent(in),	optional	::	uplo
integer,	intent(out),	optional	::	info

public pure subroutine mfi_dpotrs(a, b, uplo, info)

Modern interface for f77_potrs. See also: mfi_potrs, f77_potrs.

Arguments

Type	Intent	Optional		Name
real(kind=REAL64),	intent(in)		::	a(:,:)
real(kind=REAL64),	intent(inout)		::	b(:,:)
character(len=1),	intent(in),	optional	::	uplo
integer,	intent(out),	optional	::	info

public pure subroutine mfi_cpotrs(a, b, uplo, info)

Modern interface for f77_potrs. See also: mfi_potrs, f77_potrs.

Arguments

Type	Intent	Optional		Name
complex(kind=REAL32),	intent(in)		::	a(:,:)
complex(kind=REAL32),	intent(inout)		::	b(:,:)
character(len=1),	intent(in),	optional	::	uplo
integer,	intent(out),	optional	::	info

public pure subroutine mfi_zpotrs(a, b, uplo, info)

Modern interface for f77_potrs. See also: mfi_potrs, f77_potrs.

Arguments

Type	Intent	Optional		Name
complex(kind=REAL64),	intent(in)		::	a(:,:)
complex(kind=REAL64),	intent(inout)		::	b(:,:)
character(len=1),	intent(in),	optional	::	uplo
integer,	intent(out),	optional	::	info

public interface mfi_pocon

Generic modern interface for POCON. Supports s, d, c, z. See also: spocon, dpocon, cpocon, zpocon.

public pure subroutine mfi_spocon(a, anorm, rcond, uplo, info)

Modern interface for f77_pocon. See also: mfi_pocon, f77_pocon. Estimates the reciprocal of the condition number of a real symmetric / complex Hermitian positive definite matrix using the Cholesky factorization computed by ?POTRF

Arguments

Type	Intent	Optional		Name
real(kind=REAL32),	intent(inout)		::	a(:,:)
real(kind=REAL32),	intent(in)		::	anorm
real(kind=REAL32),	intent(out)		::	rcond
character(len=1),	intent(in),	optional	::	uplo
integer,	intent(out),	optional	::	info

public pure subroutine mfi_dpocon(a, anorm, rcond, uplo, info)

Arguments

Type	Intent	Optional		Name
real(kind=REAL64),	intent(inout)		::	a(:,:)
real(kind=REAL64),	intent(in)		::	anorm
real(kind=REAL64),	intent(out)		::	rcond
character(len=1),	intent(in),	optional	::	uplo
integer,	intent(out),	optional	::	info

public pure subroutine mfi_cpocon(a, anorm, rcond, uplo, info)

Arguments

Type	Intent	Optional		Name
complex(kind=REAL32),	intent(inout)		::	a(:,:)
real(kind=REAL32),	intent(in)		::	anorm
real(kind=REAL32),	intent(out)		::	rcond
character(len=1),	intent(in),	optional	::	uplo
integer,	intent(out),	optional	::	info

public pure subroutine mfi_zpocon(a, anorm, rcond, uplo, info)

Arguments

Type	Intent	Optional		Name
complex(kind=REAL64),	intent(inout)		::	a(:,:)
real(kind=REAL64),	intent(in)		::	anorm
real(kind=REAL64),	intent(out)		::	rcond
character(len=1),	intent(in),	optional	::	uplo
integer,	intent(out),	optional	::	info

public interface mfi_trtrs

Generic modern interface for TRTRS. Supports s, d, c, z. See also: strtrs, dtrtrs, ctrtrs, ztrtrs.

public pure subroutine mfi_strtrs(a, b, uplo, trans, diag, info)

Modern interface for f77_trtrs. See also: mfi_trtrs, f77_trtrs. Solves a triangular linear system with multiple right-hand sides:

A * X = B  or  A**T * X = B  or  A**H * X = B,

where A is a triangular matrix (stored in a), and B is overwritten by the solution X.

Optional arguments: - uplo: 'U' (upper triangular, default) or 'L' (lower triangular) - trans: 'N' (no transpose), 'T' (transpose), or 'C' (conjugate transpose, default 'N') - diag: 'N' (non-unit diagonal, default) or 'U' (unit diagonal) - info: if not present and info /= 0, calls mfi_error.

The shapes are inferred from a (N-by-N) and b (N-by-NRHS).

Arguments

Type	Intent	Optional		Name
real(kind=REAL32),	intent(in)		::	a(:,:)
real(kind=REAL32),	intent(inout)		::	b(:,:)
character(len=1),	intent(in),	optional	::	uplo
character(len=1),	intent(in),	optional	::	trans
character(len=1),	intent(in),	optional	::	diag
integer,	intent(out),	optional	::	info

public pure subroutine mfi_dtrtrs(a, b, uplo, trans, diag, info)

Modern interface for f77_trtrs. See also: mfi_trtrs, f77_trtrs. Solves a triangular linear system with multiple right-hand sides:

A * X = B  or  A**T * X = B  or  A**H * X = B,

where A is a triangular matrix (stored in a), and B is overwritten by the solution X.

The shapes are inferred from a (N-by-N) and b (N-by-NRHS).

Arguments

Type	Intent	Optional		Name
real(kind=REAL64),	intent(in)		::	a(:,:)
real(kind=REAL64),	intent(inout)		::	b(:,:)
character(len=1),	intent(in),	optional	::	uplo
character(len=1),	intent(in),	optional	::	trans
character(len=1),	intent(in),	optional	::	diag
integer,	intent(out),	optional	::	info

public pure subroutine mfi_ctrtrs(a, b, uplo, trans, diag, info)

Modern interface for f77_trtrs. See also: mfi_trtrs, f77_trtrs. Solves a triangular linear system with multiple right-hand sides:

A * X = B  or  A**T * X = B  or  A**H * X = B,

where A is a triangular matrix (stored in a), and B is overwritten by the solution X.

The shapes are inferred from a (N-by-N) and b (N-by-NRHS).

Arguments

Type	Intent	Optional		Name
complex(kind=REAL32),	intent(in)		::	a(:,:)
complex(kind=REAL32),	intent(inout)		::	b(:,:)
character(len=1),	intent(in),	optional	::	uplo
character(len=1),	intent(in),	optional	::	trans
character(len=1),	intent(in),	optional	::	diag
integer,	intent(out),	optional	::	info

public pure subroutine mfi_ztrtrs(a, b, uplo, trans, diag, info)

Modern interface for f77_trtrs. See also: mfi_trtrs, f77_trtrs. Solves a triangular linear system with multiple right-hand sides:

A * X = B  or  A**T * X = B  or  A**H * X = B,

where A is a triangular matrix (stored in a), and B is overwritten by the solution X.

The shapes are inferred from a (N-by-N) and b (N-by-NRHS).

Arguments

Type	Intent	Optional		Name
complex(kind=REAL64),	intent(in)		::	a(:,:)
complex(kind=REAL64),	intent(inout)		::	b(:,:)
character(len=1),	intent(in),	optional	::	uplo
character(len=1),	intent(in),	optional	::	trans
character(len=1),	intent(in),	optional	::	diag
integer,	intent(out),	optional	::	info

public interface mfi_sytrf

Generic modern interface for SYTRF. Supports s, d. See also: ssytrf, dsytrf.

public pure subroutine mfi_ssytrf(a, uplo, ipiv, info)

Modern interface for f77_sytrf. See also: mfi_sytrf, f77_sytrf. Computes the factorization of a symmetric matrix using the Bunch-Kaufman diagonal pivoting method

The factorization has the form: - A = UDUT (if uplo='U') or - A = LDLT (if uplo='L')

where U (or L) is a product of permutation and unit upper (lower) triangular matrices, and D is block diagonal with 1-by-1 and 2-by-2 diagonal blocks.

Parameters: - a (inout): On entry, the symmetric matrix A. On exit, the block diagonal matrix D and the multipliers used to obtain the factor U or L. - uplo (in, optional): Specifies whether the upper ('U') or lower ('L') triangular part of the symmetric matrix A is stored. Default: 'U' - ipiv (out, optional): The pivot indices that define the permutation matrix P. If ipiv is not provided, it will be allocated internally. - info (out, optional): Output status: 0 for success, < 0 for illegal argument, > 0 if D(k,k) is exactly zero.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=REAL32),	intent(inout)			::	a(:,:)
character(len=1),	intent(in),	optional		::	uplo
integer,	intent(out),	optional,	target	::	ipiv(:)
integer,	intent(out),	optional		::	info

public pure subroutine mfi_dsytrf(a, uplo, ipiv, info)

Modern interface for f77_sytrf. See also: mfi_sytrf, f77_sytrf. Computes the factorization of a symmetric matrix using the Bunch-Kaufman diagonal pivoting method

The factorization has the form: - A = UDUT (if uplo='U') or - A = LDLT (if uplo='L')

where U (or L) is a product of permutation and unit upper (lower) triangular matrices, and D is block diagonal with 1-by-1 and 2-by-2 diagonal blocks.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=REAL64),	intent(inout)			::	a(:,:)
character(len=1),	intent(in),	optional		::	uplo
integer,	intent(out),	optional,	target	::	ipiv(:)
integer,	intent(out),	optional		::	info

Subroutines

public pure subroutine mfi_sgeqrf(a, tau, info)

Modern interface for f77_geqrf. See also: mfi_geqrf, f77_geqrf.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=REAL32),	intent(inout)			::	a(:,:)
real(kind=REAL32),	intent(out),	optional,	target	::	tau(:)
integer,	intent(out),	optional		::	info

public pure subroutine mfi_dgeqrf(a, tau, info)

Modern interface for f77_geqrf. See also: mfi_geqrf, f77_geqrf.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=REAL64),	intent(inout)			::	a(:,:)
real(kind=REAL64),	intent(out),	optional,	target	::	tau(:)
integer,	intent(out),	optional		::	info

public pure subroutine mfi_cgeqrf(a, tau, info)

Modern interface for f77_geqrf. See also: mfi_geqrf, f77_geqrf.

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=REAL32),	intent(inout)			::	a(:,:)
complex(kind=REAL32),	intent(out),	optional,	target	::	tau(:)
integer,	intent(out),	optional		::	info

public pure subroutine mfi_zgeqrf(a, tau, info)

Modern interface for f77_geqrf. See also: mfi_geqrf, f77_geqrf.

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=REAL64),	intent(inout)			::	a(:,:)
complex(kind=REAL64),	intent(out),	optional,	target	::	tau(:)
integer,	intent(out),	optional		::	info

public pure subroutine mfi_sgerqf(a, tau, info)

Modern interface for f77_gerqf. See also: mfi_gerqf, f77_gerqf.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=REAL32),	intent(inout)			::	a(:,:)
real(kind=REAL32),	intent(out),	optional,	target	::	tau(:)
integer,	intent(out),	optional		::	info

public pure subroutine mfi_dgerqf(a, tau, info)

Modern interface for f77_gerqf. See also: mfi_gerqf, f77_gerqf.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=REAL64),	intent(inout)			::	a(:,:)
real(kind=REAL64),	intent(out),	optional,	target	::	tau(:)
integer,	intent(out),	optional		::	info

public pure subroutine mfi_cgerqf(a, tau, info)

Modern interface for f77_gerqf. See also: mfi_gerqf, f77_gerqf.

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=REAL32),	intent(inout)			::	a(:,:)
complex(kind=REAL32),	intent(out),	optional,	target	::	tau(:)
integer,	intent(out),	optional		::	info

public pure subroutine mfi_zgerqf(a, tau, info)

Modern interface for f77_gerqf. See also: mfi_gerqf, f77_gerqf.

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=REAL64),	intent(inout)			::	a(:,:)
complex(kind=REAL64),	intent(out),	optional,	target	::	tau(:)
integer,	intent(out),	optional		::	info

public pure subroutine mfi_sgetrf(a, ipiv, info)

Modern interface for f77_getrf. See also: mfi_getrf, f77_getrf.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=REAL32),	intent(inout)			::	a(:,:)
integer,	intent(out),	optional,	target	::	ipiv(:)
integer,	intent(out),	optional		::	info

public pure subroutine mfi_dgetrf(a, ipiv, info)

Modern interface for f77_getrf. See also: mfi_getrf, f77_getrf.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=REAL64),	intent(inout)			::	a(:,:)
integer,	intent(out),	optional,	target	::	ipiv(:)
integer,	intent(out),	optional		::	info

public pure subroutine mfi_cgetrf(a, ipiv, info)

Modern interface for f77_getrf. See also: mfi_getrf, f77_getrf.

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=REAL32),	intent(inout)			::	a(:,:)
integer,	intent(out),	optional,	target	::	ipiv(:)
integer,	intent(out),	optional		::	info

public pure subroutine mfi_zgetrf(a, ipiv, info)

Modern interface for f77_getrf. See also: mfi_getrf, f77_getrf.

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=REAL64),	intent(inout)			::	a(:,:)
integer,	intent(out),	optional,	target	::	ipiv(:)
integer,	intent(out),	optional		::	info

public pure subroutine mfi_sgetri(a, ipiv, info)

Modern interface for f77_getri. See also: mfi_getri, f77_getri.

Arguments

Type	Intent	Optional		Name
real(kind=REAL32),	intent(inout)		::	a(:,:)
integer,	intent(in)		::	ipiv(:)
integer,	intent(out),	optional	::	info

public pure subroutine mfi_dgetri(a, ipiv, info)

Modern interface for f77_getri. See also: mfi_getri, f77_getri.

Arguments

Type	Intent	Optional		Name
real(kind=REAL64),	intent(inout)		::	a(:,:)
integer,	intent(in)		::	ipiv(:)
integer,	intent(out),	optional	::	info

public pure subroutine mfi_cgetri(a, ipiv, info)

Modern interface for f77_getri. See also: mfi_getri, f77_getri.

Arguments

Type	Intent	Optional		Name
complex(kind=REAL32),	intent(inout)		::	a(:,:)
integer,	intent(in)		::	ipiv(:)
integer,	intent(out),	optional	::	info

public pure subroutine mfi_zgetri(a, ipiv, info)

Modern interface for f77_getri. See also: mfi_getri, f77_getri.

Arguments

Type	Intent	Optional		Name
complex(kind=REAL64),	intent(inout)		::	a(:,:)
integer,	intent(in)		::	ipiv(:)
integer,	intent(out),	optional	::	info

public pure subroutine mfi_sgetrs(a, ipiv, b, trans, info)

Modern interface for f77_getrs. See also: mfi_getrs, f77_getrs.

Arguments

Type	Intent	Optional		Name
real(kind=REAL32),	intent(inout)		::	a(:,:)
integer,	intent(in)		::	ipiv(:)
real(kind=REAL32),	intent(inout)		::	b(:,:)
character(len=1),	intent(in),	optional	::	trans
integer,	intent(out),	optional	::	info

public pure subroutine mfi_dgetrs(a, ipiv, b, trans, info)

Modern interface for f77_getrs. See also: mfi_getrs, f77_getrs.

Arguments

Type	Intent	Optional		Name
real(kind=REAL64),	intent(inout)		::	a(:,:)
integer,	intent(in)		::	ipiv(:)
real(kind=REAL64),	intent(inout)		::	b(:,:)
character(len=1),	intent(in),	optional	::	trans
integer,	intent(out),	optional	::	info

public pure subroutine mfi_cgetrs(a, ipiv, b, trans, info)

Modern interface for f77_getrs. See also: mfi_getrs, f77_getrs.

Arguments

Type	Intent	Optional		Name
complex(kind=REAL32),	intent(inout)		::	a(:,:)
integer,	intent(in)		::	ipiv(:)
complex(kind=REAL32),	intent(inout)		::	b(:,:)
character(len=1),	intent(in),	optional	::	trans
integer,	intent(out),	optional	::	info

public pure subroutine mfi_zgetrs(a, ipiv, b, trans, info)

Modern interface for f77_getrs. See also: mfi_getrs, f77_getrs.

Arguments

Type	Intent	Optional		Name
complex(kind=REAL64),	intent(inout)		::	a(:,:)
integer,	intent(in)		::	ipiv(:)
complex(kind=REAL64),	intent(inout)		::	b(:,:)
character(len=1),	intent(in),	optional	::	trans
integer,	intent(out),	optional	::	info

public pure subroutine mfi_chetrf(a, uplo, ipiv, info)

Modern interface for f77_hetrf. See also: mfi_hetrf, f77_hetrf. Computes the factorization of a Hermitian matrix using the Bunch-Kaufman diagonal pivoting method

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=REAL32),	intent(inout)			::	a(:,:)
character(len=1),	intent(in),	optional		::	uplo
integer,	intent(out),	optional,	target	::	ipiv(:)
integer,	intent(out),	optional		::	info

public pure subroutine mfi_zhetrf(a, uplo, ipiv, info)

Modern interface for f77_hetrf. See also: mfi_hetrf, f77_hetrf. Computes the factorization of a Hermitian matrix using the Bunch-Kaufman diagonal pivoting method

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=REAL64),	intent(inout)			::	a(:,:)
character(len=1),	intent(in),	optional		::	uplo
integer,	intent(out),	optional,	target	::	ipiv(:)
integer,	intent(out),	optional		::	info

public pure subroutine mfi_chegv(a, b, w, itype, jobz, uplo, info)

Modern interface for f77_hegv. See also: mfi_hegv, f77_hegv.

Arguments

Type	Intent	Optional		Name
complex(kind=REAL32),	intent(inout)		::	a(:,:)
complex(kind=REAL32),	intent(inout)		::	b(:,:)
real(kind=REAL32),	intent(out)		::	w(:)
integer,	intent(in),	optional	::	itype
character(len=1),	intent(in),	optional	::	jobz
character(len=1),	intent(in),	optional	::	uplo
integer,	intent(out),	optional	::	info

public pure subroutine mfi_zhegv(a, b, w, itype, jobz, uplo, info)

Modern interface for f77_hegv. See also: mfi_hegv, f77_hegv.

Arguments

Type	Intent	Optional		Name
complex(kind=REAL64),	intent(inout)		::	a(:,:)
complex(kind=REAL64),	intent(inout)		::	b(:,:)
real(kind=REAL64),	intent(out)		::	w(:)
integer,	intent(in),	optional	::	itype
character(len=1),	intent(in),	optional	::	jobz
character(len=1),	intent(in),	optional	::	uplo
integer,	intent(out),	optional	::	info

public pure subroutine mfi_cheevd(a, w, jobz, uplo, info)

Modern interface for f77_heevd. See also: mfi_heevd, f77_heevd.

Arguments

Type	Intent	Optional		Name
complex(kind=REAL32),	intent(inout)		::	a(:,:)
real(kind=REAL32),	intent(out)		::	w(:)
character(len=1),	intent(in),	optional	::	jobz
character(len=1),	intent(in),	optional	::	uplo
integer,	intent(out),	optional	::	info

public pure subroutine mfi_zheevd(a, w, jobz, uplo, info)

Modern interface for f77_heevd. See also: mfi_heevd, f77_heevd.

Arguments

Type	Intent	Optional		Name
complex(kind=REAL64),	intent(inout)		::	a(:,:)
real(kind=REAL64),	intent(out)		::	w(:)
character(len=1),	intent(in),	optional	::	jobz
character(len=1),	intent(in),	optional	::	uplo
integer,	intent(out),	optional	::	info

public pure subroutine mfi_cheevr(a, w, jobz, uplo, range, vl, vu, il, iu, abstol, m, z, isuppz, info)

Modern interface for f77_heevr. See also: mfi_heevr, f77_heevr. Computes selected eigenvalues and, optionally, eigenvectors of a Hermitian matrix using RRR

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=REAL32),	intent(inout)			::	a(:,:)
real(kind=REAL32),	intent(out)			::	w(:)
character(len=1),	intent(in),	optional		::	jobz
character(len=1),	intent(in),	optional		::	uplo
character(len=1),	intent(in),	optional		::	range
real(kind=REAL32),	intent(in),	optional		::	vl
real(kind=REAL32),	intent(in),	optional		::	vu
integer,	intent(in),	optional		::	il
integer,	intent(in),	optional		::	iu
real(kind=REAL32),	intent(in),	optional		::	abstol
integer,	intent(out),	optional		::	m
complex(kind=REAL32),	intent(out),	optional,	target	::	z(:,:)
integer,	intent(out),	optional,	target	::	isuppz(:)
integer,	intent(out),	optional		::	info

public pure subroutine mfi_zheevr(a, w, jobz, uplo, range, vl, vu, il, iu, abstol, m, z, isuppz, info)

Modern interface for f77_heevr. See also: mfi_heevr, f77_heevr. Computes selected eigenvalues and, optionally, eigenvectors of a Hermitian matrix using RRR

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=REAL64),	intent(inout)			::	a(:,:)
real(kind=REAL64),	intent(out)			::	w(:)
character(len=1),	intent(in),	optional		::	jobz
character(len=1),	intent(in),	optional		::	uplo
character(len=1),	intent(in),	optional		::	range
real(kind=REAL64),	intent(in),	optional		::	vl
real(kind=REAL64),	intent(in),	optional		::	vu
integer,	intent(in),	optional		::	il
integer,	intent(in),	optional		::	iu
real(kind=REAL64),	intent(in),	optional		::	abstol
integer,	intent(out),	optional		::	m
complex(kind=REAL64),	intent(out),	optional,	target	::	z(:,:)
integer,	intent(out),	optional,	target	::	isuppz(:)
integer,	intent(out),	optional		::	info

public pure subroutine mfi_cheevx(a, w, uplo, z, vl, vu, il, iu, m, ifail, abstol, info)

Modern interface for f77_heevx. See also: mfi_heevx, f77_heevx. Computes selected eigenvalues and, optionally, eigenvectors of a complex Hermitian matrix.

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=REAL32),	intent(inout)			::	a(:,:)
real(kind=REAL32),	intent(out)			::	w(:)
character(len=1),	intent(in),	optional		::	uplo
complex(kind=REAL32),	intent(out),	optional		::	z(:,:)
real(kind=REAL32),	intent(in),	optional		::	vl
real(kind=REAL32),	intent(in),	optional		::	vu
integer,	intent(in),	optional		::	il
integer,	intent(in),	optional		::	iu
integer,	intent(out),	optional		::	m
integer,	intent(out),	optional,	target	::	ifail(:)
real(kind=REAL32),	intent(in),	optional		::	abstol
integer,	intent(out),	optional		::	info

public pure subroutine mfi_zheevx(a, w, uplo, z, vl, vu, il, iu, m, ifail, abstol, info)

Modern interface for f77_heevx. See also: mfi_heevx, f77_heevx. Computes selected eigenvalues and, optionally, eigenvectors of a complex Hermitian matrix.

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=REAL64),	intent(inout)			::	a(:,:)
real(kind=REAL64),	intent(out)			::	w(:)
character(len=1),	intent(in),	optional		::	uplo
complex(kind=REAL64),	intent(out),	optional		::	z(:,:)
real(kind=REAL64),	intent(in),	optional		::	vl
real(kind=REAL64),	intent(in),	optional		::	vu
integer,	intent(in),	optional		::	il
integer,	intent(in),	optional		::	iu
integer,	intent(out),	optional		::	m
integer,	intent(out),	optional,	target	::	ifail(:)
real(kind=REAL64),	intent(in),	optional		::	abstol
integer,	intent(out),	optional		::	info

public pure subroutine mfi_sgesvd(a, s, u, vt, ww, job, info)

Modern interface for f77_gesvd. See also: mfi_gesvd, f77_gesvd.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=REAL32),	intent(inout)			::	a(:,:)
real(kind=REAL32),	intent(out)			::	s(:)
real(kind=REAL32),	intent(out),	optional,	target	::	u(:,:)
real(kind=REAL32),	intent(out),	optional,	target	::	vt(:,:)
real(kind=REAL32),	intent(out),	optional,	target	::	ww(:)
character(len=1),	intent(in),	optional		::	job
integer,	intent(out),	optional		::	info

public pure subroutine mfi_dgesvd(a, s, u, vt, ww, job, info)

Modern interface for f77_gesvd. See also: mfi_gesvd, f77_gesvd.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=REAL64),	intent(inout)			::	a(:,:)
real(kind=REAL64),	intent(out)			::	s(:)
real(kind=REAL64),	intent(out),	optional,	target	::	u(:,:)
real(kind=REAL64),	intent(out),	optional,	target	::	vt(:,:)
real(kind=REAL64),	intent(out),	optional,	target	::	ww(:)
character(len=1),	intent(in),	optional		::	job
integer,	intent(out),	optional		::	info

public pure subroutine mfi_cgesvd(a, s, u, vt, ww, job, info)

Modern interface for f77_gesvd. See also: mfi_gesvd, f77_gesvd.

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=REAL32),	intent(inout)			::	a(:,:)
real(kind=REAL32),	intent(out)			::	s(:)
complex(kind=REAL32),	intent(out),	optional,	target	::	u(:,:)
complex(kind=REAL32),	intent(out),	optional,	target	::	vt(:,:)
real(kind=REAL32),	intent(out),	optional,	target	::	ww(:)
character(len=1),	intent(in),	optional		::	job
integer,	intent(out),	optional		::	info

public pure subroutine mfi_zgesvd(a, s, u, vt, ww, job, info)

Modern interface for f77_gesvd. See also: mfi_gesvd, f77_gesvd.

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=REAL64),	intent(inout)			::	a(:,:)
real(kind=REAL64),	intent(out)			::	s(:)
complex(kind=REAL64),	intent(out),	optional,	target	::	u(:,:)
complex(kind=REAL64),	intent(out),	optional,	target	::	vt(:,:)
real(kind=REAL64),	intent(out),	optional,	target	::	ww(:)
character(len=1),	intent(in),	optional		::	job
integer,	intent(out),	optional		::	info

public pure subroutine mfi_sorgqr(a, tau, k, info)

Modern interface for f77_orgqr. See also: mfi_orgqr, f77_orgqr. Generates the real orthogonal matrix Q of the QR factorization

Arguments

Type	Intent	Optional		Name
real(kind=REAL32),	intent(inout)		::	a(:,:)
real(kind=REAL32),	intent(in)		::	tau(:)
integer,	intent(in),	optional	::	k
integer,	intent(out),	optional	::	info

public pure subroutine mfi_dorgqr(a, tau, k, info)

Modern interface for f77_orgqr. See also: mfi_orgqr, f77_orgqr. Generates the real orthogonal matrix Q of the QR factorization

Arguments

Type	Intent	Optional		Name
real(kind=REAL64),	intent(inout)		::	a(:,:)
real(kind=REAL64),	intent(in)		::	tau(:)
integer,	intent(in),	optional	::	k
integer,	intent(out),	optional	::	info

public pure subroutine mfi_sorgrq(a, tau, k, info)

Modern interface for f77_orgrq. See also: mfi_orgrq, f77_orgrq. Generates the real orthogonal matrix Q of the QR factorization

Arguments

Type	Intent	Optional		Name
real(kind=REAL32),	intent(inout)		::	a(:,:)
real(kind=REAL32),	intent(in)		::	tau(:)
integer,	intent(in),	optional	::	k
integer,	intent(out),	optional	::	info

public pure subroutine mfi_dorgrq(a, tau, k, info)

Modern interface for f77_orgrq. See also: mfi_orgrq, f77_orgrq. Generates the real orthogonal matrix Q of the QR factorization

Arguments

Type	Intent	Optional		Name
real(kind=REAL64),	intent(inout)		::	a(:,:)
real(kind=REAL64),	intent(in)		::	tau(:)
integer,	intent(in),	optional	::	k
integer,	intent(out),	optional	::	info

public pure subroutine mfi_cungqr(a, tau, k, info)

Modern interface for f77_ungqr. See also: mfi_ungqr, f77_ungqr. Generates the real orthogonal matrix Q of the QR factorization

Arguments

Type	Intent	Optional		Name
complex(kind=REAL32),	intent(inout)		::	a(:,:)
complex(kind=REAL32),	intent(in)		::	tau(:)
integer,	intent(in),	optional	::	k
integer,	intent(out),	optional	::	info

public pure subroutine mfi_zungqr(a, tau, k, info)

Modern interface for f77_ungqr. See also: mfi_ungqr, f77_ungqr. Generates the real orthogonal matrix Q of the QR factorization

Arguments

Type	Intent	Optional		Name
complex(kind=REAL64),	intent(inout)		::	a(:,:)
complex(kind=REAL64),	intent(in)		::	tau(:)
integer,	intent(in),	optional	::	k
integer,	intent(out),	optional	::	info

public pure subroutine mfi_cungrq(a, tau, k, info)

Modern interface for f77_ungrq. See also: mfi_ungrq, f77_ungrq. Generates the real orthogonal matrix Q of the QR factorization

Arguments

Type	Intent	Optional		Name
complex(kind=REAL32),	intent(inout)		::	a(:,:)
complex(kind=REAL32),	intent(in)		::	tau(:)
integer,	intent(in),	optional	::	k
integer,	intent(out),	optional	::	info

public pure subroutine mfi_zungrq(a, tau, k, info)

Modern interface for f77_ungrq. See also: mfi_ungrq, f77_ungrq. Generates the real orthogonal matrix Q of the QR factorization

Arguments

Type	Intent	Optional		Name
complex(kind=REAL64),	intent(inout)		::	a(:,:)
complex(kind=REAL64),	intent(in)		::	tau(:)
integer,	intent(in),	optional	::	k
integer,	intent(out),	optional	::	info

public pure subroutine mfi_sormqr(a, tau, c, side, trans, info)

Modern interface for f77_ormqr. See also: mfi_ormqr, f77_ormqr. Multiplies a matrix by the orthogonal matrix Q from geqrf

Arguments

Type	Intent	Optional		Name
real(kind=REAL32),	intent(inout)		::	a(:,:)
real(kind=REAL32),	intent(in)		::	tau(:)
real(kind=REAL32),	intent(inout)		::	c(:,:)
character(len=1),	intent(in),	optional	::	side
character(len=1),	intent(in),	optional	::	trans
integer,	intent(out),	optional	::	info

public pure subroutine mfi_dormqr(a, tau, c, side, trans, info)

Modern interface for f77_ormqr. See also: mfi_ormqr, f77_ormqr. Multiplies a matrix by the orthogonal matrix Q from geqrf

Arguments

Type	Intent	Optional		Name
real(kind=REAL64),	intent(inout)		::	a(:,:)
real(kind=REAL64),	intent(in)		::	tau(:)
real(kind=REAL64),	intent(inout)		::	c(:,:)
character(len=1),	intent(in),	optional	::	side
character(len=1),	intent(in),	optional	::	trans
integer,	intent(out),	optional	::	info

public pure subroutine mfi_sormrq(a, tau, c, side, trans, info)

Modern interface for f77_ormrq. See also: mfi_ormrq, f77_ormrq. Multiplies a matrix by the orthogonal matrix Q from geqrf

Arguments

Type	Intent	Optional		Name
real(kind=REAL32),	intent(inout)		::	a(:,:)
real(kind=REAL32),	intent(in)		::	tau(:)
real(kind=REAL32),	intent(inout)		::	c(:,:)
character(len=1),	intent(in),	optional	::	side
character(len=1),	intent(in),	optional	::	trans
integer,	intent(out),	optional	::	info

public pure subroutine mfi_dormrq(a, tau, c, side, trans, info)

Modern interface for f77_ormrq. See also: mfi_ormrq, f77_ormrq. Multiplies a matrix by the orthogonal matrix Q from geqrf

Arguments

Type	Intent	Optional		Name
real(kind=REAL64),	intent(inout)		::	a(:,:)
real(kind=REAL64),	intent(in)		::	tau(:)
real(kind=REAL64),	intent(inout)		::	c(:,:)
character(len=1),	intent(in),	optional	::	side
character(len=1),	intent(in),	optional	::	trans
integer,	intent(out),	optional	::	info

public pure subroutine mfi_cunmqr(a, tau, c, side, trans, info)

Modern interface for f77_unmqr. See also: mfi_unmqr, f77_unmqr. Multiplies a matrix by the orthogonal matrix Q from geqrf

Arguments

Type	Intent	Optional		Name
complex(kind=REAL32),	intent(inout)		::	a(:,:)
complex(kind=REAL32),	intent(in)		::	tau(:)
complex(kind=REAL32),	intent(inout)		::	c(:,:)
character(len=1),	intent(in),	optional	::	side
character(len=1),	intent(in),	optional	::	trans
integer,	intent(out),	optional	::	info

public pure subroutine mfi_zunmqr(a, tau, c, side, trans, info)

Modern interface for f77_unmqr. See also: mfi_unmqr, f77_unmqr. Multiplies a matrix by the orthogonal matrix Q from geqrf

Arguments

Type	Intent	Optional		Name
complex(kind=REAL64),	intent(inout)		::	a(:,:)
complex(kind=REAL64),	intent(in)		::	tau(:)
complex(kind=REAL64),	intent(inout)		::	c(:,:)
character(len=1),	intent(in),	optional	::	side
character(len=1),	intent(in),	optional	::	trans
integer,	intent(out),	optional	::	info

public pure subroutine mfi_cunmrq(a, tau, c, side, trans, info)

Modern interface for f77_unmrq. See also: mfi_unmrq, f77_unmrq. Multiplies a matrix by the orthogonal matrix Q from geqrf

Arguments

Type	Intent	Optional		Name
complex(kind=REAL32),	intent(inout)		::	a(:,:)
complex(kind=REAL32),	intent(in)		::	tau(:)
complex(kind=REAL32),	intent(inout)		::	c(:,:)
character(len=1),	intent(in),	optional	::	side
character(len=1),	intent(in),	optional	::	trans
integer,	intent(out),	optional	::	info

public pure subroutine mfi_zunmrq(a, tau, c, side, trans, info)

Modern interface for f77_unmrq. See also: mfi_unmrq, f77_unmrq. Multiplies a matrix by the orthogonal matrix Q from geqrf

Arguments

Type	Intent	Optional		Name
complex(kind=REAL64),	intent(inout)		::	a(:,:)
complex(kind=REAL64),	intent(in)		::	tau(:)
complex(kind=REAL64),	intent(inout)		::	c(:,:)
character(len=1),	intent(in),	optional	::	side
character(len=1),	intent(in),	optional	::	trans
integer,	intent(out),	optional	::	info

public pure subroutine mfi_sorg2r(a, tau, k, info)

Modern interface for f77_org2r. See also: mfi_org2r, f77_org2r. Generates the real orthogonal matrix Q of the QR factorization formed by geqr2

Arguments

Type	Intent	Optional		Name
real(kind=REAL32),	intent(inout)		::	a(:,:)
real(kind=REAL32),	intent(in)		::	tau(:)
integer,	intent(in),	optional	::	k
integer,	intent(out),	optional	::	info

public pure subroutine mfi_dorg2r(a, tau, k, info)

Modern interface for f77_org2r. See also: mfi_org2r, f77_org2r. Generates the real orthogonal matrix Q of the QR factorization formed by geqr2

Arguments

Type	Intent	Optional		Name
real(kind=REAL64),	intent(inout)		::	a(:,:)
real(kind=REAL64),	intent(in)		::	tau(:)
integer,	intent(in),	optional	::	k
integer,	intent(out),	optional	::	info

public pure subroutine mfi_cung2r(a, tau, k, info)

Modern interface for f77_ung2r. See also: mfi_ung2r, f77_ung2r. Generates the real orthogonal matrix Q of the QR factorization formed by geqr2

Arguments

Type	Intent	Optional		Name
complex(kind=REAL32),	intent(inout)		::	a(:,:)
complex(kind=REAL32),	intent(in)		::	tau(:)
integer,	intent(in),	optional	::	k
integer,	intent(out),	optional	::	info

public pure subroutine mfi_zung2r(a, tau, k, info)

Modern interface for f77_ung2r. See also: mfi_ung2r, f77_ung2r. Generates the real orthogonal matrix Q of the QR factorization formed by geqr2

Arguments

Type	Intent	Optional		Name
complex(kind=REAL64),	intent(inout)		::	a(:,:)
complex(kind=REAL64),	intent(in)		::	tau(:)
integer,	intent(in),	optional	::	k
integer,	intent(out),	optional	::	info

public pure subroutine mfi_sorm2r(a, tau, c, side, trans, info)

Modern interface for f77_orm2r. See also: mfi_orm2r, f77_orm2r. Multiplies a real matrix by the orthogonal matrix Q formed by geqr2

Arguments

Type	Intent	Optional		Name
real(kind=REAL32),	intent(inout)		::	a(:,:)
real(kind=REAL32),	intent(in)		::	tau(:)
real(kind=REAL32),	intent(inout)		::	c(:,:)
character(len=1),	intent(in),	optional	::	side
character(len=1),	intent(in),	optional	::	trans
integer,	intent(out),	optional	::	info

public pure subroutine mfi_dorm2r(a, tau, c, side, trans, info)

Modern interface for f77_orm2r. See also: mfi_orm2r, f77_orm2r. Multiplies a real matrix by the orthogonal matrix Q formed by geqr2

Arguments

Type	Intent	Optional		Name
real(kind=REAL64),	intent(inout)		::	a(:,:)
real(kind=REAL64),	intent(in)		::	tau(:)
real(kind=REAL64),	intent(inout)		::	c(:,:)
character(len=1),	intent(in),	optional	::	side
character(len=1),	intent(in),	optional	::	trans
integer,	intent(out),	optional	::	info

public pure subroutine mfi_cunm2r(a, tau, c, side, trans, info)

Modern interface for f77_unm2r. See also: mfi_unm2r, f77_unm2r. Multiplies a real matrix by the orthogonal matrix Q formed by geqr2

Arguments

Type	Intent	Optional		Name
complex(kind=REAL32),	intent(inout)		::	a(:,:)
complex(kind=REAL32),	intent(in)		::	tau(:)
complex(kind=REAL32),	intent(inout)		::	c(:,:)
character(len=1),	intent(in),	optional	::	side
character(len=1),	intent(in),	optional	::	trans
integer,	intent(out),	optional	::	info

public pure subroutine mfi_zunm2r(a, tau, c, side, trans, info)

Modern interface for f77_unm2r. See also: mfi_unm2r, f77_unm2r. Multiplies a real matrix by the orthogonal matrix Q formed by geqr2

Arguments

Type	Intent	Optional		Name
complex(kind=REAL64),	intent(inout)		::	a(:,:)
complex(kind=REAL64),	intent(in)		::	tau(:)
complex(kind=REAL64),	intent(inout)		::	c(:,:)
character(len=1),	intent(in),	optional	::	side
character(len=1),	intent(in),	optional	::	trans
integer,	intent(out),	optional	::	info

public pure subroutine mfi_sorgr2(a, tau, k, info)

Modern interface for f77_orgr2. See also: mfi_orgr2, f77_orgr2. Generates the real orthogonal matrix Q of the RQ factorization formed by gerq2

Arguments

Type	Intent	Optional		Name
real(kind=REAL32),	intent(inout)		::	a(:,:)
real(kind=REAL32),	intent(in)		::	tau(:)
integer,	intent(in),	optional	::	k
integer,	intent(out),	optional	::	info

public pure subroutine mfi_dorgr2(a, tau, k, info)

Modern interface for f77_orgr2. See also: mfi_orgr2, f77_orgr2. Generates the real orthogonal matrix Q of the RQ factorization formed by gerq2

Arguments

Type	Intent	Optional		Name
real(kind=REAL64),	intent(inout)		::	a(:,:)
real(kind=REAL64),	intent(in)		::	tau(:)
integer,	intent(in),	optional	::	k
integer,	intent(out),	optional	::	info

public pure subroutine mfi_cungr2(a, tau, k, info)

Modern interface for f77_ungr2. See also: mfi_ungr2, f77_ungr2. Generates the real orthogonal matrix Q of the RQ factorization formed by gerq2

Arguments

Type	Intent	Optional		Name
complex(kind=REAL32),	intent(inout)		::	a(:,:)
complex(kind=REAL32),	intent(in)		::	tau(:)
integer,	intent(in),	optional	::	k
integer,	intent(out),	optional	::	info

public pure subroutine mfi_zungr2(a, tau, k, info)

Modern interface for f77_ungr2. See also: mfi_ungr2, f77_ungr2. Generates the real orthogonal matrix Q of the RQ factorization formed by gerq2

Arguments

Type	Intent	Optional		Name
complex(kind=REAL64),	intent(inout)		::	a(:,:)
complex(kind=REAL64),	intent(in)		::	tau(:)
integer,	intent(in),	optional	::	k
integer,	intent(out),	optional	::	info

public pure subroutine mfi_sormr2(a, tau, c, side, trans, info)

Modern interface for f77_ormr2. See also: mfi_ormr2, f77_ormr2. Multiplies a real matrix by the orthogonal matrix Q formed by gerq2

Arguments

Type	Intent	Optional		Name
real(kind=REAL32),	intent(inout)		::	a(:,:)
real(kind=REAL32),	intent(in)		::	tau(:)
real(kind=REAL32),	intent(inout)		::	c(:,:)
character(len=1),	intent(in),	optional	::	side
character(len=1),	intent(in),	optional	::	trans
integer,	intent(out),	optional	::	info

public pure subroutine mfi_dormr2(a, tau, c, side, trans, info)

Modern interface for f77_ormr2. See also: mfi_ormr2, f77_ormr2. Multiplies a real matrix by the orthogonal matrix Q formed by gerq2

Arguments

Type	Intent	Optional		Name
real(kind=REAL64),	intent(inout)		::	a(:,:)
real(kind=REAL64),	intent(in)		::	tau(:)
real(kind=REAL64),	intent(inout)		::	c(:,:)
character(len=1),	intent(in),	optional	::	side
character(len=1),	intent(in),	optional	::	trans
integer,	intent(out),	optional	::	info

public pure subroutine mfi_cunmr2(a, tau, c, side, trans, info)

Modern interface for f77_unmr2. See also: mfi_unmr2, f77_unmr2. Multiplies a real matrix by the orthogonal matrix Q formed by gerq2

Arguments

Type	Intent	Optional		Name
complex(kind=REAL32),	intent(inout)		::	a(:,:)
complex(kind=REAL32),	intent(in)		::	tau(:)
complex(kind=REAL32),	intent(inout)		::	c(:,:)
character(len=1),	intent(in),	optional	::	side
character(len=1),	intent(in),	optional	::	trans
integer,	intent(out),	optional	::	info

public pure subroutine mfi_zunmr2(a, tau, c, side, trans, info)

Modern interface for f77_unmr2. See also: mfi_unmr2, f77_unmr2. Multiplies a real matrix by the orthogonal matrix Q formed by gerq2

Arguments

Type	Intent	Optional		Name
complex(kind=REAL64),	intent(inout)		::	a(:,:)
complex(kind=REAL64),	intent(in)		::	tau(:)
complex(kind=REAL64),	intent(inout)		::	c(:,:)
character(len=1),	intent(in),	optional	::	side
character(len=1),	intent(in),	optional	::	trans
integer,	intent(out),	optional	::	info

public pure subroutine mfi_spotrf(a, info, uplo)

Modern interface for f77_potrf. See also: mfi_potrf, f77_potrf.

Arguments

Type	Intent	Optional		Name
real(kind=REAL32),	intent(inout)		::	a(:,:)
integer,	intent(out),	optional	::	info
character(len=1),	intent(in),	optional	::	uplo

public pure subroutine mfi_dpotrf(a, info, uplo)

Modern interface for f77_potrf. See also: mfi_potrf, f77_potrf.

Arguments

Type	Intent	Optional		Name
real(kind=REAL64),	intent(inout)		::	a(:,:)
integer,	intent(out),	optional	::	info
character(len=1),	intent(in),	optional	::	uplo

public pure subroutine mfi_cpotrf(a, info, uplo)

Modern interface for f77_potrf. See also: mfi_potrf, f77_potrf.

Arguments

Type	Intent	Optional		Name
complex(kind=REAL32),	intent(inout)		::	a(:,:)
integer,	intent(out),	optional	::	info
character(len=1),	intent(in),	optional	::	uplo

public pure subroutine mfi_zpotrf(a, info, uplo)

Modern interface for f77_potrf. See also: mfi_potrf, f77_potrf.

Arguments

Type	Intent	Optional		Name
complex(kind=REAL64),	intent(inout)		::	a(:,:)
integer,	intent(out),	optional	::	info
character(len=1),	intent(in),	optional	::	uplo

public pure subroutine mfi_spotri(a, info, uplo)

Modern interface for f77_potri. See also: mfi_potri, f77_potri.

Arguments

Type	Intent	Optional		Name
real(kind=REAL32),	intent(inout)		::	a(:,:)
integer,	intent(out),	optional	::	info
character(len=1),	intent(in),	optional	::	uplo

public pure subroutine mfi_dpotri(a, info, uplo)

Modern interface for f77_potri. See also: mfi_potri, f77_potri.

Arguments

Type	Intent	Optional		Name
real(kind=REAL64),	intent(inout)		::	a(:,:)
integer,	intent(out),	optional	::	info
character(len=1),	intent(in),	optional	::	uplo

public pure subroutine mfi_cpotri(a, info, uplo)

Modern interface for f77_potri. See also: mfi_potri, f77_potri.

Arguments

Type	Intent	Optional		Name
complex(kind=REAL32),	intent(inout)		::	a(:,:)
integer,	intent(out),	optional	::	info
character(len=1),	intent(in),	optional	::	uplo

public pure subroutine mfi_zpotri(a, info, uplo)

Modern interface for f77_potri. See also: mfi_potri, f77_potri.

Arguments

Type	Intent	Optional		Name
complex(kind=REAL64),	intent(inout)		::	a(:,:)
integer,	intent(out),	optional	::	info
character(len=1),	intent(in),	optional	::	uplo

public pure subroutine mfi_spotrs(a, b, uplo, info)

Modern interface for f77_potrs. See also: mfi_potrs, f77_potrs.

Arguments

Type	Intent	Optional		Name
real(kind=REAL32),	intent(in)		::	a(:,:)
real(kind=REAL32),	intent(inout)		::	b(:,:)
character(len=1),	intent(in),	optional	::	uplo
integer,	intent(out),	optional	::	info

public pure subroutine mfi_dpotrs(a, b, uplo, info)

Modern interface for f77_potrs. See also: mfi_potrs, f77_potrs.

Arguments

Type	Intent	Optional		Name
real(kind=REAL64),	intent(in)		::	a(:,:)
real(kind=REAL64),	intent(inout)		::	b(:,:)
character(len=1),	intent(in),	optional	::	uplo
integer,	intent(out),	optional	::	info

public pure subroutine mfi_cpotrs(a, b, uplo, info)

Modern interface for f77_potrs. See also: mfi_potrs, f77_potrs.

Arguments

Type	Intent	Optional		Name
complex(kind=REAL32),	intent(in)		::	a(:,:)
complex(kind=REAL32),	intent(inout)		::	b(:,:)
character(len=1),	intent(in),	optional	::	uplo
integer,	intent(out),	optional	::	info

public pure subroutine mfi_zpotrs(a, b, uplo, info)

Modern interface for f77_potrs. See also: mfi_potrs, f77_potrs.

Arguments

Type	Intent	Optional		Name
complex(kind=REAL64),	intent(in)		::	a(:,:)
complex(kind=REAL64),	intent(inout)		::	b(:,:)
character(len=1),	intent(in),	optional	::	uplo
integer,	intent(out),	optional	::	info

public pure subroutine mfi_spocon(a, anorm, rcond, uplo, info)

Arguments

Type	Intent	Optional		Name
real(kind=REAL32),	intent(inout)		::	a(:,:)
real(kind=REAL32),	intent(in)		::	anorm
real(kind=REAL32),	intent(out)		::	rcond
character(len=1),	intent(in),	optional	::	uplo
integer,	intent(out),	optional	::	info

public pure subroutine mfi_dpocon(a, anorm, rcond, uplo, info)

Arguments

Type	Intent	Optional		Name
real(kind=REAL64),	intent(inout)		::	a(:,:)
real(kind=REAL64),	intent(in)		::	anorm
real(kind=REAL64),	intent(out)		::	rcond
character(len=1),	intent(in),	optional	::	uplo
integer,	intent(out),	optional	::	info

public pure subroutine mfi_cpocon(a, anorm, rcond, uplo, info)

Arguments

Type	Intent	Optional		Name
complex(kind=REAL32),	intent(inout)		::	a(:,:)
real(kind=REAL32),	intent(in)		::	anorm
real(kind=REAL32),	intent(out)		::	rcond
character(len=1),	intent(in),	optional	::	uplo
integer,	intent(out),	optional	::	info

public pure subroutine mfi_zpocon(a, anorm, rcond, uplo, info)

Arguments

Type	Intent	Optional		Name
complex(kind=REAL64),	intent(inout)		::	a(:,:)
real(kind=REAL64),	intent(in)		::	anorm
real(kind=REAL64),	intent(out)		::	rcond
character(len=1),	intent(in),	optional	::	uplo
integer,	intent(out),	optional	::	info

public pure subroutine mfi_strtrs(a, b, uplo, trans, diag, info)

Modern interface for f77_trtrs. See also: mfi_trtrs, f77_trtrs. Solves a triangular linear system with multiple right-hand sides:

Arguments

Type	Intent	Optional		Name
real(kind=REAL32),	intent(in)		::	a(:,:)
real(kind=REAL32),	intent(inout)		::	b(:,:)
character(len=1),	intent(in),	optional	::	uplo
character(len=1),	intent(in),	optional	::	trans
character(len=1),	intent(in),	optional	::	diag
integer,	intent(out),	optional	::	info

public pure subroutine mfi_dtrtrs(a, b, uplo, trans, diag, info)

Modern interface for f77_trtrs. See also: mfi_trtrs, f77_trtrs. Solves a triangular linear system with multiple right-hand sides:

Arguments

Type	Intent	Optional		Name
real(kind=REAL64),	intent(in)		::	a(:,:)
real(kind=REAL64),	intent(inout)		::	b(:,:)
character(len=1),	intent(in),	optional	::	uplo
character(len=1),	intent(in),	optional	::	trans
character(len=1),	intent(in),	optional	::	diag
integer,	intent(out),	optional	::	info

public pure subroutine mfi_ctrtrs(a, b, uplo, trans, diag, info)

Modern interface for f77_trtrs. See also: mfi_trtrs, f77_trtrs. Solves a triangular linear system with multiple right-hand sides:

Arguments

Type	Intent	Optional		Name
complex(kind=REAL32),	intent(in)		::	a(:,:)
complex(kind=REAL32),	intent(inout)		::	b(:,:)
character(len=1),	intent(in),	optional	::	uplo
character(len=1),	intent(in),	optional	::	trans
character(len=1),	intent(in),	optional	::	diag
integer,	intent(out),	optional	::	info

public pure subroutine mfi_ztrtrs(a, b, uplo, trans, diag, info)

Modern interface for f77_trtrs. See also: mfi_trtrs, f77_trtrs. Solves a triangular linear system with multiple right-hand sides:

Arguments

Type	Intent	Optional		Name
complex(kind=REAL64),	intent(in)		::	a(:,:)
complex(kind=REAL64),	intent(inout)		::	b(:,:)
character(len=1),	intent(in),	optional	::	uplo
character(len=1),	intent(in),	optional	::	trans
character(len=1),	intent(in),	optional	::	diag
integer,	intent(out),	optional	::	info

public pure subroutine mfi_ssytrf(a, uplo, ipiv, info)

Modern interface for f77_sytrf. See also: mfi_sytrf, f77_sytrf. Computes the factorization of a symmetric matrix using the Bunch-Kaufman diagonal pivoting method

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=REAL32),	intent(inout)			::	a(:,:)
character(len=1),	intent(in),	optional		::	uplo
integer,	intent(out),	optional,	target	::	ipiv(:)
integer,	intent(out),	optional		::	info

public pure subroutine mfi_dsytrf(a, uplo, ipiv, info)

Modern interface for f77_sytrf. See also: mfi_sytrf, f77_sytrf. Computes the factorization of a symmetric matrix using the Bunch-Kaufman diagonal pivoting method

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=REAL64),	intent(inout)			::	a(:,:)
character(len=1),	intent(in),	optional		::	uplo
integer,	intent(out),	optional,	target	::	ipiv(:)
integer,	intent(out),	optional		::	info

public pure subroutine mfi_error(name, info)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	name
integer,	intent(in)			::	info

mfi_lapack Module

Contents

Interfaces

Subroutines

Uses

Interfaces

public interface mfi_geqrf

public pure subroutine mfi_sgeqrf(a, tau, info)

Arguments

public pure subroutine mfi_dgeqrf(a, tau, info)

Arguments

public pure subroutine mfi_cgeqrf(a, tau, info)

Arguments

public pure subroutine mfi_zgeqrf(a, tau, info)

Arguments

public interface mfi_gerqf

public pure subroutine mfi_sgerqf(a, tau, info)

Arguments

public pure subroutine mfi_dgerqf(a, tau, info)

Arguments

public pure subroutine mfi_cgerqf(a, tau, info)

Arguments

public pure subroutine mfi_zgerqf(a, tau, info)

Arguments

public interface mfi_getrf

public pure subroutine mfi_sgetrf(a, ipiv, info)

Arguments

public pure subroutine mfi_dgetrf(a, ipiv, info)

Arguments

public pure subroutine mfi_cgetrf(a, ipiv, info)

Arguments

public pure subroutine mfi_zgetrf(a, ipiv, info)

Arguments

public interface mfi_getri

public pure subroutine mfi_sgetri(a, ipiv, info)

Arguments

public pure subroutine mfi_dgetri(a, ipiv, info)

Arguments

public pure subroutine mfi_cgetri(a, ipiv, info)

Arguments

public pure subroutine mfi_zgetri(a, ipiv, info)

Arguments

public interface mfi_getrs

public pure subroutine mfi_sgetrs(a, ipiv, b, trans, info)

Arguments

public pure subroutine mfi_dgetrs(a, ipiv, b, trans, info)

Arguments

public pure subroutine mfi_cgetrs(a, ipiv, b, trans, info)

Arguments

public pure subroutine mfi_zgetrs(a, ipiv, b, trans, info)

Arguments

public interface mfi_hetrf

public pure subroutine mfi_chetrf(a, uplo, ipiv, info)

Arguments

public pure subroutine mfi_zhetrf(a, uplo, ipiv, info)

Arguments

public interface mfi_hegv

public pure subroutine mfi_chegv(a, b, w, itype, jobz, uplo, info)

Arguments

public pure subroutine mfi_zhegv(a, b, w, itype, jobz, uplo, info)

Arguments

public interface mfi_heevd

public pure subroutine mfi_cheevd(a, w, jobz, uplo, info)

Arguments

public pure subroutine mfi_zheevd(a, w, jobz, uplo, info)

Arguments

public interface mfi_heevr

public pure subroutine mfi_cheevr(a, w, jobz, uplo, range, vl, vu, il, iu, abstol, m, z, isuppz, info)

Arguments

public pure subroutine mfi_zheevr(a, w, jobz, uplo, range, vl, vu, il, iu, abstol, m, z, isuppz, info)

Arguments

public interface mfi_heevx

public pure subroutine mfi_cheevx(a, w, uplo, z, vl, vu, il, iu, m, ifail, abstol, info)

Arguments

public pure subroutine mfi_zheevx(a, w, uplo, z, vl, vu, il, iu, m, ifail, abstol, info)

Arguments

public interface mfi_gesvd

public pure subroutine mfi_sgesvd(a, s, u, vt, ww, job, info)

Arguments

public pure subroutine mfi_dgesvd(a, s, u, vt, ww, job, info)