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 sgeqrf. 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 dgeqrf. 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 cgeqrf. 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 zgeqrf. 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 sgerqf. 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 dgerqf. 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 cgerqf. 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 zgerqf. 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 sgetrf. 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 dgetrf. 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 cgetrf. 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 zgetrf. 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 sgetri. 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 dgetri. 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 cgetri. 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 zgetri. 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 sgetrs. 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 dgetrs. 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 cgetrs. 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 zgetrs. 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 chetrf. See also: mfi_hetrf, f77_hetrf.

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 zhetrf. See also: mfi_hetrf, f77_hetrf.

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 chegv. 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 zhegv. 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 cheevd. 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 zheevd. 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_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 sgesvd. 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 dgesvd. 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 cgesvd. 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 zgesvd. 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_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 spotrf. 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 dpotrf. 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 cpotrf. 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 zpotrf. 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 spotri. 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 dpotri. 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 cpotri. 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 zpotri. 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 spotrs. 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 dpotrs. 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 cpotrs. 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 zpotrs. 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 spocon. 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)

Modern interface for dpocon. 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=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)

Modern interface for cpocon. 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
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)

Modern interface for zpocon. 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
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

Subroutines

public pure subroutine mfi_sgeqrf(a, tau, info)

Modern interface for sgeqrf. 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 dgeqrf. 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 cgeqrf. 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 zgeqrf. 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 sgerqf. 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 dgerqf. 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 cgerqf. 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 zgerqf. 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 sgetrf. 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 dgetrf. 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 cgetrf. 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 zgetrf. 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 sgetri. 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 dgetri. 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 cgetri. 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 zgetri. 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 sgetrs. 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 dgetrs. 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 cgetrs. 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 zgetrs. 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 chetrf. See also: mfi_hetrf, f77_hetrf.

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 zhetrf. See also: mfi_hetrf, f77_hetrf.

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 chegv. 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 zhegv. 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 cheevd. 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 zheevd. 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_sgesvd(a, s, u, vt, ww, job, info)

Modern interface for sgesvd. 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 dgesvd. 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 cgesvd. 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 zgesvd. 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_spotrf(a, info, uplo)

Modern interface for spotrf. 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 dpotrf. 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 cpotrf. 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 zpotrf. 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 spotri. 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 dpotri. 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 cpotri. 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 zpotri. 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 spotrs. 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 dpotrs. 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 cpotrs. 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 zpotrs. 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_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_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)

Arguments

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

Arguments

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

Arguments

public interface mfi_potrf

public pure subroutine mfi_spotrf(a, info, uplo)

Arguments

public pure subroutine mfi_dpotrf(a, info, uplo)

Arguments