f77_lapack – MFI - Modern Fortran Interfaces

public interface f77_geqrf

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

public pure subroutine sgeqrf(m, n, a, lda, tau, work, lwork, info)

Original interface for SGEQRF See also: mfi_geqrf, f77_geqrf.

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
real(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL32),	intent(out)	::	tau(*)
real(kind=REAL32),	intent(inout)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public pure subroutine dgeqrf(m, n, a, lda, tau, work, lwork, info)

Original interface for DGEQRF See also: mfi_geqrf, f77_geqrf.

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
real(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL64),	intent(out)	::	tau(*)
real(kind=REAL64),	intent(inout)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public pure subroutine cgeqrf(m, n, a, lda, tau, work, lwork, info)

Original interface for CGEQRF See also: mfi_geqrf, f77_geqrf.

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
complex(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
complex(kind=REAL32),	intent(out)	::	tau(*)
complex(kind=REAL32),	intent(inout)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public pure subroutine zgeqrf(m, n, a, lda, tau, work, lwork, info)

Original interface for ZGEQRF See also: mfi_geqrf, f77_geqrf.

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
complex(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
complex(kind=REAL64),	intent(out)	::	tau(*)
complex(kind=REAL64),	intent(inout)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public interface f77_gerqf

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

public pure subroutine sgerqf(m, n, a, lda, tau, work, lwork, info)

Original interface for SGERQF See also: mfi_gerqf, f77_gerqf.

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
real(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL32),	intent(out)	::	tau(*)
real(kind=REAL32),	intent(inout)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public pure subroutine dgerqf(m, n, a, lda, tau, work, lwork, info)

Original interface for DGERQF See also: mfi_gerqf, f77_gerqf.

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
real(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL64),	intent(out)	::	tau(*)
real(kind=REAL64),	intent(inout)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public pure subroutine cgerqf(m, n, a, lda, tau, work, lwork, info)

Original interface for CGERQF See also: mfi_gerqf, f77_gerqf.

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
complex(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
complex(kind=REAL32),	intent(out)	::	tau(*)
complex(kind=REAL32),	intent(inout)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public pure subroutine zgerqf(m, n, a, lda, tau, work, lwork, info)

Original interface for ZGERQF See also: mfi_gerqf, f77_gerqf.

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
complex(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
complex(kind=REAL64),	intent(out)	::	tau(*)
complex(kind=REAL64),	intent(inout)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public interface f77_getrf

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

public pure subroutine sgetrf(m, n, a, lda, ipiv, info)

Original interface for SGETRF See also: mfi_getrf, f77_getrf.

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
real(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
integer,	intent(out)	::	ipiv(*)
integer,	intent(out)	::	info

public pure subroutine dgetrf(m, n, a, lda, ipiv, info)

Original interface for DGETRF See also: mfi_getrf, f77_getrf.

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
real(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
integer,	intent(out)	::	ipiv(*)
integer,	intent(out)	::	info

public pure subroutine cgetrf(m, n, a, lda, ipiv, info)

Original interface for CGETRF See also: mfi_getrf, f77_getrf.

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
complex(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
integer,	intent(out)	::	ipiv(*)
integer,	intent(out)	::	info

public pure subroutine zgetrf(m, n, a, lda, ipiv, info)

Original interface for ZGETRF See also: mfi_getrf, f77_getrf.

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
complex(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
integer,	intent(out)	::	ipiv(*)
integer,	intent(out)	::	info

public interface f77_getri

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

public pure subroutine sgetri(n, a, lda, ipiv, work, lwork, info)

Original interface for SGETRI See also: mfi_getri, f77_getri.

Arguments

Type	Intent		Name
integer,	intent(in)	::	n
real(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
integer,	intent(in)	::	ipiv(*)
real(kind=REAL32),	intent(inout)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public pure subroutine dgetri(n, a, lda, ipiv, work, lwork, info)

Original interface for DGETRI See also: mfi_getri, f77_getri.

Arguments

Type	Intent		Name
integer,	intent(in)	::	n
real(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
integer,	intent(in)	::	ipiv(*)
real(kind=REAL64),	intent(inout)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public pure subroutine cgetri(n, a, lda, ipiv, work, lwork, info)

Original interface for CGETRI See also: mfi_getri, f77_getri.

Arguments

Type	Intent		Name
integer,	intent(in)	::	n
complex(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
integer,	intent(in)	::	ipiv(*)
complex(kind=REAL32),	intent(inout)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public pure subroutine zgetri(n, a, lda, ipiv, work, lwork, info)

Original interface for ZGETRI See also: mfi_getri, f77_getri.

Arguments

Type	Intent		Name
integer,	intent(in)	::	n
complex(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
integer,	intent(in)	::	ipiv(*)
complex(kind=REAL64),	intent(inout)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public interface f77_getrs

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

public pure subroutine sgetrs(trans, n, nrhs, a, lda, ipiv, b, ldb, info)

Original interface for SGETRS See also: mfi_getrs, f77_getrs.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	trans
integer,	intent(in)	::	n
integer,	intent(in)	::	nrhs
real(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
integer,	intent(in)	::	ipiv(*)
real(kind=REAL32),	intent(inout)	::	b(ldb,*)
integer,	intent(in)	::	ldb
integer,	intent(out)	::	info

public pure subroutine dgetrs(trans, n, nrhs, a, lda, ipiv, b, ldb, info)

Original interface for DGETRS See also: mfi_getrs, f77_getrs.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	trans
integer,	intent(in)	::	n
integer,	intent(in)	::	nrhs
real(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
integer,	intent(in)	::	ipiv(*)
real(kind=REAL64),	intent(inout)	::	b(ldb,*)
integer,	intent(in)	::	ldb
integer,	intent(out)	::	info

public pure subroutine cgetrs(trans, n, nrhs, a, lda, ipiv, b, ldb, info)

Original interface for CGETRS See also: mfi_getrs, f77_getrs.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	trans
integer,	intent(in)	::	n
integer,	intent(in)	::	nrhs
complex(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
integer,	intent(in)	::	ipiv(*)
complex(kind=REAL32),	intent(inout)	::	b(ldb,*)
integer,	intent(in)	::	ldb
integer,	intent(out)	::	info

public pure subroutine zgetrs(trans, n, nrhs, a, lda, ipiv, b, ldb, info)

Original interface for ZGETRS See also: mfi_getrs, f77_getrs.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	trans
integer,	intent(in)	::	n
integer,	intent(in)	::	nrhs
complex(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
integer,	intent(in)	::	ipiv(*)
complex(kind=REAL64),	intent(inout)	::	b(ldb,*)
integer,	intent(in)	::	ldb
integer,	intent(out)	::	info

public interface f77_hetrf

Generic old style interface for HETRF. Supports c, z. See also: mfi_hetrf, chetrf, zhetrf.

public pure subroutine chetrf(uplo, n, a, lda, ipiv, work, lwork, info)

Original interface for CHETRF See also: mfi_hetrf, f77_hetrf.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	uplo
integer,	intent(in)	::	n
complex(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
integer,	intent(in)	::	ipiv(*)
complex(kind=REAL32),	intent(inout)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public pure subroutine zhetrf(uplo, n, a, lda, ipiv, work, lwork, info)

Original interface for ZHETRF See also: mfi_hetrf, f77_hetrf.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	uplo
integer,	intent(in)	::	n
complex(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
integer,	intent(in)	::	ipiv(*)
complex(kind=REAL64),	intent(inout)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public interface f77_hegv

Generic old style interface for HEGV. Supports c, z. See also: mfi_hegv, chegv, zhegv.

public pure subroutine chegv(itype, jobz, uplo, n, a, lda, b, ldb, w, work, lwork, rwork, info)

Original interface for CHEGV See also: mfi_hegv, f77_hegv.

Arguments

Type	Intent		Name
integer,	intent(in)	::	itype
character(len=1),	intent(in)	::	jobz
character(len=1),	intent(in)	::	uplo
integer,	intent(in)	::	n
complex(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
complex(kind=REAL32),	intent(inout)	::	b(ldb,*)
integer,	intent(in)	::	ldb
real(kind=REAL32),	intent(out)	::	w(*)
complex(kind=REAL32),	intent(inout)	::	work(*)
integer,	intent(in)	::	lwork
real(kind=REAL32),	intent(in)	::	rwork(*)
integer,	intent(out)	::	info

public pure subroutine zhegv(itype, jobz, uplo, n, a, lda, b, ldb, w, work, lwork, rwork, info)

Original interface for ZHEGV See also: mfi_hegv, f77_hegv.

Arguments

Type	Intent		Name
integer,	intent(in)	::	itype
character(len=1),	intent(in)	::	jobz
character(len=1),	intent(in)	::	uplo
integer,	intent(in)	::	n
complex(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
complex(kind=REAL64),	intent(inout)	::	b(ldb,*)
integer,	intent(in)	::	ldb
real(kind=REAL64),	intent(out)	::	w(*)
complex(kind=REAL64),	intent(inout)	::	work(*)
integer,	intent(in)	::	lwork
real(kind=REAL64),	intent(in)	::	rwork(*)
integer,	intent(out)	::	info

public interface f77_heevd

Generic old style interface for HEEVD. Supports c, z. See also: mfi_heevd, cheevd, zheevd.

public pure subroutine cheevd(jobz, uplo, n, a, lda, w, work, lwork, rwork, lrwork, iwork, liwork, info)

Original interface for CHEEVD See also: mfi_heevd, f77_heevd.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	jobz
character(len=1),	intent(in)	::	uplo
integer,	intent(in)	::	n
complex(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL32),	intent(out)	::	w(*)
complex(kind=REAL32),	intent(inout)	::	work(*)
integer,	intent(in)	::	lwork
real(kind=REAL32),	intent(inout)	::	rwork(*)
integer,	intent(in)	::	lrwork
integer,	intent(inout)	::	iwork(*)
integer,	intent(in)	::	liwork
integer,	intent(out)	::	info

public pure subroutine zheevd(jobz, uplo, n, a, lda, w, work, lwork, rwork, lrwork, iwork, liwork, info)

Original interface for ZHEEVD See also: mfi_heevd, f77_heevd.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	jobz
character(len=1),	intent(in)	::	uplo
integer,	intent(in)	::	n
complex(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL64),	intent(out)	::	w(*)
complex(kind=REAL64),	intent(inout)	::	work(*)
integer,	intent(in)	::	lwork
real(kind=REAL64),	intent(inout)	::	rwork(*)
integer,	intent(in)	::	lrwork
integer,	intent(inout)	::	iwork(*)
integer,	intent(in)	::	liwork
integer,	intent(out)	::	info

public interface f77_gesvd

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

public pure subroutine sgesvd(jobu, jobvt, m, n, a, lda, s, u, ldu, vt, ldvt, work, lwork, info)

Original interface for SGESVD See also: mfi_gesvd, f77_gesvd.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	jobu
character(len=1),	intent(in)	::	jobvt
integer,	intent(in)	::	m
integer,	intent(in)	::	n
real(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL32),	intent(out)	::	s(*)
real(kind=REAL32),	intent(out)	::	u(ldu,*)
integer,	intent(in)	::	ldu
real(kind=REAL32),	intent(out)	::	vt(ldvt,*)
integer,	intent(in)	::	ldvt
real(kind=REAL32),	intent(inout)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public pure subroutine dgesvd(jobu, jobvt, m, n, a, lda, s, u, ldu, vt, ldvt, work, lwork, info)

Original interface for DGESVD See also: mfi_gesvd, f77_gesvd.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	jobu
character(len=1),	intent(in)	::	jobvt
integer,	intent(in)	::	m
integer,	intent(in)	::	n
real(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL64),	intent(out)	::	s(*)
real(kind=REAL64),	intent(out)	::	u(ldu,*)
integer,	intent(in)	::	ldu
real(kind=REAL64),	intent(out)	::	vt(ldvt,*)
integer,	intent(in)	::	ldvt
real(kind=REAL64),	intent(inout)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public pure subroutine cgesvd(jobu, jobvt, m, n, a, lda, s, u, ldu, vt, ldvt, work, lwork, rwork, info)

Original interface for CGESVD See also: mfi_gesvd, f77_gesvd.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	jobu
character(len=1),	intent(in)	::	jobvt
integer,	intent(in)	::	m
integer,	intent(in)	::	n
complex(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL32),	intent(out)	::	s(*)
complex(kind=REAL32),	intent(out)	::	u(ldu,*)
integer,	intent(in)	::	ldu
complex(kind=REAL32),	intent(out)	::	vt(ldvt,*)
integer,	intent(in)	::	ldvt
complex(kind=REAL32),	intent(inout)	::	work(*)
integer,	intent(in)	::	lwork
real(kind=REAL32),	intent(in)	::	rwork(*)
integer,	intent(out)	::	info

public pure subroutine zgesvd(jobu, jobvt, m, n, a, lda, s, u, ldu, vt, ldvt, work, lwork, rwork, info)

Original interface for ZGESVD See also: mfi_gesvd, f77_gesvd.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	jobu
character(len=1),	intent(in)	::	jobvt
integer,	intent(in)	::	m
integer,	intent(in)	::	n
complex(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL64),	intent(out)	::	s(*)
complex(kind=REAL64),	intent(out)	::	u(ldu,*)
integer,	intent(in)	::	ldu
complex(kind=REAL64),	intent(out)	::	vt(ldvt,*)
integer,	intent(in)	::	ldvt
complex(kind=REAL64),	intent(inout)	::	work(*)
integer,	intent(in)	::	lwork
real(kind=REAL64),	intent(in)	::	rwork(*)
integer,	intent(out)	::	info

public interface f77_potrf

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

public pure subroutine spotrf(uplo, n, a, lda, info)

Original interface for SPOTRF See also: mfi_potrf, f77_potrf.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	uplo
integer,	intent(in)	::	n
real(kind=REAL32),	intent(in)	::	a(lda,*)
integer,	intent(in)	::	lda
integer,	intent(out)	::	info

public pure subroutine dpotrf(uplo, n, a, lda, info)

Original interface for DPOTRF See also: mfi_potrf, f77_potrf.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	uplo
integer,	intent(in)	::	n
real(kind=REAL64),	intent(in)	::	a(lda,*)
integer,	intent(in)	::	lda
integer,	intent(out)	::	info

public pure subroutine cpotrf(uplo, n, a, lda, info)

Original interface for CPOTRF See also: mfi_potrf, f77_potrf.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	uplo
integer,	intent(in)	::	n
complex(kind=REAL32),	intent(in)	::	a(lda,*)
integer,	intent(in)	::	lda
integer,	intent(out)	::	info

public pure subroutine zpotrf(uplo, n, a, lda, info)

Original interface for ZPOTRF See also: mfi_potrf, f77_potrf.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	uplo
integer,	intent(in)	::	n
complex(kind=REAL64),	intent(in)	::	a(lda,*)
integer,	intent(in)	::	lda
integer,	intent(out)	::	info

public interface f77_potri

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

public pure subroutine spotri(uplo, n, a, lda, info)

Original interface for SPOTRI See also: mfi_potri, f77_potri.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	uplo
integer,	intent(in)	::	n
real(kind=REAL32),	intent(in)	::	a(lda,*)
integer,	intent(in)	::	lda
integer,	intent(out)	::	info

public pure subroutine dpotri(uplo, n, a, lda, info)

Original interface for DPOTRI See also: mfi_potri, f77_potri.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	uplo
integer,	intent(in)	::	n
real(kind=REAL64),	intent(in)	::	a(lda,*)
integer,	intent(in)	::	lda
integer,	intent(out)	::	info

public pure subroutine cpotri(uplo, n, a, lda, info)

Original interface for CPOTRI See also: mfi_potri, f77_potri.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	uplo
integer,	intent(in)	::	n
complex(kind=REAL32),	intent(in)	::	a(lda,*)
integer,	intent(in)	::	lda
integer,	intent(out)	::	info

public pure subroutine zpotri(uplo, n, a, lda, info)

Original interface for ZPOTRI See also: mfi_potri, f77_potri.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	uplo
integer,	intent(in)	::	n
complex(kind=REAL64),	intent(in)	::	a(lda,*)
integer,	intent(in)	::	lda
integer,	intent(out)	::	info

public interface f77_potrs

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

public pure subroutine spotrs(uplo, n, nrhs, a, lda, b, ldb, info)

Original interface for SPOTRS See also: mfi_potrs, f77_potrs.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	uplo
integer,	intent(in)	::	n
integer,	intent(in)	::	nrhs
real(kind=REAL32),	intent(in)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL32),	intent(in)	::	b(ldb,*)
integer,	intent(in)	::	ldb
integer,	intent(out)	::	info

public pure subroutine dpotrs(uplo, n, nrhs, a, lda, b, ldb, info)

Original interface for DPOTRS See also: mfi_potrs, f77_potrs.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	uplo
integer,	intent(in)	::	n
integer,	intent(in)	::	nrhs
real(kind=REAL64),	intent(in)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL64),	intent(in)	::	b(ldb,*)
integer,	intent(in)	::	ldb
integer,	intent(out)	::	info

public pure subroutine cpotrs(uplo, n, nrhs, a, lda, b, ldb, info)

Original interface for CPOTRS See also: mfi_potrs, f77_potrs.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	uplo
integer,	intent(in)	::	n
integer,	intent(in)	::	nrhs
complex(kind=REAL32),	intent(in)	::	a(lda,*)
integer,	intent(in)	::	lda
complex(kind=REAL32),	intent(in)	::	b(ldb,*)
integer,	intent(in)	::	ldb
integer,	intent(out)	::	info

public pure subroutine zpotrs(uplo, n, nrhs, a, lda, b, ldb, info)

Original interface for ZPOTRS See also: mfi_potrs, f77_potrs.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	uplo
integer,	intent(in)	::	n
integer,	intent(in)	::	nrhs
complex(kind=REAL64),	intent(in)	::	a(lda,*)
integer,	intent(in)	::	lda
complex(kind=REAL64),	intent(in)	::	b(ldb,*)
integer,	intent(in)	::	ldb
integer,	intent(out)	::	info

public interface f77_pocon

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

public pure subroutine spocon(uplo, n, a, lda, anorm, rcond, work, iwork, info)

Original interface for SPOCON See also: mfi_pocon, f77_pocon. spocon estimates the reciprocal of the condition number (in the 1-norm) of a real(REAL32) Hermitian positive definite matrix using the Cholesky factorization $A = U^\dagger U$ or ( A = LL^\dagger |) computed by SPOTRF. An estimate is obtained for norm(inv(A)), and the reciprocal of the condition number is computed as RCOND = 1 / (ANORM * norm(inv(A))).

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	uplo
integer,	intent(in)	::	n
real(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL32),	intent(in)	::	anorm
real(kind=REAL32),	intent(out)	::	rcond
real(kind=REAL32),	intent(inout)	::	work(*)
integer,	intent(inout)	::	iwork(*)
integer,	intent(out)	::	info

public pure subroutine dpocon(uplo, n, a, lda, anorm, rcond, work, iwork, info)

Original interface for DPOCON See also: mfi_pocon, f77_pocon. dpocon estimates the reciprocal of the condition number (in the 1-norm) of a real(REAL64) Hermitian positive definite matrix using the Cholesky factorization $A = U^\dagger U$ or ( A = LL^\dagger |) computed by DPOTRF. An estimate is obtained for norm(inv(A)), and the reciprocal of the condition number is computed as RCOND = 1 / (ANORM * norm(inv(A))).

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	uplo
integer,	intent(in)	::	n
real(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL64),	intent(in)	::	anorm
real(kind=REAL64),	intent(out)	::	rcond
real(kind=REAL64),	intent(inout)	::	work(*)
integer,	intent(inout)	::	iwork(*)
integer,	intent(out)	::	info

public pure subroutine cpocon(uplo, n, a, lda, anorm, rcond, work, rwork, info)

Original interface for CPOCON See also: mfi_pocon, f77_pocon. cpocon estimates the reciprocal of the condition number (in the 1-norm) of a complex(REAL32) Hermitian positive definite matrix using the Cholesky factorization $A = U^\dagger U$ or ( A = LL^\dagger |) computed by CPOTRF. An estimate is obtained for norm(inv(A)), and the reciprocal of the condition number is computed as RCOND = 1 / (ANORM * norm(inv(A))).

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	uplo
integer,	intent(in)	::	n
complex(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL32),	intent(in)	::	anorm
real(kind=REAL32),	intent(out)	::	rcond
complex(kind=REAL32),	intent(inout)	::	work(*)
real(kind=REAL32),	intent(inout)	::	rwork(*)
integer,	intent(out)	::	info

public pure subroutine zpocon(uplo, n, a, lda, anorm, rcond, work, rwork, info)

Original interface for ZPOCON See also: mfi_pocon, f77_pocon. zpocon estimates the reciprocal of the condition number (in the 1-norm) of a complex(REAL64) Hermitian positive definite matrix using the Cholesky factorization $A = U^\dagger U$ or ( A = LL^\dagger |) computed by ZPOTRF. An estimate is obtained for norm(inv(A)), and the reciprocal of the condition number is computed as RCOND = 1 / (ANORM * norm(inv(A))).

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	uplo
integer,	intent(in)	::	n
complex(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL64),	intent(in)	::	anorm
real(kind=REAL64),	intent(out)	::	rcond
complex(kind=REAL64),	intent(inout)	::	work(*)
real(kind=REAL64),	intent(inout)	::	rwork(*)
integer,	intent(out)	::	info

public interface f77_heevx

Generic old style interface for HEEVX. Supports c, z. See also: mfi_heevx, cheevx, zheevx.

public pure subroutine cheevx(jobz, range, uplo, n, a, lda, vl, vu, il, iu, abstol, m, w, z, ldz, work, lwork, rwork, lrwork, iwork, liwork, ifail, info)

Original interface for CHEEVX See also: mfi_heevx, f77_heevx.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	jobz
character(len=1),	intent(in)	::	range
character(len=1),	intent(in)	::	uplo
integer,	intent(in)	::	n
complex(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL32),	intent(in)	::	vl
real(kind=REAL32),	intent(in)	::	vu
integer,	intent(in)	::	il
integer,	intent(in)	::	iu
real(kind=REAL32),	intent(in)	::	abstol
integer,	intent(in)	::	m
real(kind=REAL32),	intent(out)	::	w(*)
complex(kind=REAL32),	intent(inout)	::	z(ldz,*)
integer,	intent(in)	::	ldz
complex(kind=REAL32),	intent(inout)	::	work(*)
integer,	intent(in)	::	lwork
real(kind=REAL32),	intent(inout)	::	rwork(*)
integer,	intent(in)	::	lrwork
integer,	intent(inout)	::	iwork(*)
integer,	intent(in)	::	liwork
integer,	intent(in)	::	ifail
integer,	intent(out)	::	info

public pure subroutine zheevx(jobz, range, uplo, n, a, lda, vl, vu, il, iu, abstol, m, w, z, ldz, work, lwork, rwork, lrwork, iwork, liwork, ifail, info)

Original interface for ZHEEVX See also: mfi_heevx, f77_heevx.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	jobz
character(len=1),	intent(in)	::	range
character(len=1),	intent(in)	::	uplo
integer,	intent(in)	::	n
complex(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL64),	intent(in)	::	vl
real(kind=REAL64),	intent(in)	::	vu
integer,	intent(in)	::	il
integer,	intent(in)	::	iu
real(kind=REAL64),	intent(in)	::	abstol
integer,	intent(in)	::	m
real(kind=REAL64),	intent(out)	::	w(*)
complex(kind=REAL64),	intent(inout)	::	z(ldz,*)
integer,	intent(in)	::	ldz
complex(kind=REAL64),	intent(inout)	::	work(*)
integer,	intent(in)	::	lwork
real(kind=REAL64),	intent(inout)	::	rwork(*)
integer,	intent(in)	::	lrwork
integer,	intent(inout)	::	iwork(*)
integer,	intent(in)	::	liwork
integer,	intent(in)	::	ifail
integer,	intent(out)	::	info

public interface f77_heevr

Generic old style interface for HEEVR. Supports c, z. See also: mfi_heevr, cheevr, zheevr.

public pure subroutine cheevr(jobz, range, uplo, n, a, lda, vl, vu, il, iu, abstol, m, w, z, ldz, isuppz, work, lwork, rwork, lrwork, iwork, liwork, info)

Original interface for CHEEVR See also: mfi_heevr, f77_heevr.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	jobz
character(len=1),	intent(in)	::	range
character(len=1),	intent(in)	::	uplo
integer,	intent(in)	::	n
complex(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL32),	intent(in)	::	vl
real(kind=REAL32),	intent(in)	::	vu
integer,	intent(in)	::	il
integer,	intent(in)	::	iu
real(kind=REAL32),	intent(in)	::	abstol
integer,	intent(in)	::	m
real(kind=REAL32),	intent(out)	::	w(*)
complex(kind=REAL32),	intent(inout)	::	z(ldz,*)
integer,	intent(in)	::	ldz
integer,	intent(in)	::	isuppz(*)
complex(kind=REAL32),	intent(inout)	::	work(*)
integer,	intent(in)	::	lwork
real(kind=REAL32),	intent(inout)	::	rwork(*)
integer,	intent(in)	::	lrwork
integer,	intent(inout)	::	iwork(*)
integer,	intent(in)	::	liwork
integer,	intent(out)	::	info

public pure subroutine zheevr(jobz, range, uplo, n, a, lda, vl, vu, il, iu, abstol, m, w, z, ldz, isuppz, work, lwork, rwork, lrwork, iwork, liwork, info)

Original interface for ZHEEVR See also: mfi_heevr, f77_heevr.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	jobz
character(len=1),	intent(in)	::	range
character(len=1),	intent(in)	::	uplo
integer,	intent(in)	::	n
complex(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL64),	intent(in)	::	vl
real(kind=REAL64),	intent(in)	::	vu
integer,	intent(in)	::	il
integer,	intent(in)	::	iu
real(kind=REAL64),	intent(in)	::	abstol
integer,	intent(in)	::	m
real(kind=REAL64),	intent(out)	::	w(*)
complex(kind=REAL64),	intent(inout)	::	z(ldz,*)
integer,	intent(in)	::	ldz
integer,	intent(in)	::	isuppz(*)
complex(kind=REAL64),	intent(inout)	::	work(*)
integer,	intent(in)	::	lwork
real(kind=REAL64),	intent(inout)	::	rwork(*)
integer,	intent(in)	::	lrwork
integer,	intent(inout)	::	iwork(*)
integer,	intent(in)	::	liwork
integer,	intent(out)	::	info

public interface f77_gels

Generic old style interface for GELS. Supports s, d, c, z. See also: mfi_gels, sgels, dgels, cgels, zgels.

public pure subroutine sgels(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info)

Original interface for SGELS See also: mfi_gels, f77_gels. SGELS solves overdetermined or underdetermined systems for GE matrices

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	trans
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	nrhs
real(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL32),	intent(inout)	::	b(ldb,*)
integer,	intent(in)	::	ldb
real(kind=REAL32),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public pure subroutine dgels(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info)

Original interface for DGELS See also: mfi_gels, f77_gels. DGELS solves overdetermined or underdetermined systems for GE matrices

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	trans
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	nrhs
real(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL64),	intent(inout)	::	b(ldb,*)
integer,	intent(in)	::	ldb
real(kind=REAL64),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public pure subroutine cgels(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info)

Original interface for CGELS See also: mfi_gels, f77_gels. CGELS solves overdetermined or underdetermined systems for GE matrices

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	trans
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	nrhs
complex(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
complex(kind=REAL32),	intent(inout)	::	b(ldb,*)
integer,	intent(in)	::	ldb
complex(kind=REAL32),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public pure subroutine zgels(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info)

Original interface for ZGELS See also: mfi_gels, f77_gels. ZGELS solves overdetermined or underdetermined systems for GE matrices

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	trans
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	nrhs
complex(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
complex(kind=REAL64),	intent(inout)	::	b(ldb,*)
integer,	intent(in)	::	ldb
complex(kind=REAL64),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public interface f77_gelst

Generic old style interface for GELST. Supports s, d, c, z. See also: mfi_gelst, sgelst, dgelst, cgelst, zgelst.

public pure subroutine sgelst(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info)

Original interface for SGELST See also: mfi_gelst, f77_gelst. SGELST solves overdetermined or underdetermined systems for GE matrices using QR or LQ factorization with compact WY representation of Q.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	trans
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	nrhs
real(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL32),	intent(inout)	::	b(ldb,*)
integer,	intent(in)	::	ldb
real(kind=REAL32),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public pure subroutine dgelst(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info)

Original interface for DGELST See also: mfi_gelst, f77_gelst. DGELST solves overdetermined or underdetermined systems for GE matrices using QR or LQ factorization with compact WY representation of Q.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	trans
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	nrhs
real(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL64),	intent(inout)	::	b(ldb,*)
integer,	intent(in)	::	ldb
real(kind=REAL64),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public pure subroutine cgelst(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info)

Original interface for CGELST See also: mfi_gelst, f77_gelst. CGELST solves overdetermined or underdetermined systems for GE matrices using QR or LQ factorization with compact WY representation of Q.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	trans
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	nrhs
complex(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
complex(kind=REAL32),	intent(inout)	::	b(ldb,*)
integer,	intent(in)	::	ldb
complex(kind=REAL32),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public pure subroutine zgelst(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info)

Original interface for ZGELST See also: mfi_gelst, f77_gelst. ZGELST solves overdetermined or underdetermined systems for GE matrices using QR or LQ factorization with compact WY representation of Q.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	trans
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	nrhs
complex(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
complex(kind=REAL64),	intent(inout)	::	b(ldb,*)
integer,	intent(in)	::	ldb
complex(kind=REAL64),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public interface f77_getsls

Generic old style interface for GETSLS. Supports s, d, c, z. See also: mfi_getsls, sgetsls, dgetsls, cgetsls, zgetsls.

public pure subroutine sgetsls(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info)

Original interface for SGETSLS See also: mfi_getsls, f77_getsls. SGETSLS solves overdetermined or underdetermined systems for GE matrices

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	trans
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	nrhs
real(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL32),	intent(inout)	::	b(ldb,*)
integer,	intent(in)	::	ldb
real(kind=REAL32),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public pure subroutine dgetsls(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info)

Original interface for DGETSLS See also: mfi_getsls, f77_getsls. DGETSLS solves overdetermined or underdetermined systems for GE matrices

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	trans
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	nrhs
real(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL64),	intent(inout)	::	b(ldb,*)
integer,	intent(in)	::	ldb
real(kind=REAL64),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public pure subroutine cgetsls(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info)

Original interface for CGETSLS See also: mfi_getsls, f77_getsls. CGETSLS solves overdetermined or underdetermined systems for GE matrices

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	trans
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	nrhs
complex(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
complex(kind=REAL32),	intent(inout)	::	b(ldb,*)
integer,	intent(in)	::	ldb
complex(kind=REAL32),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public pure subroutine zgetsls(trans, m, n, nrhs, a, lda, b, ldb, work, lwork, info)

Original interface for ZGETSLS See also: mfi_getsls, f77_getsls. ZGETSLS solves overdetermined or underdetermined systems for GE matrices

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	trans
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	nrhs
complex(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
complex(kind=REAL64),	intent(inout)	::	b(ldb,*)
integer,	intent(in)	::	ldb
complex(kind=REAL64),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public interface f77_gelsd

Generic old style interface for GELSD. Supports s, d, c, z. See also: mfi_gelsd, sgelsd, dgelsd, cgelsd, zgelsd.

public pure subroutine sgelsd(m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, iwork, info)

Original interface for SGELSD See also: mfi_gelsd, f77_gelsd. SGELSD computes the minimum-norm solution to a linear least squares problem for GE matrices

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	nrhs
real(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL32),	intent(inout)	::	b(ldb,*)
integer,	intent(in)	::	ldb
real(kind=REAL32),	intent(out)	::	s(*)
real(kind=REAL32),	intent(in)	::	rcond
integer,	intent(out)	::	rank
real(kind=REAL32),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	iwork(*)
integer,	intent(out)	::	info

public pure subroutine dgelsd(m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, iwork, info)

Original interface for DGELSD See also: mfi_gelsd, f77_gelsd. DGELSD computes the minimum-norm solution to a linear least squares problem for GE matrices

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	nrhs
real(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL64),	intent(inout)	::	b(ldb,*)
integer,	intent(in)	::	ldb
real(kind=REAL64),	intent(out)	::	s(*)
real(kind=REAL64),	intent(in)	::	rcond
integer,	intent(out)	::	rank
real(kind=REAL64),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	iwork(*)
integer,	intent(out)	::	info

public pure subroutine cgelsd(m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, iwork, info)

Original interface for CGELSD See also: mfi_gelsd, f77_gelsd. CGELSD computes the minimum-norm solution to a linear least squares problem for GE matrices

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	nrhs
complex(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
complex(kind=REAL32),	intent(inout)	::	b(ldb,*)
integer,	intent(in)	::	ldb
complex(kind=REAL32),	intent(out)	::	s(*)
complex(kind=REAL32),	intent(in)	::	rcond
integer,	intent(out)	::	rank
complex(kind=REAL32),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	iwork(*)
integer,	intent(out)	::	info

public pure subroutine zgelsd(m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, iwork, info)

Original interface for ZGELSD See also: mfi_gelsd, f77_gelsd. ZGELSD computes the minimum-norm solution to a linear least squares problem for GE matrices

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	nrhs
complex(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
complex(kind=REAL64),	intent(inout)	::	b(ldb,*)
integer,	intent(in)	::	ldb
complex(kind=REAL64),	intent(out)	::	s(*)
complex(kind=REAL64),	intent(in)	::	rcond
integer,	intent(out)	::	rank
complex(kind=REAL64),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	iwork(*)
integer,	intent(out)	::	info

public interface f77_gelss

Generic old style interface for GELSS. Supports s, d, c, z. See also: mfi_gelss, sgelss, dgelss, cgelss, zgelss.

public pure subroutine sgelss(m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, info)

Original interface for SGELSS See also: mfi_gelss, f77_gelss. SGELSS solves overdetermined or underdetermined systems for GE matrices

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	nrhs
real(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL32),	intent(inout)	::	b(ldb,*)
integer,	intent(in)	::	ldb
real(kind=REAL32),	intent(out)	::	s(*)
real(kind=REAL32),	intent(in)	::	rcond
integer,	intent(out)	::	rank
real(kind=REAL32),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public pure subroutine dgelss(m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, info)

Original interface for DGELSS See also: mfi_gelss, f77_gelss. DGELSS solves overdetermined or underdetermined systems for GE matrices

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	nrhs
real(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL64),	intent(inout)	::	b(ldb,*)
integer,	intent(in)	::	ldb
real(kind=REAL64),	intent(out)	::	s(*)
real(kind=REAL64),	intent(in)	::	rcond
integer,	intent(out)	::	rank
real(kind=REAL64),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public pure subroutine cgelss(m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, info)

Original interface for CGELSS See also: mfi_gelss, f77_gelss. CGELSS solves overdetermined or underdetermined systems for GE matrices

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	nrhs
complex(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
complex(kind=REAL32),	intent(inout)	::	b(ldb,*)
integer,	intent(in)	::	ldb
complex(kind=REAL32),	intent(out)	::	s(*)
complex(kind=REAL32),	intent(in)	::	rcond
integer,	intent(out)	::	rank
complex(kind=REAL32),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public pure subroutine zgelss(m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, info)

Original interface for ZGELSS See also: mfi_gelss, f77_gelss. ZGELSS solves overdetermined or underdetermined systems for GE matrices

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	nrhs
complex(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
complex(kind=REAL64),	intent(inout)	::	b(ldb,*)
integer,	intent(in)	::	ldb
complex(kind=REAL64),	intent(out)	::	s(*)
complex(kind=REAL64),	intent(in)	::	rcond
integer,	intent(out)	::	rank
complex(kind=REAL64),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public interface f77_gelsy

Generic old style interface for GELSY. Supports s, d, c, z. See also: mfi_gelsy, sgelsy, dgelsy, cgelsy, zgelsy.

public pure subroutine sgelsy(m, n, nrhs, a, lda, b, ldb, jpvt, rcond, rank, work, lwork, info)

Original interface for SGELSY See also: mfi_gelsy, f77_gelsy. SGELSY solves overdetermined or underdetermined systems for GE matrices

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	nrhs
real(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL32),	intent(inout)	::	b(ldb,*)
integer,	intent(in)	::	ldb
integer,	intent(inout)	::	jpvt(*)
real(kind=REAL32),	intent(in)	::	rcond
integer,	intent(out)	::	rank
real(kind=REAL32),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public pure subroutine dgelsy(m, n, nrhs, a, lda, b, ldb, jpvt, rcond, rank, work, lwork, info)

Original interface for DGELSY See also: mfi_gelsy, f77_gelsy. DGELSY solves overdetermined or underdetermined systems for GE matrices

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	nrhs
real(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL64),	intent(inout)	::	b(ldb,*)
integer,	intent(in)	::	ldb
integer,	intent(inout)	::	jpvt(*)
real(kind=REAL64),	intent(in)	::	rcond
integer,	intent(out)	::	rank
real(kind=REAL64),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public pure subroutine cgelsy(m, n, nrhs, a, lda, b, ldb, jpvt, rcond, rank, work, lwork, info)

Original interface for CGELSY See also: mfi_gelsy, f77_gelsy. CGELSY solves overdetermined or underdetermined systems for GE matrices

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	nrhs
complex(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
complex(kind=REAL32),	intent(inout)	::	b(ldb,*)
integer,	intent(in)	::	ldb
integer,	intent(inout)	::	jpvt(*)
complex(kind=REAL32),	intent(in)	::	rcond
integer,	intent(out)	::	rank
complex(kind=REAL32),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public pure subroutine zgelsy(m, n, nrhs, a, lda, b, ldb, jpvt, rcond, rank, work, lwork, info)

Original interface for ZGELSY See also: mfi_gelsy, f77_gelsy. ZGELSY solves overdetermined or underdetermined systems for GE matrices

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	nrhs
complex(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
complex(kind=REAL64),	intent(inout)	::	b(ldb,*)
integer,	intent(in)	::	ldb
integer,	intent(inout)	::	jpvt(*)
complex(kind=REAL64),	intent(in)	::	rcond
integer,	intent(out)	::	rank
complex(kind=REAL64),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public interface f77_gglse

Generic old style interface for GGLSE. Supports s, d, c, z. See also: mfi_gglse, sgglse, dgglse, cgglse, zgglse.

public pure subroutine sgglse(m, n, p, a, lda, b, ldb, c, d, x, work, lwork, info)

Original interface for SGGLSE See also: mfi_gglse, f77_gglse.

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	p
real(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL32),	intent(inout)	::	b(ldb,*)
integer,	intent(in)	::	ldb
real(kind=REAL32),	intent(inout)	::	c(*)
real(kind=REAL32),	intent(inout)	::	d(*)
real(kind=REAL32),	intent(out)	::	x(*)
real(kind=REAL32),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public pure subroutine dgglse(m, n, p, a, lda, b, ldb, c, d, x, work, lwork, info)

Original interface for DGGLSE See also: mfi_gglse, f77_gglse.

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	p
real(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL64),	intent(inout)	::	b(ldb,*)
integer,	intent(in)	::	ldb
real(kind=REAL64),	intent(inout)	::	c(*)
real(kind=REAL64),	intent(inout)	::	d(*)
real(kind=REAL64),	intent(out)	::	x(*)
real(kind=REAL64),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public pure subroutine cgglse(m, n, p, a, lda, b, ldb, c, d, x, work, lwork, info)

Original interface for CGGLSE See also: mfi_gglse, f77_gglse.

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	p
complex(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
complex(kind=REAL32),	intent(inout)	::	b(ldb,*)
integer,	intent(in)	::	ldb
complex(kind=REAL32),	intent(inout)	::	c(*)
complex(kind=REAL32),	intent(inout)	::	d(*)
complex(kind=REAL32),	intent(out)	::	x(*)
complex(kind=REAL32),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public pure subroutine zgglse(m, n, p, a, lda, b, ldb, c, d, x, work, lwork, info)

Original interface for ZGGLSE See also: mfi_gglse, f77_gglse.

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	p
complex(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
complex(kind=REAL64),	intent(inout)	::	b(ldb,*)
integer,	intent(in)	::	ldb
complex(kind=REAL64),	intent(inout)	::	c(*)
complex(kind=REAL64),	intent(inout)	::	d(*)
complex(kind=REAL64),	intent(out)	::	x(*)
complex(kind=REAL64),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public interface f77_gglsm

Generic old style interface for GGLSM. Supports s, d, c, z. See also: mfi_gglsm, sgglsm, dgglsm, cgglsm, zgglsm.

public pure subroutine sgglsm(n, m, p, a, lda, b, ldb, d, x, y, work, lwork, info)

Original interface for SGGLSM See also: mfi_gglsm, f77_gglsm.

Arguments

Type	Intent		Name
integer,	intent(in)	::	n
integer,	intent(in)	::	m
integer,	intent(in)	::	p
real(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL32),	intent(inout)	::	b(ldb,*)
integer,	intent(in)	::	ldb
real(kind=REAL32),	intent(inout)	::	d(*)
real(kind=REAL32),	intent(out)	::	x(*)
real(kind=REAL32),	intent(out)	::	y(*)
real(kind=REAL32),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public pure subroutine dgglsm(n, m, p, a, lda, b, ldb, d, x, y, work, lwork, info)

Original interface for DGGLSM See also: mfi_gglsm, f77_gglsm.

Arguments

Type	Intent		Name
integer,	intent(in)	::	n
integer,	intent(in)	::	m
integer,	intent(in)	::	p
real(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL64),	intent(inout)	::	b(ldb,*)
integer,	intent(in)	::	ldb
real(kind=REAL64),	intent(inout)	::	d(*)
real(kind=REAL64),	intent(out)	::	x(*)
real(kind=REAL64),	intent(out)	::	y(*)
real(kind=REAL64),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public pure subroutine cgglsm(n, m, p, a, lda, b, ldb, d, x, y, work, lwork, info)

Original interface for CGGLSM See also: mfi_gglsm, f77_gglsm.

Arguments

Type	Intent		Name
integer,	intent(in)	::	n
integer,	intent(in)	::	m
integer,	intent(in)	::	p
complex(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
complex(kind=REAL32),	intent(inout)	::	b(ldb,*)
integer,	intent(in)	::	ldb
complex(kind=REAL32),	intent(inout)	::	d(*)
complex(kind=REAL32),	intent(out)	::	x(*)
complex(kind=REAL32),	intent(out)	::	y(*)
complex(kind=REAL32),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public pure subroutine zgglsm(n, m, p, a, lda, b, ldb, d, x, y, work, lwork, info)

Original interface for ZGGLSM See also: mfi_gglsm, f77_gglsm.

Arguments

Type	Intent		Name
integer,	intent(in)	::	n
integer,	intent(in)	::	m
integer,	intent(in)	::	p
complex(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
complex(kind=REAL64),	intent(inout)	::	b(ldb,*)
integer,	intent(in)	::	ldb
complex(kind=REAL64),	intent(inout)	::	d(*)
complex(kind=REAL64),	intent(out)	::	x(*)
complex(kind=REAL64),	intent(out)	::	y(*)
complex(kind=REAL64),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public interface f77_org2r

Generic old style interface for ORG2R. Supports s, d. See also: mfi_org2r, sorg2r, dorg2r.

public pure subroutine sorg2r(m, n, k, a, lda, tau, work, info)

Original interface for SORG2R See also: mfi_org2r, f77_org2r. This routine generates an $M \times N$ real(REAL32) matrix $Q$ with orthonormal columns, which is defined as the first $N$ columns of a product of $K$ elementary reflectors of order $M$ . $Q = H(1) H(2) . . . H(k)$ as returned by sgeqrf.

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	k
real(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL32),	intent(in)	::	tau(*)
real(kind=REAL32),	intent(out)	::	work(*)
integer,	intent(out)	::	info

public pure subroutine dorg2r(m, n, k, a, lda, tau, work, info)

Original interface for DORG2R See also: mfi_org2r, f77_org2r. This routine generates an $M \times N$ real(REAL64) matrix $Q$ with orthonormal columns, which is defined as the first $N$ columns of a product of $K$ elementary reflectors of order $M$ . $Q = H(1) H(2) . . . H(k)$ as returned by dgeqrf.

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	k
real(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL64),	intent(in)	::	tau(*)
real(kind=REAL64),	intent(out)	::	work(*)
integer,	intent(out)	::	info

public interface f77_orgr2

Generic old style interface for ORGR2. Supports s, d. See also: mfi_orgr2, sorgr2, dorgr2.

public pure subroutine sorgr2(m, n, k, a, lda, tau, work, info)

Original interface for SORGR2 See also: mfi_orgr2, f77_orgr2. This routine generates an $M \times N$ real(REAL32) matrix $Q$ with orthonormal rows, which is defined as the last $M$ rows of a product of $K$ elementary reflectors of order $N$ . $Q = H(1)^\dagger H(2)^\dagger \cdots H(k)^\dagger$ as returned by sgerqf.

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	k
real(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL32),	intent(in)	::	tau(*)
real(kind=REAL32),	intent(out)	::	work(*)
integer,	intent(out)	::	info

public pure subroutine dorgr2(m, n, k, a, lda, tau, work, info)

Original interface for DORGR2 See also: mfi_orgr2, f77_orgr2. This routine generates an $M \times N$ real(REAL64) matrix $Q$ with orthonormal rows, which is defined as the last $M$ rows of a product of $K$ elementary reflectors of order $N$ . $Q = H(1)^\dagger H(2)^\dagger \cdots H(k)^\dagger$ as returned by dgerqf.

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	k
real(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL64),	intent(in)	::	tau(*)
real(kind=REAL64),	intent(out)	::	work(*)
integer,	intent(out)	::	info

public interface f77_orm2r

Generic old style interface for ORM2R. Supports s, d. See also: mfi_orm2r, sorm2r, dorm2r.

public pure subroutine sorm2r(side, trans, m, n, k, a, lda, tau, c, ldc, work, info)

Original interface for SORM2R See also: mfi_orm2r, f77_orm2r. This routine overwrites the general complex $M \times N$ matrix $C$ with

                 SIDE = 'L'     SIDE = 'R'
 TRANS = 'N':      Q * C          C * Q
 TRANS = 'C':      Q**H * C       C * Q**H

where Q is a complex unitary matrix defined as the product of k elementary reflectors

$Q = H(1) H(2) \cdots H(k)$ as returned by sgeqrf. $Q$ is of order $M$ if SIDE = 'L' and of order $N$ if SIDE = 'R'.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	side
character(len=1),	intent(in)	::	trans
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	k
real(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL32),	intent(in)	::	tau(*)
real(kind=REAL32),	intent(inout)	::	c(ldc,*)
integer,	intent(in)	::	ldc
real(kind=REAL32),	intent(out)	::	work(*)
integer,	intent(out)	::	info

public pure subroutine dorm2r(side, trans, m, n, k, a, lda, tau, c, ldc, work, info)

Original interface for DORM2R See also: mfi_orm2r, f77_orm2r. This routine overwrites the general complex $M \times N$ matrix $C$ with

                 SIDE = 'L'     SIDE = 'R'
 TRANS = 'N':      Q * C          C * Q
 TRANS = 'C':      Q**H * C       C * Q**H

where Q is a complex unitary matrix defined as the product of k elementary reflectors

$Q = H(1) H(2) \cdots H(k)$ as returned by dgeqrf. $Q$ is of order $M$ if SIDE = 'L' and of order $N$ if SIDE = 'R'.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	side
character(len=1),	intent(in)	::	trans
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	k
real(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL64),	intent(in)	::	tau(*)
real(kind=REAL64),	intent(inout)	::	c(ldc,*)
integer,	intent(in)	::	ldc
real(kind=REAL64),	intent(out)	::	work(*)
integer,	intent(out)	::	info

public interface f77_ormr2

Generic old style interface for ORMR2. Supports s, d. See also: mfi_ormr2, sormr2, dormr2.

public pure subroutine sormr2(side, trans, m, n, k, a, lda, tau, c, ldc, work, info)

Original interface for SORMR2 See also: mfi_ormr2, f77_ormr2. This routine overwrites the general complex $M \times N$ matrix $C$ with

                 SIDE = 'L'     SIDE = 'R'
 TRANS = 'N':      Q * C          C * Q
 TRANS = 'C':      Q**H * C       C * Q**H

where Q is a complex unitary matrix defined as the product of k elementary reflectors

$Q = H(1)^\dagger H(2)^\dagger \cdots H(k)^\dagger$ as returned by sgerqf. $Q$ is of order $M$ if SIDE = 'L' and of order $N$ if SIDE = 'R'.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	side
character(len=1),	intent(in)	::	trans
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	k
real(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL32),	intent(in)	::	tau(*)
real(kind=REAL32),	intent(inout)	::	c(ldc,*)
integer,	intent(in)	::	ldc
real(kind=REAL32),	intent(out)	::	work(*)
integer,	intent(out)	::	info

public pure subroutine dormr2(side, trans, m, n, k, a, lda, tau, c, ldc, work, info)

Original interface for DORMR2 See also: mfi_ormr2, f77_ormr2. This routine overwrites the general complex $M \times N$ matrix $C$ with

                 SIDE = 'L'     SIDE = 'R'
 TRANS = 'N':      Q * C          C * Q
 TRANS = 'C':      Q**H * C       C * Q**H

where Q is a complex unitary matrix defined as the product of k elementary reflectors

$Q = H(1)^\dagger H(2)^\dagger \cdots H(k)^\dagger$ as returned by dgerqf. $Q$ is of order $M$ if SIDE = 'L' and of order $N$ if SIDE = 'R'.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	side
character(len=1),	intent(in)	::	trans
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	k
real(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL64),	intent(in)	::	tau(*)
real(kind=REAL64),	intent(inout)	::	c(ldc,*)
integer,	intent(in)	::	ldc
real(kind=REAL64),	intent(out)	::	work(*)
integer,	intent(out)	::	info

public interface f77_ormqr

Generic old style interface for ORMQR. Supports s, d. See also: mfi_ormqr, sormqr, dormqr.

public pure subroutine sormqr(side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork, info)

Original interface for SORMQR See also: mfi_ormqr, f77_ormqr. This routine overwrites the general complex $M \times N$ matrix $C$ with

                 SIDE = 'L'     SIDE = 'R'
 TRANS = 'N':      Q * C          C * Q
 TRANS = 'C':      Q**H * C       C * Q**H

where Q is a complex unitary matrix defined as the product of k elementary reflectors

$Q = H(1) H(2) \cdots H(k)$ as returned by sgeqrf. $Q$ is of order $M$ if SIDE = 'L' and of order $N$ if SIDE = 'R'.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	side
character(len=1),	intent(in)	::	trans
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	k
real(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL32),	intent(in)	::	tau(*)
real(kind=REAL32),	intent(inout)	::	c(ldc,*)
integer,	intent(in)	::	ldc
real(kind=REAL32),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public pure subroutine dormqr(side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork, info)

Original interface for DORMQR See also: mfi_ormqr, f77_ormqr. This routine overwrites the general complex $M \times N$ matrix $C$ with

                 SIDE = 'L'     SIDE = 'R'
 TRANS = 'N':      Q * C          C * Q
 TRANS = 'C':      Q**H * C       C * Q**H

where Q is a complex unitary matrix defined as the product of k elementary reflectors

$Q = H(1) H(2) \cdots H(k)$ as returned by dgeqrf. $Q$ is of order $M$ if SIDE = 'L' and of order $N$ if SIDE = 'R'.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	side
character(len=1),	intent(in)	::	trans
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	k
real(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL64),	intent(in)	::	tau(*)
real(kind=REAL64),	intent(inout)	::	c(ldc,*)
integer,	intent(in)	::	ldc
real(kind=REAL64),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public interface f77_ormrq

Generic old style interface for ORMRQ. Supports s, d. See also: mfi_ormrq, sormrq, dormrq.

public pure subroutine sormrq(side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork, info)

Original interface for SORMRQ See also: mfi_ormrq, f77_ormrq. This routine overwrites the general complex $M \times N$ matrix $C$ with

                 SIDE = 'L'     SIDE = 'R'
 TRANS = 'N':      Q * C          C * Q
 TRANS = 'C':      Q**H * C       C * Q**H

where Q is a complex unitary matrix defined as the product of k elementary reflectors

$Q = H(1)^\dagger H(2)^\dagger \cdots H(k)^\dagger$ as returned by sgerqf. $Q$ is of order $M$ if SIDE = 'L' and of order $N$ if SIDE = 'R'.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	side
character(len=1),	intent(in)	::	trans
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	k
real(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL32),	intent(in)	::	tau(*)
real(kind=REAL32),	intent(inout)	::	c(ldc,*)
integer,	intent(in)	::	ldc
real(kind=REAL32),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public pure subroutine dormrq(side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork, info)

Original interface for DORMRQ See also: mfi_ormrq, f77_ormrq. This routine overwrites the general complex $M \times N$ matrix $C$ with

                 SIDE = 'L'     SIDE = 'R'
 TRANS = 'N':      Q * C          C * Q
 TRANS = 'C':      Q**H * C       C * Q**H

where Q is a complex unitary matrix defined as the product of k elementary reflectors

$Q = H(1)^\dagger H(2)^\dagger \cdots H(k)^\dagger$ as returned by dgerqf. $Q$ is of order $M$ if SIDE = 'L' and of order $N$ if SIDE = 'R'.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	side
character(len=1),	intent(in)	::	trans
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	k
real(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL64),	intent(in)	::	tau(*)
real(kind=REAL64),	intent(inout)	::	c(ldc,*)
integer,	intent(in)	::	ldc
real(kind=REAL64),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public interface f77_orgqr

Generic old style interface for ORGQR. Supports s, d. See also: mfi_orgqr, sorgqr, dorgqr.

public pure subroutine sorgqr(m, n, k, a, lda, tau, work, lwork, info)

Original interface for SORGQR See also: mfi_orgqr, f77_orgqr. This routine generates an $M \times N$ real(REAL32) matrix $Q$ with orthonormal columns, which is defined as the first $N$ columns of a product of $K$ elementary reflectors of order $M$ . $Q = H(1) H(2) . . . H(k)$ as returned by sgeqrf.

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	k
real(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL32),	intent(in)	::	tau(*)
real(kind=REAL32),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public pure subroutine dorgqr(m, n, k, a, lda, tau, work, lwork, info)

Original interface for DORGQR See also: mfi_orgqr, f77_orgqr. This routine generates an $M \times N$ real(REAL64) matrix $Q$ with orthonormal columns, which is defined as the first $N$ columns of a product of $K$ elementary reflectors of order $M$ . $Q = H(1) H(2) . . . H(k)$ as returned by dgeqrf.

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	k
real(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL64),	intent(in)	::	tau(*)
real(kind=REAL64),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public interface f77_orgrq

Generic old style interface for ORGRQ. Supports s, d. See also: mfi_orgrq, sorgrq, dorgrq.

public pure subroutine sorgrq(m, n, k, a, lda, tau, work, lwork, info)

Original interface for SORGRQ See also: mfi_orgrq, f77_orgrq. This routine generates an $M \times N$ real(REAL32) matrix $Q$ with orthonormal columns, which is defined as the first $N$ columns of a product of $K$ elementary reflectors of order $N$ . $Q = H(1)^\dagger H(2)^\dagger . . . H(k)^\dagger$ as returned by sgerqf.

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	k
real(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL32),	intent(in)	::	tau(*)
real(kind=REAL32),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public pure subroutine dorgrq(m, n, k, a, lda, tau, work, lwork, info)

Original interface for DORGRQ See also: mfi_orgrq, f77_orgrq. This routine generates an $M \times N$ real(REAL64) matrix $Q$ with orthonormal columns, which is defined as the first $N$ columns of a product of $K$ elementary reflectors of order $N$ . $Q = H(1)^\dagger H(2)^\dagger . . . H(k)^\dagger$ as returned by dgerqf.

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	k
real(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
real(kind=REAL64),	intent(in)	::	tau(*)
real(kind=REAL64),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public interface f77_ung2r

Generic old style interface for UNG2R. Supports c, z. See also: mfi_ung2r, cung2r, zung2r.

public pure subroutine cung2r(m, n, k, a, lda, tau, work, info)

Original interface for CUNG2R See also: mfi_ung2r, f77_ung2r. This routine generates an $M \times N$ complex(REAL32) matrix $Q$ with orthonormal columns, which is defined as the first $N$ columns of a product of $K$ elementary reflectors of order $M$ . $Q = H(1) H(2) . . . H(k)$ as returned by cgeqrf.

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	k
complex(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
complex(kind=REAL32),	intent(in)	::	tau(*)
complex(kind=REAL32),	intent(out)	::	work(*)
integer,	intent(out)	::	info

public pure subroutine zung2r(m, n, k, a, lda, tau, work, info)

Original interface for ZUNG2R See also: mfi_ung2r, f77_ung2r. This routine generates an $M \times N$ complex(REAL64) matrix $Q$ with orthonormal columns, which is defined as the first $N$ columns of a product of $K$ elementary reflectors of order $M$ . $Q = H(1) H(2) . . . H(k)$ as returned by zgeqrf.

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	k
complex(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
complex(kind=REAL64),	intent(in)	::	tau(*)
complex(kind=REAL64),	intent(out)	::	work(*)
integer,	intent(out)	::	info

public interface f77_ungr2

Generic old style interface for UNGR2. Supports c, z. See also: mfi_ungr2, cungr2, zungr2.

public pure subroutine cungr2(m, n, k, a, lda, tau, work, info)

Original interface for CUNGR2 See also: mfi_ungr2, f77_ungr2. This routine generates an $M \times N$ complex(REAL32) matrix $Q$ with orthonormal rows, which is defined as the last $M$ rows of a product of $K$ elementary reflectors of order $N$ . $Q = H(1)^\dagger H(2)^\dagger \cdots H(k)^\dagger$ as returned by cgerqf.

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	k
complex(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
complex(kind=REAL32),	intent(in)	::	tau(*)
complex(kind=REAL32),	intent(out)	::	work(*)
integer,	intent(out)	::	info

public pure subroutine zungr2(m, n, k, a, lda, tau, work, info)

Original interface for ZUNGR2 See also: mfi_ungr2, f77_ungr2. This routine generates an $M \times N$ complex(REAL64) matrix $Q$ with orthonormal rows, which is defined as the last $M$ rows of a product of $K$ elementary reflectors of order $N$ . $Q = H(1)^\dagger H(2)^\dagger \cdots H(k)^\dagger$ as returned by zgerqf.

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	k
complex(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
complex(kind=REAL64),	intent(in)	::	tau(*)
complex(kind=REAL64),	intent(out)	::	work(*)
integer,	intent(out)	::	info

public interface f77_unm2r

Generic old style interface for UNM2R. Supports c, z. See also: mfi_unm2r, cunm2r, zunm2r.

public pure subroutine cunm2r(side, trans, m, n, k, a, lda, tau, c, ldc, work, info)

Original interface for CUNM2R See also: mfi_unm2r, f77_unm2r. This routine overwrites the general complex $M \times N$ matrix $C$ with

                 SIDE = 'L'     SIDE = 'R'
 TRANS = 'N':      Q * C          C * Q
 TRANS = 'C':      Q**H * C       C * Q**H

where Q is a complex unitary matrix defined as the product of k elementary reflectors

$Q = H(1) H(2) \cdots H(k)$ as returned by cgeqrf. $Q$ is of order $M$ if SIDE = 'L' and of order $N$ if SIDE = 'R'.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	side
character(len=1),	intent(in)	::	trans
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	k
complex(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
complex(kind=REAL32),	intent(in)	::	tau(*)
complex(kind=REAL32),	intent(inout)	::	c(ldc,*)
integer,	intent(in)	::	ldc
complex(kind=REAL32),	intent(out)	::	work(*)
integer,	intent(out)	::	info

public pure subroutine zunm2r(side, trans, m, n, k, a, lda, tau, c, ldc, work, info)

Original interface for ZUNM2R See also: mfi_unm2r, f77_unm2r. This routine overwrites the general complex $M \times N$ matrix $C$ with

                 SIDE = 'L'     SIDE = 'R'
 TRANS = 'N':      Q * C          C * Q
 TRANS = 'C':      Q**H * C       C * Q**H

where Q is a complex unitary matrix defined as the product of k elementary reflectors

$Q = H(1) H(2) \cdots H(k)$ as returned by zgeqrf. $Q$ is of order $M$ if SIDE = 'L' and of order $N$ if SIDE = 'R'.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	side
character(len=1),	intent(in)	::	trans
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	k
complex(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
complex(kind=REAL64),	intent(in)	::	tau(*)
complex(kind=REAL64),	intent(inout)	::	c(ldc,*)
integer,	intent(in)	::	ldc
complex(kind=REAL64),	intent(out)	::	work(*)
integer,	intent(out)	::	info

public interface f77_unmr2

Generic old style interface for UNMR2. Supports c, z. See also: mfi_unmr2, cunmr2, zunmr2.

public pure subroutine cunmr2(side, trans, m, n, k, a, lda, tau, c, ldc, work, info)

Original interface for CUNMR2 See also: mfi_unmr2, f77_unmr2. This routine overwrites the general complex $M \times N$ matrix $C$ with

                 SIDE = 'L'     SIDE = 'R'
 TRANS = 'N':      Q * C          C * Q
 TRANS = 'C':      Q**H * C       C * Q**H

where Q is a complex unitary matrix defined as the product of k elementary reflectors

$Q = H(1)^\dagger H(2)^\dagger \cdots H(k)^\dagger$ as returned by cgerqf. $Q$ is of order $M$ if SIDE = 'L' and of order $N$ if SIDE = 'R'.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	side
character(len=1),	intent(in)	::	trans
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	k
complex(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
complex(kind=REAL32),	intent(in)	::	tau(*)
complex(kind=REAL32),	intent(inout)	::	c(ldc,*)
integer,	intent(in)	::	ldc
complex(kind=REAL32),	intent(out)	::	work(*)
integer,	intent(out)	::	info

public pure subroutine zunmr2(side, trans, m, n, k, a, lda, tau, c, ldc, work, info)

Original interface for ZUNMR2 See also: mfi_unmr2, f77_unmr2. This routine overwrites the general complex $M \times N$ matrix $C$ with

                 SIDE = 'L'     SIDE = 'R'
 TRANS = 'N':      Q * C          C * Q
 TRANS = 'C':      Q**H * C       C * Q**H

where Q is a complex unitary matrix defined as the product of k elementary reflectors

$Q = H(1)^\dagger H(2)^\dagger \cdots H(k)^\dagger$ as returned by zgerqf. $Q$ is of order $M$ if SIDE = 'L' and of order $N$ if SIDE = 'R'.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	side
character(len=1),	intent(in)	::	trans
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	k
complex(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
complex(kind=REAL64),	intent(in)	::	tau(*)
complex(kind=REAL64),	intent(inout)	::	c(ldc,*)
integer,	intent(in)	::	ldc
complex(kind=REAL64),	intent(out)	::	work(*)
integer,	intent(out)	::	info

public interface f77_unmqr

Generic old style interface for UNMQR. Supports c, z. See also: mfi_unmqr, cunmqr, zunmqr.

public pure subroutine cunmqr(side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork, info)

Original interface for CUNMQR See also: mfi_unmqr, f77_unmqr. This routine overwrites the general complex $M \times N$ matrix $C$ with

                 SIDE = 'L'     SIDE = 'R'
 TRANS = 'N':      Q * C          C * Q
 TRANS = 'C':      Q**H * C       C * Q**H

where Q is a complex unitary matrix defined as the product of k elementary reflectors

$Q = H(1) H(2) \cdots H(k)$ as returned by cgeqrf. $Q$ is of order $M$ if SIDE = 'L' and of order $N$ if SIDE = 'R'.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	side
character(len=1),	intent(in)	::	trans
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	k
complex(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
complex(kind=REAL32),	intent(in)	::	tau(*)
complex(kind=REAL32),	intent(inout)	::	c(ldc,*)
integer,	intent(in)	::	ldc
complex(kind=REAL32),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public pure subroutine zunmqr(side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork, info)

Original interface for ZUNMQR See also: mfi_unmqr, f77_unmqr. This routine overwrites the general complex $M \times N$ matrix $C$ with

                 SIDE = 'L'     SIDE = 'R'
 TRANS = 'N':      Q * C          C * Q
 TRANS = 'C':      Q**H * C       C * Q**H

where Q is a complex unitary matrix defined as the product of k elementary reflectors

$Q = H(1) H(2) \cdots H(k)$ as returned by zgeqrf. $Q$ is of order $M$ if SIDE = 'L' and of order $N$ if SIDE = 'R'.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	side
character(len=1),	intent(in)	::	trans
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	k
complex(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
complex(kind=REAL64),	intent(in)	::	tau(*)
complex(kind=REAL64),	intent(inout)	::	c(ldc,*)
integer,	intent(in)	::	ldc
complex(kind=REAL64),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public interface f77_unmrq

Generic old style interface for UNMRQ. Supports c, z. See also: mfi_unmrq, cunmrq, zunmrq.

public pure subroutine cunmrq(side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork, info)

Original interface for CUNMRQ See also: mfi_unmrq, f77_unmrq. This routine overwrites the general complex $M \times N$ matrix $C$ with

                 SIDE = 'L'     SIDE = 'R'
 TRANS = 'N':      Q * C          C * Q
 TRANS = 'C':      Q**H * C       C * Q**H

where Q is a complex unitary matrix defined as the product of k elementary reflectors

$Q = H(1)^\dagger H(2)^\dagger \cdots H(k)^\dagger$ as returned by cgerqf. $Q$ is of order $M$ if SIDE = 'L' and of order $N$ if SIDE = 'R'.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	side
character(len=1),	intent(in)	::	trans
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	k
complex(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
complex(kind=REAL32),	intent(in)	::	tau(*)
complex(kind=REAL32),	intent(inout)	::	c(ldc,*)
integer,	intent(in)	::	ldc
complex(kind=REAL32),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public pure subroutine zunmrq(side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork, info)

Original interface for ZUNMRQ See also: mfi_unmrq, f77_unmrq. This routine overwrites the general complex $M \times N$ matrix $C$ with

                 SIDE = 'L'     SIDE = 'R'
 TRANS = 'N':      Q * C          C * Q
 TRANS = 'C':      Q**H * C       C * Q**H

where Q is a complex unitary matrix defined as the product of k elementary reflectors

$Q = H(1)^\dagger H(2)^\dagger \cdots H(k)^\dagger$ as returned by zgerqf. $Q$ is of order $M$ if SIDE = 'L' and of order $N$ if SIDE = 'R'.

Arguments

Type	Intent		Name
character(len=1),	intent(in)	::	side
character(len=1),	intent(in)	::	trans
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	k
complex(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
complex(kind=REAL64),	intent(in)	::	tau(*)
complex(kind=REAL64),	intent(inout)	::	c(ldc,*)
integer,	intent(in)	::	ldc
complex(kind=REAL64),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public interface f77_ungqr

Generic old style interface for UNGQR. Supports c, z. See also: mfi_ungqr, cungqr, zungqr.

public pure subroutine cungqr(m, n, k, a, lda, tau, work, lwork, info)

Original interface for CUNGQR See also: mfi_ungqr, f77_ungqr. This routine generates an $M \times N$ complex(REAL32) matrix $Q$ with orthonormal columns, which is defined as the first $N$ columns of a product of $K$ elementary reflectors of order $M$ . $Q = H(1) H(2) . . . H(k)$ as returned by cgeqrf.

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	k
complex(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
complex(kind=REAL32),	intent(in)	::	tau(*)
complex(kind=REAL32),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public pure subroutine zungqr(m, n, k, a, lda, tau, work, lwork, info)

Original interface for ZUNGQR See also: mfi_ungqr, f77_ungqr. This routine generates an $M \times N$ complex(REAL64) matrix $Q$ with orthonormal columns, which is defined as the first $N$ columns of a product of $K$ elementary reflectors of order $M$ . $Q = H(1) H(2) . . . H(k)$ as returned by zgeqrf.

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	k
complex(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
complex(kind=REAL64),	intent(in)	::	tau(*)
complex(kind=REAL64),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public interface f77_ungrq

Generic old style interface for UNGRQ. Supports c, z. See also: mfi_ungrq, cungrq, zungrq.

public pure subroutine cungrq(m, n, k, a, lda, tau, work, lwork, info)

Original interface for CUNGRQ See also: mfi_ungrq, f77_ungrq. This routine generates an $M \times N$ complex(REAL32) matrix $Q$ with orthonormal columns, which is defined as the first $N$ columns of a product of $K$ elementary reflectors of order $N$ . $Q = H(1)^\dagger H(2)^\dagger . . . H(k)^\dagger$ as returned by cgerqf.

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	k
complex(kind=REAL32),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
complex(kind=REAL32),	intent(in)	::	tau(*)
complex(kind=REAL32),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public pure subroutine zungrq(m, n, k, a, lda, tau, work, lwork, info)

Original interface for ZUNGRQ See also: mfi_ungrq, f77_ungrq. This routine generates an $M \times N$ complex(REAL64) matrix $Q$ with orthonormal columns, which is defined as the first $N$ columns of a product of $K$ elementary reflectors of order $N$ . $Q = H(1)^\dagger H(2)^\dagger . . . H(k)^\dagger$ as returned by zgerqf.

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
integer,	intent(in)	::	n
integer,	intent(in)	::	k
complex(kind=REAL64),	intent(inout)	::	a(lda,*)
integer,	intent(in)	::	lda
complex(kind=REAL64),	intent(in)	::	tau(*)
complex(kind=REAL64),	intent(out)	::	work(*)
integer,	intent(in)	::	lwork
integer,	intent(out)	::	info

public interface f77_lartg

Generic old style interface for LARTG. Supports s, d, c, z. See also: mfi_lartg, slartg, dlartg, clartg, zlartg.

public pure subroutine slartg(f, g, c, s, r)

Original interface for SLARTG See also: mfi_lartg, f77_lartg.

Arguments

Type	Intent		Name
real(kind=REAL32),	intent(inout)	::	f
real(kind=REAL32),	intent(inout)	::	g
real(kind=wp),	intent(inout)	::	c
real(kind=REAL32),	intent(inout)	::	s
real(kind=REAL32),	intent(inout)	::	r

public pure subroutine dlartg(f, g, c, s, r)

Original interface for DLARTG See also: mfi_lartg, f77_lartg.

Arguments

Type	Intent		Name
real(kind=REAL64),	intent(inout)	::	f
real(kind=REAL64),	intent(inout)	::	g
real(kind=wp),	intent(inout)	::	c
real(kind=REAL64),	intent(inout)	::	s
real(kind=REAL64),	intent(inout)	::	r

public pure subroutine clartg(f, g, c, s, r)

Original interface for CLARTG See also: mfi_lartg, f77_lartg.

Arguments

Type	Intent		Name
complex(kind=REAL32),	intent(inout)	::	f
complex(kind=REAL32),	intent(inout)	::	g
real(kind=wp),	intent(inout)	::	c
complex(kind=REAL32),	intent(inout)	::	s
complex(kind=REAL32),	intent(inout)	::	r

public pure subroutine zlartg(f, g, c, s, r)

Original interface for ZLARTG See also: mfi_lartg, f77_lartg.

Arguments

Type	Intent		Name
complex(kind=REAL64),	intent(inout)	::	f
complex(kind=REAL64),	intent(inout)	::	g
real(kind=wp),	intent(inout)	::	c
complex(kind=REAL64),	intent(inout)	::	s
complex(kind=REAL64),	intent(inout)	::	r

public interface f77_xerbla

public pure subroutine xerbla(name, info)

Arguments

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

f77_lapack Module

Contents

Interfaces

Uses

Interfaces

public interface f77_geqrf

public pure subroutine sgeqrf(m, n, a, lda, tau, work, lwork, info)

Arguments

public pure subroutine dgeqrf(m, n, a, lda, tau, work, lwork, info)

Arguments

public pure subroutine cgeqrf(m, n, a, lda, tau, work, lwork, info)

Arguments

public pure subroutine zgeqrf(m, n, a, lda, tau, work, lwork, info)

Arguments

public interface f77_gerqf

public pure subroutine sgerqf(m, n, a, lda, tau, work, lwork, info)

Arguments

public pure subroutine dgerqf(m, n, a, lda, tau, work, lwork, info)

Arguments

public pure subroutine cgerqf(m, n, a, lda, tau, work, lwork, info)

Arguments

public pure subroutine zgerqf(m, n, a, lda, tau, work, lwork, info)

Arguments

public interface f77_getrf

public pure subroutine sgetrf(m, n, a, lda, ipiv, info)

Arguments

public pure subroutine dgetrf(m, n, a, lda, ipiv, info)

Arguments

public pure subroutine cgetrf(m, n, a, lda, ipiv, info)

Arguments

public pure subroutine zgetrf(m, n, a, lda, ipiv, info)

Arguments

public interface f77_getri

public pure subroutine sgetri(n, a, lda, ipiv, work, lwork, info)

Arguments

public pure subroutine dgetri(n, a, lda, ipiv, work, lwork, info)

Arguments

public pure subroutine cgetri(n, a, lda, ipiv, work, lwork, info)

Arguments

public pure subroutine zgetri(n, a, lda, ipiv, work, lwork, info)

Arguments

public interface f77_getrs

public pure subroutine sgetrs(trans, n, nrhs, a, lda, ipiv, b, ldb, info)

Arguments

public pure subroutine dgetrs(trans, n, nrhs, a, lda, ipiv, b, ldb, info)

Arguments

public pure subroutine cgetrs(trans, n, nrhs, a, lda, ipiv, b, ldb, info)

Arguments

public pure subroutine zgetrs(trans, n, nrhs, a, lda, ipiv, b, ldb, info)

Arguments

public interface f77_hetrf

public pure subroutine chetrf(uplo, n, a, lda, ipiv, work, lwork, info)

Arguments

public pure subroutine zhetrf(uplo, n, a, lda, ipiv, work, lwork, info)

Arguments

public interface f77_hegv

public pure subroutine chegv(itype, jobz, uplo, n, a, lda, b, ldb, w, work, lwork, rwork, info)

Arguments

public pure subroutine zhegv(itype, jobz, uplo, n, a, lda, b, ldb, w, work, lwork, rwork, info)

Arguments

public interface f77_heevd

public pure subroutine cheevd(jobz, uplo, n, a, lda, w, work, lwork, rwork, lrwork, iwork, liwork, info)

Arguments

public pure subroutine zheevd(jobz, uplo, n, a, lda, w, work, lwork, rwork, lrwork, iwork, liwork, info)

Arguments

public interface f77_gesvd

public pure subroutine sgesvd(jobu, jobvt, m, n, a, lda, s, u, ldu, vt, ldvt, work, lwork, info)

Arguments

public pure subroutine dgesvd(jobu, jobvt, m, n, a, lda, s, u, ldu, vt, ldvt, work, lwork, info)

Arguments

public pure subroutine cgesvd(jobu, jobvt, m, n, a, lda, s, u, ldu, vt, ldvt, work, lwork, rwork, info)

Arguments

public pure subroutine zgesvd(jobu, jobvt, m, n, a, lda, s, u, ldu, vt, ldvt, work, lwork, rwork, info)

Arguments

public interface f77_potrf

public pure subroutine spotrf(uplo, n, a, lda, info)

Arguments

public pure subroutine dpotrf(uplo, n, a, lda, info)

Arguments

public pure subroutine cpotrf(uplo, n, a, lda, info)