f77_lapack Module
Improved and original F77 interfaces for LAPACK
Uses
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, geqrf.
Arguments
Type Intent Optional Attributes 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, geqrf.
Arguments
Type Intent Optional Attributes 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, geqrf.
Arguments
Type Intent Optional Attributes 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, geqrf.
Arguments
Type Intent Optional Attributes 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, gerqf.
Arguments
Type Intent Optional Attributes 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, gerqf.
Arguments
Type Intent Optional Attributes 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, gerqf.
Arguments
Type Intent Optional Attributes 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, gerqf.
Arguments
Type Intent Optional Attributes 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, getrf.
Arguments
Type Intent Optional Attributes 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, getrf.
Arguments
Type Intent Optional Attributes 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, getrf.
Arguments
Type Intent Optional Attributes 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, getrf.
Arguments
Type Intent Optional Attributes 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, getri.
Arguments
Type Intent Optional Attributes 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, getri.
Arguments
Type Intent Optional Attributes 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, getri.
Arguments
Type Intent Optional Attributes 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, getri.
Arguments
Type Intent Optional Attributes 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, getrs.
Arguments
Type Intent Optional Attributes 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, getrs.
Arguments
Type Intent Optional Attributes 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, getrs.
Arguments
Type Intent Optional Attributes 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, getrs.
Arguments
Type Intent Optional Attributes 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
-
public pure subroutine chetrf(uplo, n, a, lda, ipiv, work, lwork, info)
Original interface for CHETRF See also: mfi_hetrf, hetrf.
Arguments
Type Intent Optional Attributes 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, hetrf.
Arguments
Type Intent Optional Attributes 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
-
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, hegv.
Arguments
Type Intent Optional Attributes 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, hegv.
Arguments
Type Intent Optional Attributes 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
-
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, heevd.
Arguments
Type Intent Optional Attributes 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, heevd.
Arguments
Type Intent Optional Attributes 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, gesvd.
Arguments
Type Intent Optional Attributes 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, gesvd.
Arguments
Type Intent Optional Attributes 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, gesvd.
Arguments
Type Intent Optional Attributes 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, gesvd.
Arguments
Type Intent Optional Attributes 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, potrf.
Arguments
Type Intent Optional Attributes 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, potrf.
Arguments
Type Intent Optional Attributes 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, potrf.
Arguments
Type Intent Optional Attributes 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, potrf.
Arguments
Type Intent Optional Attributes 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, potri.
Arguments
Type Intent Optional Attributes 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, potri.
Arguments
Type Intent Optional Attributes 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, potri.
Arguments
Type Intent Optional Attributes 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, potri.
Arguments
Type Intent Optional Attributes 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, potrs.
Arguments
Type Intent Optional Attributes 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, potrs.
Arguments
Type Intent Optional Attributes 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, potrs.
Arguments
Type Intent Optional Attributes 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, potrs.
Arguments
Type Intent Optional Attributes 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, 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 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 Optional Attributes 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, 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 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 Optional Attributes 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, 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 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 Optional Attributes 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, 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 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 Optional Attributes 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
-
public pure subroutine cheevx(jobz, range, uplo, n, a, lda, vl, vu, il, iu, abstol, m, w, z, ldz, work, lwork, rwork, iwork, ifail, info)
Original interface for CHEEVX See also: mfi_heevx, heevx.
Arguments
Type Intent Optional Attributes 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(inout) :: iwork(*) integer, intent(inout) :: 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, iwork, ifail, info)
Original interface for ZHEEVX See also: mfi_heevx, heevx.
Arguments
Type Intent Optional Attributes 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(inout) :: iwork(*) integer, intent(inout) :: ifail(*) integer, intent(out) :: info
public interface f77_heevr
-
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, heevr.
Arguments
Type Intent Optional Attributes 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, heevr.
Arguments
Type Intent Optional Attributes 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, gels. SGELS solves overdetermined or underdetermined systems for GE matrices
Arguments
Type Intent Optional Attributes 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, gels. DGELS solves overdetermined or underdetermined systems for GE matrices
Arguments
Type Intent Optional Attributes 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, gels. CGELS solves overdetermined or underdetermined systems for GE matrices
Arguments
Type Intent Optional Attributes 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, gels. ZGELS solves overdetermined or underdetermined systems for GE matrices
Arguments
Type Intent Optional Attributes 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, gelst. SGELST solves overdetermined or underdetermined systems for GE matrices using QR or LQ factorization with compact WY representation of Q.
Arguments
Type Intent Optional Attributes 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, gelst. DGELST solves overdetermined or underdetermined systems for GE matrices using QR or LQ factorization with compact WY representation of Q.
Arguments
Type Intent Optional Attributes 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, gelst. CGELST solves overdetermined or underdetermined systems for GE matrices using QR or LQ factorization with compact WY representation of Q.
Arguments
Type Intent Optional Attributes 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, gelst. ZGELST solves overdetermined or underdetermined systems for GE matrices using QR or LQ factorization with compact WY representation of Q.
Arguments
Type Intent Optional Attributes 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, getsls. SGETSLS solves overdetermined or underdetermined systems for GE matrices
Arguments
Type Intent Optional Attributes 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, getsls. DGETSLS solves overdetermined or underdetermined systems for GE matrices
Arguments
Type Intent Optional Attributes 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, getsls. CGETSLS solves overdetermined or underdetermined systems for GE matrices
Arguments
Type Intent Optional Attributes 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, getsls. ZGETSLS solves overdetermined or underdetermined systems for GE matrices
Arguments
Type Intent Optional Attributes 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, gelsd. SGELSD computes the minimum-norm solution to a linear least squares problem for GE matrices
Arguments
Type Intent Optional Attributes 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, gelsd. DGELSD computes the minimum-norm solution to a linear least squares problem for GE matrices
Arguments
Type Intent Optional Attributes 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, gelsd. CGELSD computes the minimum-norm solution to a linear least squares problem for GE matrices
Arguments
Type Intent Optional Attributes 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, gelsd. ZGELSD computes the minimum-norm solution to a linear least squares problem for GE matrices
Arguments
Type Intent Optional Attributes 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, gelss. SGELSS solves overdetermined or underdetermined systems for GE matrices
Arguments
Type Intent Optional Attributes 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, gelss. DGELSS solves overdetermined or underdetermined systems for GE matrices
Arguments
Type Intent Optional Attributes 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, gelss. CGELSS solves overdetermined or underdetermined systems for GE matrices
Arguments
Type Intent Optional Attributes 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, gelss. ZGELSS solves overdetermined or underdetermined systems for GE matrices
Arguments
Type Intent Optional Attributes 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, gelsy. SGELSY solves overdetermined or underdetermined systems for GE matrices
Arguments
Type Intent Optional Attributes 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, gelsy. DGELSY solves overdetermined or underdetermined systems for GE matrices
Arguments
Type Intent Optional Attributes 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, gelsy. CGELSY solves overdetermined or underdetermined systems for GE matrices
Arguments
Type Intent Optional Attributes 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, gelsy. ZGELSY solves overdetermined or underdetermined systems for GE matrices
Arguments
Type Intent Optional Attributes 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, gglse.
Arguments
Type Intent Optional Attributes 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, gglse.
Arguments
Type Intent Optional Attributes 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, gglse.
Arguments
Type Intent Optional Attributes 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, gglse.
Arguments
Type Intent Optional Attributes 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, gglsm.
Arguments
Type Intent Optional Attributes 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, gglsm.
Arguments
Type Intent Optional Attributes 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, gglsm.
Arguments
Type Intent Optional Attributes 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, gglsm.
Arguments
Type Intent Optional Attributes 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
-
public pure subroutine sorg2r(m, n, k, a, lda, tau, work, info)
Original interface for SORG2R See also: mfi_org2r, org2r. This routine generates an real(REAL32) matrix with orthonormal columns, which is defined as the first columns of a product of elementary reflectors of order . as returned by sgeqrf.
Arguments
Type Intent Optional Attributes 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, org2r. This routine generates an real(REAL64) matrix with orthonormal columns, which is defined as the first columns of a product of elementary reflectors of order . as returned by dgeqrf.
Arguments
Type Intent Optional Attributes 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
-
public pure subroutine sorgr2(m, n, k, a, lda, tau, work, info)
Original interface for SORGR2 See also: mfi_orgr2, orgr2. This routine generates an real(REAL32) matrix with orthonormal rows, which is defined as the last rows of a product of elementary reflectors of order . as returned by sgerqf.
Arguments
Type Intent Optional Attributes 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, orgr2. This routine generates an real(REAL64) matrix with orthonormal rows, which is defined as the last rows of a product of elementary reflectors of order . as returned by dgerqf.
Arguments
Type Intent Optional Attributes 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
-
public pure subroutine sorm2r(side, trans, m, n, k, a, lda, tau, c, ldc, work, info)
Original interface for SORM2R See also: mfi_orm2r, orm2r. This routine overwrites the general complex matrix with
SIDE = 'L' SIDE = 'R' TRANS = 'N': Q * C C * Q TRANS = 'C': Q**H * C C * Q**Hwhere Q is a complex unitary matrix defined as the product of k elementary reflectors
as returned by sgeqrf. is of order if
SIDE = 'L'and of order ifSIDE = 'R'.Arguments
Type Intent Optional Attributes 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, orm2r. This routine overwrites the general complex matrix with
SIDE = 'L' SIDE = 'R' TRANS = 'N': Q * C C * Q TRANS = 'C': Q**H * C C * Q**Hwhere Q is a complex unitary matrix defined as the product of k elementary reflectors
as returned by dgeqrf. is of order if
SIDE = 'L'and of order ifSIDE = 'R'.Arguments
Type Intent Optional Attributes 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
-
public pure subroutine sormr2(side, trans, m, n, k, a, lda, tau, c, ldc, work, info)
Original interface for SORMR2 See also: mfi_ormr2, ormr2. This routine overwrites the general complex matrix with
SIDE = 'L' SIDE = 'R' TRANS = 'N': Q * C C * Q TRANS = 'C': Q**H * C C * Q**Hwhere Q is a complex unitary matrix defined as the product of k elementary reflectors
as returned by sgerqf. is of order if
SIDE = 'L'and of order ifSIDE = 'R'.Arguments
Type Intent Optional Attributes 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, ormr2. This routine overwrites the general complex matrix with
SIDE = 'L' SIDE = 'R' TRANS = 'N': Q * C C * Q TRANS = 'C': Q**H * C C * Q**Hwhere Q is a complex unitary matrix defined as the product of k elementary reflectors
as returned by dgerqf. is of order if
SIDE = 'L'and of order ifSIDE = 'R'.Arguments
Type Intent Optional Attributes 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
-
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, ormqr. This routine overwrites the general complex matrix with
SIDE = 'L' SIDE = 'R' TRANS = 'N': Q * C C * Q TRANS = 'C': Q**H * C C * Q**Hwhere Q is a complex unitary matrix defined as the product of k elementary reflectors
as returned by sgeqrf. is of order if
SIDE = 'L'and of order ifSIDE = 'R'.Arguments
Type Intent Optional Attributes 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, ormqr. This routine overwrites the general complex matrix with
SIDE = 'L' SIDE = 'R' TRANS = 'N': Q * C C * Q TRANS = 'C': Q**H * C C * Q**Hwhere Q is a complex unitary matrix defined as the product of k elementary reflectors
as returned by dgeqrf. is of order if
SIDE = 'L'and of order ifSIDE = 'R'.Arguments
Type Intent Optional Attributes 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
-
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, ormrq. This routine overwrites the general complex matrix with
SIDE = 'L' SIDE = 'R' TRANS = 'N': Q * C C * Q TRANS = 'C': Q**H * C C * Q**Hwhere Q is a complex unitary matrix defined as the product of k elementary reflectors
as returned by sgerqf. is of order if
SIDE = 'L'and of order ifSIDE = 'R'.Arguments
Type Intent Optional Attributes 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, ormrq. This routine overwrites the general complex matrix with
SIDE = 'L' SIDE = 'R' TRANS = 'N': Q * C C * Q TRANS = 'C': Q**H * C C * Q**Hwhere Q is a complex unitary matrix defined as the product of k elementary reflectors
as returned by dgerqf. is of order if
SIDE = 'L'and of order ifSIDE = 'R'.Arguments
Type Intent Optional Attributes 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
-
public pure subroutine sorgqr(m, n, k, a, lda, tau, work, lwork, info)
Original interface for SORGQR See also: mfi_orgqr, orgqr. This routine generates an real(REAL32) matrix with orthonormal columns, which is defined as the first columns of a product of elementary reflectors of order . as returned by sgeqrf.
Arguments
Type Intent Optional Attributes 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, orgqr. This routine generates an real(REAL64) matrix with orthonormal columns, which is defined as the first columns of a product of elementary reflectors of order . as returned by dgeqrf.
Arguments
Type Intent Optional Attributes 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
-
public pure subroutine sorgrq(m, n, k, a, lda, tau, work, lwork, info)
Original interface for SORGRQ See also: mfi_orgrq, orgrq. This routine generates an real(REAL32) matrix with orthonormal columns, which is defined as the first columns of a product of elementary reflectors of order . as returned by sgerqf.
Arguments
Type Intent Optional Attributes 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, orgrq. This routine generates an real(REAL64) matrix with orthonormal columns, which is defined as the first columns of a product of elementary reflectors of order . as returned by dgerqf.
Arguments
Type Intent Optional Attributes 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
-
public pure subroutine cung2r(m, n, k, a, lda, tau, work, info)
Original interface for CUNG2R See also: mfi_ung2r, ung2r. This routine generates an complex(REAL32) matrix with orthonormal columns, which is defined as the first columns of a product of elementary reflectors of order . as returned by cgeqrf.
Arguments
Type Intent Optional Attributes 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, ung2r. This routine generates an complex(REAL64) matrix with orthonormal columns, which is defined as the first columns of a product of elementary reflectors of order . as returned by zgeqrf.
Arguments
Type Intent Optional Attributes 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
-
public pure subroutine cungr2(m, n, k, a, lda, tau, work, info)
Original interface for CUNGR2 See also: mfi_ungr2, ungr2. This routine generates an complex(REAL32) matrix with orthonormal rows, which is defined as the last rows of a product of elementary reflectors of order . as returned by cgerqf.
Arguments
Type Intent Optional Attributes 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, ungr2. This routine generates an complex(REAL64) matrix with orthonormal rows, which is defined as the last rows of a product of elementary reflectors of order . as returned by zgerqf.
Arguments
Type Intent Optional Attributes 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
-
public pure subroutine cunm2r(side, trans, m, n, k, a, lda, tau, c, ldc, work, info)
Original interface for CUNM2R See also: mfi_unm2r, unm2r. This routine overwrites the general complex matrix with
SIDE = 'L' SIDE = 'R' TRANS = 'N': Q * C C * Q TRANS = 'C': Q**H * C C * Q**Hwhere Q is a complex unitary matrix defined as the product of k elementary reflectors
as returned by cgeqrf. is of order if
SIDE = 'L'and of order ifSIDE = 'R'.Arguments
Type Intent Optional Attributes 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, unm2r. This routine overwrites the general complex matrix with
SIDE = 'L' SIDE = 'R' TRANS = 'N': Q * C C * Q TRANS = 'C': Q**H * C C * Q**Hwhere Q is a complex unitary matrix defined as the product of k elementary reflectors
as returned by zgeqrf. is of order if
SIDE = 'L'and of order ifSIDE = 'R'.Arguments
Type Intent Optional Attributes 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
-
public pure subroutine cunmr2(side, trans, m, n, k, a, lda, tau, c, ldc, work, info)
Original interface for CUNMR2 See also: mfi_unmr2, unmr2. This routine overwrites the general complex matrix with
SIDE = 'L' SIDE = 'R' TRANS = 'N': Q * C C * Q TRANS = 'C': Q**H * C C * Q**Hwhere Q is a complex unitary matrix defined as the product of k elementary reflectors
as returned by cgerqf. is of order if
SIDE = 'L'and of order ifSIDE = 'R'.Arguments
Type Intent Optional Attributes 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, unmr2. This routine overwrites the general complex matrix with
SIDE = 'L' SIDE = 'R' TRANS = 'N': Q * C C * Q TRANS = 'C': Q**H * C C * Q**Hwhere Q is a complex unitary matrix defined as the product of k elementary reflectors
as returned by zgerqf. is of order if
SIDE = 'L'and of order ifSIDE = 'R'.Arguments
Type Intent Optional Attributes 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
-
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, unmqr. This routine overwrites the general complex matrix with
SIDE = 'L' SIDE = 'R' TRANS = 'N': Q * C C * Q TRANS = 'C': Q**H * C C * Q**Hwhere Q is a complex unitary matrix defined as the product of k elementary reflectors
as returned by cgeqrf. is of order if
SIDE = 'L'and of order ifSIDE = 'R'.Arguments
Type Intent Optional Attributes 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, unmqr. This routine overwrites the general complex matrix with
SIDE = 'L' SIDE = 'R' TRANS = 'N': Q * C C * Q TRANS = 'C': Q**H * C C * Q**Hwhere Q is a complex unitary matrix defined as the product of k elementary reflectors
as returned by zgeqrf. is of order if
SIDE = 'L'and of order ifSIDE = 'R'.Arguments
Type Intent Optional Attributes 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
-
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, unmrq. This routine overwrites the general complex matrix with
SIDE = 'L' SIDE = 'R' TRANS = 'N': Q * C C * Q TRANS = 'C': Q**H * C C * Q**Hwhere Q is a complex unitary matrix defined as the product of k elementary reflectors
as returned by cgerqf. is of order if
SIDE = 'L'and of order ifSIDE = 'R'.Arguments
Type Intent Optional Attributes 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, unmrq. This routine overwrites the general complex matrix with
SIDE = 'L' SIDE = 'R' TRANS = 'N': Q * C C * Q TRANS = 'C': Q**H * C C * Q**Hwhere Q is a complex unitary matrix defined as the product of k elementary reflectors
as returned by zgerqf. is of order if
SIDE = 'L'and of order ifSIDE = 'R'.Arguments
Type Intent Optional Attributes 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
-
public pure subroutine cungqr(m, n, k, a, lda, tau, work, lwork, info)
Original interface for CUNGQR See also: mfi_ungqr, ungqr. This routine generates an complex(REAL32) matrix with orthonormal columns, which is defined as the first columns of a product of elementary reflectors of order . as returned by cgeqrf.
Arguments
Type Intent Optional Attributes 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, ungqr. This routine generates an complex(REAL64) matrix with orthonormal columns, which is defined as the first columns of a product of elementary reflectors of order . as returned by zgeqrf.
Arguments
Type Intent Optional Attributes 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
-
public pure subroutine cungrq(m, n, k, a, lda, tau, work, lwork, info)
Original interface for CUNGRQ See also: mfi_ungrq, ungrq. This routine generates an complex(REAL32) matrix with orthonormal columns, which is defined as the first columns of a product of elementary reflectors of order . as returned by cgerqf.
Arguments
Type Intent Optional Attributes 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, ungrq. This routine generates an complex(REAL64) matrix with orthonormal columns, which is defined as the first columns of a product of elementary reflectors of order . as returned by zgerqf.
Arguments
Type Intent Optional Attributes 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, lartg.
Arguments
Type Intent Optional Attributes 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, lartg.
Arguments
Type Intent Optional Attributes 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, lartg.
Arguments
Type Intent Optional Attributes 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, lartg.
Arguments
Type Intent Optional Attributes 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_trtrs
Generic old style interface for TRTRS. Supports s, d, c, z. See also: mfi_trtrs, strtrs, dtrtrs, ctrtrs, ztrtrs.
-
public pure subroutine strtrs(uplo, trans, diag, n, nrhs, a, lda, b, ldb, info)
Original interface for STRTRS See also: mfi_trtrs, trtrs. STRTRS solves a triangular system of the form
A * X = B or A**T * X = B or A**H * X = B,where A is a triangular matrix of order N, and B is an N-by-NRHS matrix. The transpose or conjugate-transpose is selected via
trans.A is assumed to be either upper or lower triangular as specified by
uplo, and may be unit or non-unit diagonal as specified bydiag.Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL32), intent(in) :: a(lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: b(ldb,*) integer, intent(in) :: ldb integer, intent(out) :: info -
public pure subroutine dtrtrs(uplo, trans, diag, n, nrhs, a, lda, b, ldb, info)
Original interface for DTRTRS See also: mfi_trtrs, trtrs. DTRTRS solves a triangular system of the form
A * X = B or A**T * X = B or A**H * X = B,where A is a triangular matrix of order N, and B is an N-by-NRHS matrix. The transpose or conjugate-transpose is selected via
trans.A is assumed to be either upper or lower triangular as specified by
uplo, and may be unit or non-unit diagonal as specified bydiag.Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n integer, intent(in) :: nrhs real(kind=REAL64), intent(in) :: a(lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: b(ldb,*) integer, intent(in) :: ldb integer, intent(out) :: info -
public pure subroutine ctrtrs(uplo, trans, diag, n, nrhs, a, lda, b, ldb, info)
Original interface for CTRTRS See also: mfi_trtrs, trtrs. CTRTRS solves a triangular system of the form
A * X = B or A**T * X = B or A**H * X = B,where A is a triangular matrix of order N, and B is an N-by-NRHS matrix. The transpose or conjugate-transpose is selected via
trans.A is assumed to be either upper or lower triangular as specified by
uplo, and may be unit or non-unit diagonal as specified bydiag.Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL32), intent(in) :: a(lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b(ldb,*) integer, intent(in) :: ldb integer, intent(out) :: info -
public pure subroutine ztrtrs(uplo, trans, diag, n, nrhs, a, lda, b, ldb, info)
Original interface for ZTRTRS See also: mfi_trtrs, trtrs. ZTRTRS solves a triangular system of the form
A * X = B or A**T * X = B or A**H * X = B,where A is a triangular matrix of order N, and B is an N-by-NRHS matrix. The transpose or conjugate-transpose is selected via
trans.A is assumed to be either upper or lower triangular as specified by
uplo, and may be unit or non-unit diagonal as specified bydiag.Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans character(len=1), intent(in) :: diag integer, intent(in) :: n integer, intent(in) :: nrhs complex(kind=REAL64), intent(in) :: a(lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b(ldb,*) integer, intent(in) :: ldb integer, intent(out) :: info
public interface f77_sytrf
-
public pure subroutine ssytrf(uplo, n, a, lda, ipiv, work, lwork, info)
Original interface for SSYTRF See also: mfi_sytrf, sytrf. SSYTRF computes the factorization of a real symmetric matrix A using the Bunch-Kaufman diagonal pivoting method. The form of the factorization is A = UDUT or A = LDLT, where U (or L) is a product of permutation and unit upper (lower) triangular matrices, and D is block diagonal with 1-by-1 and 2-by-2 diagonal blocks.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL32), intent(inout) :: a(lda,*) integer, intent(in) :: lda integer, intent(out) :: ipiv(*) real(kind=REAL32), intent(inout) :: work(*) integer, intent(in) :: lwork integer, intent(out) :: info -
public pure subroutine dsytrf(uplo, n, a, lda, ipiv, work, lwork, info)
Original interface for DSYTRF See also: mfi_sytrf, sytrf. DSYTRF computes the factorization of a real symmetric matrix A using the Bunch-Kaufman diagonal pivoting method. The form of the factorization is A = UDUT or A = LDLT, where U (or L) is a product of permutation and unit upper (lower) triangular matrices, and D is block diagonal with 1-by-1 and 2-by-2 diagonal blocks.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL64), intent(inout) :: a(lda,*) integer, intent(in) :: lda integer, intent(out) :: ipiv(*) real(kind=REAL64), intent(inout) :: work(*) integer, intent(in) :: lwork integer, intent(out) :: info
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