f77_blas Module
Improved and original F77 interfaces for BLAS
Uses
Interfaces
public interface f77_copy
Generic old style interface for COPY. Supports s, d, c, z. See also: mfi_copy, scopy, dcopy, ccopy, zcopy.
-
public pure subroutine scopy(n, x, incx, y, incy)
Original interface for SCOPY See also: mfi_copy, f77_copy.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x(*) integer, intent(in) :: incx real(kind=REAL32), intent(inout) :: y(*) integer, intent(in) :: incy -
public pure subroutine dcopy(n, x, incx, y, incy)
Original interface for DCOPY See also: mfi_copy, f77_copy.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x(*) integer, intent(in) :: incx real(kind=REAL64), intent(inout) :: y(*) integer, intent(in) :: incy -
public pure subroutine ccopy(n, x, incx, y, incy)
Original interface for CCOPY See also: mfi_copy, f77_copy.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x(*) integer, intent(in) :: incx complex(kind=REAL32), intent(inout) :: y(*) integer, intent(in) :: incy -
public pure subroutine zcopy(n, x, incx, y, incy)
Original interface for ZCOPY See also: mfi_copy, f77_copy.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x(*) integer, intent(in) :: incx complex(kind=REAL64), intent(inout) :: y(*) integer, intent(in) :: incy
public interface f77_swap
Generic old style interface for SWAP. Supports s, d, c, z. See also: mfi_swap, sswap, dswap, cswap, zswap.
-
public pure subroutine sswap(n, x, incx, y, incy)
Original interface for SSWAP See also: mfi_swap, f77_swap.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x(*) integer, intent(in) :: incx real(kind=REAL32), intent(inout) :: y(*) integer, intent(in) :: incy -
public pure subroutine dswap(n, x, incx, y, incy)
Original interface for DSWAP See also: mfi_swap, f77_swap.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x(*) integer, intent(in) :: incx real(kind=REAL64), intent(inout) :: y(*) integer, intent(in) :: incy -
public pure subroutine cswap(n, x, incx, y, incy)
Original interface for CSWAP See also: mfi_swap, f77_swap.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x(*) integer, intent(in) :: incx complex(kind=REAL32), intent(inout) :: y(*) integer, intent(in) :: incy -
public pure subroutine zswap(n, x, incx, y, incy)
Original interface for ZSWAP See also: mfi_swap, f77_swap.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x(*) integer, intent(in) :: incx complex(kind=REAL64), intent(inout) :: y(*) integer, intent(in) :: incy
public interface f77_axpy
Generic old style interface for AXPY. Supports s, d, c, z. See also: mfi_axpy, saxpy, daxpy, caxpy, zaxpy.
-
public pure subroutine saxpy(n, a, x, incx, y, incy)
Original interface for SAXPY See also: mfi_axpy, f77_axpy.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: a real(kind=REAL32), intent(in) :: x(*) integer, intent(in) :: incx real(kind=REAL32), intent(inout) :: y(*) integer, intent(in) :: incy -
public pure subroutine daxpy(n, a, x, incx, y, incy)
Original interface for DAXPY See also: mfi_axpy, f77_axpy.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: a real(kind=REAL64), intent(in) :: x(*) integer, intent(in) :: incx real(kind=REAL64), intent(inout) :: y(*) integer, intent(in) :: incy -
public pure subroutine caxpy(n, a, x, incx, y, incy)
Original interface for CAXPY See also: mfi_axpy, f77_axpy.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: a complex(kind=REAL32), intent(in) :: x(*) integer, intent(in) :: incx complex(kind=REAL32), intent(inout) :: y(*) integer, intent(in) :: incy -
public pure subroutine zaxpy(n, a, x, incx, y, incy)
Original interface for ZAXPY See also: mfi_axpy, f77_axpy.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: a complex(kind=REAL64), intent(in) :: x(*) integer, intent(in) :: incx complex(kind=REAL64), intent(inout) :: y(*) integer, intent(in) :: incy
public interface f77_dot
-
public pure function sdot(n, x, incx, y, incy)
Original interface for SDOT See also: mfi_dot, f77_dot.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x(*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: y(*) integer, intent(in) :: incy Return Value real(kind=REAL32)
-
public pure function ddot(n, x, incx, y, incy)
Original interface for DDOT See also: mfi_dot, f77_dot.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x(*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: y(*) integer, intent(in) :: incy Return Value real(kind=REAL64)
public interface f77_dotc
-
public pure function cdotc(n, x, incx, y, incy)
Original interface for CDOTC See also: mfi_dotc, f77_dotc.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x(*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: y(*) integer, intent(in) :: incy Return Value complex(kind=REAL32)
-
public pure function zdotc(n, x, incx, y, incy)
Original interface for ZDOTC See also: mfi_dotc, f77_dotc.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x(*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: y(*) integer, intent(in) :: incy Return Value complex(kind=REAL64)
public interface f77_dotu
-
public pure function cdotu(n, x, incx, y, incy)
Original interface for CDOTU See also: mfi_dotu, f77_dotu.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x(*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: y(*) integer, intent(in) :: incy Return Value complex(kind=REAL32)
-
public pure function zdotu(n, x, incx, y, incy)
Original interface for ZDOTU See also: mfi_dotu, f77_dotu.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x(*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: y(*) integer, intent(in) :: incy Return Value complex(kind=REAL64)
public interface f77_asum
Generic old style interface for ASUM. Supports s, d, sc, dz. See also: mfi_asum, sasum, dasum, scasum, dzasum.
-
public pure function sasum(n, x, incx)
Original interface for SASUM See also: mfi_asum, f77_asum.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x(*) integer, intent(in) :: incx Return Value real(kind=REAL32)
-
public pure function scasum(n, x, incx)
Original interface for SCASUM See also: mfi_asum, f77_asum.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x(*) integer, intent(in) :: incx Return Value real(kind=REAL32)
-
public pure function dasum(n, x, incx)
Original interface for DASUM See also: mfi_asum, f77_asum.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x(*) integer, intent(in) :: incx Return Value real(kind=REAL64)
-
public pure function dzasum(n, x, incx)
Original interface for DZASUM See also: mfi_asum, f77_asum.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x(*) integer, intent(in) :: incx Return Value real(kind=REAL64)
public interface f77_nrm2
Generic old style interface for NRM2. Supports s, d, sc, dz. See also: mfi_nrm2, snrm2, dnrm2, scnrm2, dznrm2.
-
public pure function snrm2(n, x, incx)
Original interface for SNRM2 See also: mfi_nrm2, f77_nrm2.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x(*) integer, intent(in) :: incx Return Value real(kind=REAL32)
-
public pure function scnrm2(n, x, incx)
Original interface for SCNRM2 See also: mfi_nrm2, f77_nrm2.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x(*) integer, intent(in) :: incx Return Value real(kind=REAL32)
-
public pure function dnrm2(n, x, incx)
Original interface for DNRM2 See also: mfi_nrm2, f77_nrm2.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x(*) integer, intent(in) :: incx Return Value real(kind=REAL64)
-
public pure function dznrm2(n, x, incx)
Original interface for DZNRM2 See also: mfi_nrm2, f77_nrm2.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x(*) integer, intent(in) :: incx Return Value real(kind=REAL64)
public interface f77_rot
Generic old style interface for ROT. Supports s, d, c, z, cs, zd. See also: mfi_rot, srot, drot, crot, zrot, csrot, zdrot.
-
public pure subroutine srot(n, x, incx, y, incy, c, s)
Original interface for SROT See also: mfi_rot, f77_rot. SROT applies a plane rotation.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x(*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: y(*) integer, intent(in) :: incy real(kind=REAL32), intent(in) :: c real(kind=REAL32), intent(in) :: s -
public pure subroutine drot(n, x, incx, y, incy, c, s)
Original interface for DROT See also: mfi_rot, f77_rot. DROT applies a plane rotation.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x(*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: y(*) integer, intent(in) :: incy real(kind=REAL64), intent(in) :: c real(kind=REAL64), intent(in) :: s -
public pure subroutine crot(n, x, incx, y, incy, c, s)
Original interface for CROT See also: mfi_rot, f77_rot. CROT applies a plane rotation.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x(*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: y(*) integer, intent(in) :: incy real(kind=REAL32), intent(in) :: c complex(kind=REAL32), intent(in) :: s -
public pure subroutine zrot(n, x, incx, y, incy, c, s)
Original interface for ZROT See also: mfi_rot, f77_rot. ZROT applies a plane rotation.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x(*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: y(*) integer, intent(in) :: incy real(kind=REAL64), intent(in) :: c complex(kind=REAL64), intent(in) :: s -
public pure subroutine csrot(n, x, incx, y, incy, c, s)
Original interface for CSROT See also: mfi_rot, f77_rot. CSROT applies a plane rotation.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x(*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: y(*) integer, intent(in) :: incy real(kind=REAL32), intent(in) :: c real(kind=REAL32), intent(in) :: s -
public pure subroutine zdrot(n, x, incx, y, incy, c, s)
Original interface for ZDROT See also: mfi_rot, f77_rot. ZDROT applies a plane rotation.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x(*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: y(*) integer, intent(in) :: incy real(kind=REAL64), intent(in) :: c real(kind=REAL64), intent(in) :: s
public interface f77_rotg
Generic old style interface for ROTG. Supports s, d, c, z. See also: mfi_rotg, srotg, drotg, crotg, zrotg.
-
public pure subroutine srotg(a, b, c, s)
Original interface for SROTG See also: mfi_rotg, f77_rotg. srotg generates a Givens rotation with real cosine and complex sine:
[ c s ] [ a ] = [ r ] [ -s c ] [ b ] [ 0 ]satisfying
c**2 + s**2 = 1.Arguments
Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: a real(kind=REAL32), intent(inout) :: b real(kind=REAL32), intent(out) :: c real(kind=REAL32), intent(out) :: s -
public pure subroutine drotg(a, b, c, s)
Original interface for DROTG See also: mfi_rotg, f77_rotg. drotg generates a Givens rotation with real cosine and complex sine:
[ c s ] [ a ] = [ r ] [ -s c ] [ b ] [ 0 ]satisfying
c**2 + s**2 = 1.Arguments
Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: a real(kind=REAL64), intent(inout) :: b real(kind=REAL64), intent(out) :: c real(kind=REAL64), intent(out) :: s -
public pure subroutine crotg(a, b, c, s)
Original interface for CROTG See also: mfi_rotg, f77_rotg. crotg generates a Givens rotation with real cosine and complex sine:
[ c s ] [ a ] = [ r ] [ -conjg(s) c ] [ b ] [ 0 ]where c is real, s is complex, and
c**2 + conjg(s)*s = 1.Arguments
Type Intent Optional Attributes Name complex(kind=REAL32), intent(inout) :: a complex(kind=REAL32), intent(inout) :: b real(kind=REAL32), intent(out) :: c complex(kind=REAL32), intent(out) :: s -
public pure subroutine zrotg(a, b, c, s)
Original interface for ZROTG See also: mfi_rotg, f77_rotg. zrotg generates a Givens rotation with real cosine and complex sine:
[ c s ] [ a ] = [ r ] [ -conjg(s) c ] [ b ] [ 0 ]where c is real, s is complex, and
c**2 + conjg(s)*s = 1.Arguments
Type Intent Optional Attributes Name complex(kind=REAL64), intent(inout) :: a complex(kind=REAL64), intent(inout) :: b real(kind=REAL64), intent(out) :: c complex(kind=REAL64), intent(out) :: s
public interface f77_rotm
-
public pure subroutine srotm(n, x, incx, y, incy, param)
Original interface for SROTM See also: mfi_rotm, f77_rotm.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(inout) :: x(*) integer, intent(in) :: incx real(kind=REAL32), intent(inout) :: y(*) integer, intent(in) :: incy real(kind=REAL32), intent(in) :: param(5) -
public pure subroutine drotm(n, x, incx, y, incy, param)
Original interface for DROTM See also: mfi_rotm, f77_rotm.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(inout) :: x(*) integer, intent(in) :: incx real(kind=REAL64), intent(inout) :: y(*) integer, intent(in) :: incy real(kind=REAL64), intent(in) :: param(5)
public interface f77_rotmg
-
public pure subroutine srotmg(d1, d2, x1, y1, param)
Original interface for SROTMG See also: mfi_rotmg, f77_rotmg.
Arguments
Type Intent Optional Attributes Name real(kind=REAL32), intent(inout) :: d1 real(kind=REAL32), intent(inout) :: d2 real(kind=REAL32), intent(inout) :: x1 real(kind=REAL32), intent(in) :: y1 real(kind=REAL32), intent(out) :: param(5) -
public pure subroutine drotmg(d1, d2, x1, y1, param)
Original interface for DROTMG See also: mfi_rotmg, f77_rotmg.
Arguments
Type Intent Optional Attributes Name real(kind=REAL64), intent(inout) :: d1 real(kind=REAL64), intent(inout) :: d2 real(kind=REAL64), intent(inout) :: x1 real(kind=REAL64), intent(in) :: y1 real(kind=REAL64), intent(out) :: param(5)
public interface f77_scal
Generic old style interface for SCAL. Supports s, d, c, z, cs, zd. See also: mfi_scal, sscal, dscal, cscal, zscal, csscal, zdscal.
-
public pure subroutine sscal(n, a, x, incx)
Original interface for SSCAL See also: mfi_scal, f77_scal. SSCAL scales a vector by a constant.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: a real(kind=REAL32), intent(inout) :: x(*) integer, intent(in) :: incx -
public pure subroutine dscal(n, a, x, incx)
Original interface for DSCAL See also: mfi_scal, f77_scal. DSCAL scales a vector by a constant.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: a real(kind=REAL64), intent(inout) :: x(*) integer, intent(in) :: incx -
public pure subroutine cscal(n, a, x, incx)
Original interface for CSCAL See also: mfi_scal, f77_scal. CSCAL scales a vector by a constant.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: a complex(kind=REAL32), intent(inout) :: x(*) integer, intent(in) :: incx -
public pure subroutine zscal(n, a, x, incx)
Original interface for ZSCAL See also: mfi_scal, f77_scal. ZSCAL scales a vector by a constant.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: a complex(kind=REAL64), intent(inout) :: x(*) integer, intent(in) :: incx -
public pure subroutine csscal(n, a, x, incx)
Original interface for CSSCAL See also: mfi_scal, f77_scal. CSSCAL scales a vector by a constant.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: a complex(kind=REAL32), intent(inout) :: x(*) integer, intent(in) :: incx -
public pure subroutine zdscal(n, a, x, incx)
Original interface for ZDSCAL See also: mfi_scal, f77_scal. ZDSCAL scales a vector by a constant.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: a complex(kind=REAL64), intent(inout) :: x(*) integer, intent(in) :: incx
public interface f77_gbmv
Generic old style interface for GBMV. Supports s, d, c, z. See also: mfi_gbmv, sgbmv, dgbmv, cgbmv, zgbmv.
-
public pure subroutine sgbmv(trans, m, n, kl, ku, alpha, a, lda, x, incx, beta, y, incy)
Original interface for SGBMV See also: mfi_gbmv, f77_gbmv.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: kl integer, intent(in) :: ku real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a(lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: x(*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: y(*) integer, intent(in) :: incy -
public pure subroutine dgbmv(trans, m, n, kl, ku, alpha, a, lda, x, incx, beta, y, incy)
Original interface for DGBMV See also: mfi_gbmv, f77_gbmv.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: kl integer, intent(in) :: ku real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a(lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: x(*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: y(*) integer, intent(in) :: incy -
public pure subroutine cgbmv(trans, m, n, kl, ku, alpha, a, lda, x, incx, beta, y, incy)
Original interface for CGBMV See also: mfi_gbmv, f77_gbmv.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: kl integer, intent(in) :: ku complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a(lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: x(*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: beta complex(kind=REAL32), intent(inout) :: y(*) integer, intent(in) :: incy -
public pure subroutine zgbmv(trans, m, n, kl, ku, alpha, a, lda, x, incx, beta, y, incy)
Original interface for ZGBMV See also: mfi_gbmv, f77_gbmv.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: kl integer, intent(in) :: ku complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a(lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: x(*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: beta complex(kind=REAL64), intent(inout) :: y(*) integer, intent(in) :: incy
public interface f77_gemv
Generic old style interface for GEMV. Supports s, d, c, z. See also: mfi_gemv, sgemv, dgemv, cgemv, zgemv.
-
public pure subroutine sgemv(trans, m, n, alpha, a, lda, x, incx, beta, y, incy)
Original interface for SGEMV See also: mfi_gemv, f77_gemv.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a(lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: x(*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: y(*) integer, intent(in) :: incy -
public pure subroutine dgemv(trans, m, n, alpha, a, lda, x, incx, beta, y, incy)
Original interface for DGEMV See also: mfi_gemv, f77_gemv.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a(lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: x(*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: y(*) integer, intent(in) :: incy -
public pure subroutine cgemv(trans, m, n, alpha, a, lda, x, incx, beta, y, incy)
Original interface for CGEMV See also: mfi_gemv, f77_gemv.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a(lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: x(*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: beta complex(kind=REAL32), intent(inout) :: y(*) integer, intent(in) :: incy -
public pure subroutine zgemv(trans, m, n, alpha, a, lda, x, incx, beta, y, incy)
Original interface for ZGEMV See also: mfi_gemv, f77_gemv.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: trans integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a(lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: x(*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: beta complex(kind=REAL64), intent(inout) :: y(*) integer, intent(in) :: incy
public interface f77_ger
-
public pure subroutine sger(m, n, alpha, x, incx, y, incy, a, lda)
Original interface for SGER See also: mfi_ger, f77_ger.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: x(*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: y(*) integer, intent(in) :: incy real(kind=REAL32), intent(inout) :: a(lda,*) integer, intent(in) :: lda -
public pure subroutine dger(m, n, alpha, x, incx, y, incy, a, lda)
Original interface for DGER See also: mfi_ger, f77_ger.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: x(*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: y(*) integer, intent(in) :: incy real(kind=REAL64), intent(inout) :: a(lda,*) integer, intent(in) :: lda
public interface f77_gerc
-
public pure subroutine cgerc(m, n, alpha, x, incx, y, incy, a, lda)
Original interface for CGERC See also: mfi_gerc, f77_gerc.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: x(*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: y(*) integer, intent(in) :: incy complex(kind=REAL32), intent(inout) :: a(lda,*) integer, intent(in) :: lda -
public pure subroutine zgerc(m, n, alpha, x, incx, y, incy, a, lda)
Original interface for ZGERC See also: mfi_gerc, f77_gerc.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: x(*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: y(*) integer, intent(in) :: incy complex(kind=REAL64), intent(inout) :: a(lda,*) integer, intent(in) :: lda
public interface f77_geru
-
public pure subroutine cgeru(m, n, alpha, x, incx, y, incy, a, lda)
Original interface for CGERU See also: mfi_geru, f77_geru.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: x(*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: y(*) integer, intent(in) :: incy complex(kind=REAL32), intent(inout) :: a(lda,*) integer, intent(in) :: lda -
public pure subroutine zgeru(m, n, alpha, x, incx, y, incy, a, lda)
Original interface for ZGERU See also: mfi_geru, f77_geru.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: x(*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: y(*) integer, intent(in) :: incy complex(kind=REAL64), intent(inout) :: a(lda,*) integer, intent(in) :: lda
public interface f77_hbmv
-
public pure subroutine chbmv(uplo, n, k, alpha, a, lda, x, incx, beta, y, incy)
Original interface for CHBMV See also: mfi_hbmv, f77_hbmv.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a(lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: x(*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: beta complex(kind=REAL32), intent(inout) :: y(*) integer, intent(in) :: incy -
public pure subroutine zhbmv(uplo, n, k, alpha, a, lda, x, incx, beta, y, incy)
Original interface for ZHBMV See also: mfi_hbmv, f77_hbmv.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a(lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: x(*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: beta complex(kind=REAL64), intent(inout) :: y(*) integer, intent(in) :: incy
public interface f77_hemv
-
public pure subroutine chemv(uplo, n, alpha, a, lda, x, incx, beta, y, incy)
Original interface for CHEMV See also: mfi_hemv, f77_hemv.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a(lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: x(*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: beta complex(kind=REAL32), intent(inout) :: y(*) integer, intent(in) :: incy -
public pure subroutine zhemv(uplo, n, alpha, a, lda, x, incx, beta, y, incy)
Original interface for ZHEMV See also: mfi_hemv, f77_hemv.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a(lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: x(*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: beta complex(kind=REAL64), intent(inout) :: y(*) integer, intent(in) :: incy
public interface f77_her
-
public pure subroutine cher(uplo, n, alpha, x, incx, a, lda)
Original interface for CHER See also: mfi_her, f77_her.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=wp), intent(in) :: alpha complex(kind=REAL32), intent(in) :: x(*) integer, intent(in) :: incx complex(kind=REAL32), intent(inout) :: a(lda,*) integer, intent(in) :: lda -
public pure subroutine zher(uplo, n, alpha, x, incx, a, lda)
Original interface for ZHER See also: mfi_her, f77_her.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=wp), intent(in) :: alpha complex(kind=REAL64), intent(in) :: x(*) integer, intent(in) :: incx complex(kind=REAL64), intent(inout) :: a(lda,*) integer, intent(in) :: lda
public interface f77_her2
-
public pure subroutine cher2(uplo, n, alpha, x, incx, y, incy, a, lda)
Original interface for CHER2 See also: mfi_her2, f77_her2.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: x(*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: y(*) integer, intent(in) :: incy complex(kind=REAL32), intent(inout) :: a(lda,*) integer, intent(in) :: lda -
public pure subroutine zher2(uplo, n, alpha, x, incx, y, incy, a, lda)
Original interface for ZHER2 See also: mfi_her2, f77_her2.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: x(*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: y(*) integer, intent(in) :: incy complex(kind=REAL64), intent(inout) :: a(lda,*) integer, intent(in) :: lda
public interface f77_hpmv
-
public pure subroutine chpmv(uplo, n, alpha, ap, x, incx, beta, y, incy)
Original interface for CHPMV See also: mfi_hpmv, f77_hpmv.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: ap(*) complex(kind=REAL32), intent(in) :: x(*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: beta complex(kind=REAL32), intent(inout) :: y(*) integer, intent(in) :: incy -
public pure subroutine zhpmv(uplo, n, alpha, ap, x, incx, beta, y, incy)
Original interface for ZHPMV See also: mfi_hpmv, f77_hpmv.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: ap(*) complex(kind=REAL64), intent(in) :: x(*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: beta complex(kind=REAL64), intent(inout) :: y(*) integer, intent(in) :: incy
public interface f77_hpr
-
public pure subroutine chpr(uplo, n, alpha, x, incx, ap)
Original interface for CHPR See also: mfi_hpr, f77_hpr.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=wp), intent(in) :: alpha complex(kind=REAL32), intent(in) :: x(*) integer, intent(in) :: incx complex(kind=REAL32), intent(inout) :: ap(*) -
public pure subroutine zhpr(uplo, n, alpha, x, incx, ap)
Original interface for ZHPR See also: mfi_hpr, f77_hpr.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=wp), intent(in) :: alpha complex(kind=REAL64), intent(in) :: x(*) integer, intent(in) :: incx complex(kind=REAL64), intent(inout) :: ap(*)
public interface f77_hpr2
-
public pure subroutine chpr2(uplo, n, alpha, x, incx, y, incy, ap)
Original interface for CHPR2 See also: mfi_hpr2, f77_hpr2.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: x(*) integer, intent(in) :: incx complex(kind=REAL32), intent(in) :: y(*) integer, intent(in) :: incy complex(kind=REAL32), intent(inout) :: ap(*) -
public pure subroutine zhpr2(uplo, n, alpha, x, incx, y, incy, ap)
Original interface for ZHPR2 See also: mfi_hpr2, f77_hpr2.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: x(*) integer, intent(in) :: incx complex(kind=REAL64), intent(in) :: y(*) integer, intent(in) :: incy complex(kind=REAL64), intent(inout) :: ap(*)
public interface f77_sbmv
-
public pure subroutine ssbmv(uplo, n, k, alpha, a, lda, x, incx, beta, y, incy)
Original interface for SSBMV See also: mfi_sbmv, f77_sbmv.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a(lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: x(*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: y(*) integer, intent(in) :: incy -
public pure subroutine dsbmv(uplo, n, k, alpha, a, lda, x, incx, beta, y, incy)
Original interface for DSBMV See also: mfi_sbmv, f77_sbmv.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a(lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: x(*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: y(*) integer, intent(in) :: incy
public interface f77_spmv
-
public pure subroutine sspmv(uplo, n, alpha, ap, x, incx, beta, y, incy)
Original interface for SSPMV See also: mfi_spmv, f77_spmv.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: ap(*) real(kind=REAL32), intent(in) :: x(*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: y(*) integer, intent(in) :: incy -
public pure subroutine dspmv(uplo, n, alpha, ap, x, incx, beta, y, incy)
Original interface for DSPMV See also: mfi_spmv, f77_spmv.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: ap(*) real(kind=REAL64), intent(in) :: x(*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: y(*) integer, intent(in) :: incy
public interface f77_spr
-
public pure subroutine sspr(uplo, n, alpha, x, incx, ap)
Original interface for SSPR See also: mfi_spr, f77_spr.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: x(*) integer, intent(in) :: incx real(kind=REAL32), intent(inout) :: ap(*) -
public pure subroutine dspr(uplo, n, alpha, x, incx, ap)
Original interface for DSPR See also: mfi_spr, f77_spr.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: x(*) integer, intent(in) :: incx real(kind=REAL64), intent(inout) :: ap(*)
public interface f77_spr2
-
public pure subroutine sspr2(uplo, n, alpha, x, incx, y, incy, ap)
Original interface for SSPR2 See also: mfi_spr2, f77_spr2.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: x(*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: y(*) integer, intent(in) :: incy real(kind=REAL32), intent(inout) :: ap(*) -
public pure subroutine dspr2(uplo, n, alpha, x, incx, y, incy, ap)
Original interface for DSPR2 See also: mfi_spr2, f77_spr2.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: x(*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: y(*) integer, intent(in) :: incy real(kind=REAL64), intent(inout) :: ap(*)
public interface f77_symv
-
public pure subroutine ssymv(uplo, n, alpha, a, lda, x, incx, beta, y, incy)
Original interface for SSYMV See also: mfi_symv, f77_symv.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a(lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: x(*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: y(*) integer, intent(in) :: incy -
public pure subroutine dsymv(uplo, n, alpha, a, lda, x, incx, beta, y, incy)
Original interface for DSYMV See also: mfi_symv, f77_symv.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a(lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: x(*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: y(*) integer, intent(in) :: incy
public interface f77_syr
-
public pure subroutine ssyr(uplo, n, alpha, x, incx, a, lda)
Original interface for SSYR See also: mfi_syr, f77_syr.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: x(*) integer, intent(in) :: incx real(kind=REAL32), intent(inout) :: a(lda,*) integer, intent(in) :: lda -
public pure subroutine dsyr(uplo, n, alpha, x, incx, a, lda)
Original interface for DSYR See also: mfi_syr, f77_syr.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: x(*) integer, intent(in) :: incx real(kind=REAL64), intent(inout) :: a(lda,*) integer, intent(in) :: lda
public interface f77_syr2
-
public pure subroutine ssyr2(uplo, n, alpha, x, incx, y, incy, a, lda)
Original interface for SSYR2 See also: mfi_syr2, f77_syr2.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: x(*) integer, intent(in) :: incx real(kind=REAL32), intent(in) :: y(*) integer, intent(in) :: incy real(kind=REAL32), intent(inout) :: a(lda,*) integer, intent(in) :: lda -
public pure subroutine dsyr2(uplo, n, alpha, x, incx, y, incy, a, lda)
Original interface for DSYR2 See also: mfi_syr2, f77_syr2.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: x(*) integer, intent(in) :: incx real(kind=REAL64), intent(in) :: y(*) integer, intent(in) :: incy real(kind=REAL64), intent(inout) :: a(lda,*) integer, intent(in) :: lda
public interface f77_tbmv
Generic old style interface for TBMV. Supports s, d, c, z. See also: mfi_tbmv, stbmv, dtbmv, ctbmv, ztbmv.
-
public pure subroutine stbmv(uplo, trans, diag, n, k, a, lda, x, incx)
Original interface for STBMV See also: mfi_tbmv, f77_tbmv.
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) :: k real(kind=REAL32), intent(in) :: a(lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: x(*) integer, intent(in) :: incx -
public pure subroutine dtbmv(uplo, trans, diag, n, k, a, lda, x, incx)
Original interface for DTBMV See also: mfi_tbmv, f77_tbmv.
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) :: k real(kind=REAL64), intent(in) :: a(lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: x(*) integer, intent(in) :: incx -
public pure subroutine ctbmv(uplo, trans, diag, n, k, a, lda, x, incx)
Original interface for CTBMV See also: mfi_tbmv, f77_tbmv.
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) :: k complex(kind=REAL32), intent(in) :: a(lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: x(*) integer, intent(in) :: incx -
public pure subroutine ztbmv(uplo, trans, diag, n, k, a, lda, x, incx)
Original interface for ZTBMV See also: mfi_tbmv, f77_tbmv.
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) :: k complex(kind=REAL64), intent(in) :: a(lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: x(*) integer, intent(in) :: incx
public interface f77_tbsv
Generic old style interface for TBSV. Supports s, d, c, z. See also: mfi_tbsv, stbsv, dtbsv, ctbsv, ztbsv.
-
public pure subroutine stbsv(uplo, trans, diag, n, k, a, lda, x, incx)
Original interface for STBSV See also: mfi_tbsv, f77_tbsv.
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) :: k real(kind=REAL32), intent(in) :: a(lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: x(*) integer, intent(in) :: incx -
public pure subroutine dtbsv(uplo, trans, diag, n, k, a, lda, x, incx)
Original interface for DTBSV See also: mfi_tbsv, f77_tbsv.
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) :: k real(kind=REAL64), intent(in) :: a(lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: x(*) integer, intent(in) :: incx -
public pure subroutine ctbsv(uplo, trans, diag, n, k, a, lda, x, incx)
Original interface for CTBSV See also: mfi_tbsv, f77_tbsv.
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) :: k complex(kind=REAL32), intent(in) :: a(lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: x(*) integer, intent(in) :: incx -
public pure subroutine ztbsv(uplo, trans, diag, n, k, a, lda, x, incx)
Original interface for ZTBSV See also: mfi_tbsv, f77_tbsv.
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) :: k complex(kind=REAL64), intent(in) :: a(lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: x(*) integer, intent(in) :: incx
public interface f77_tpmv
Generic old style interface for TPMV. Supports s, d, c, z. See also: mfi_tpmv, stpmv, dtpmv, ctpmv, ztpmv.
-
public pure subroutine stpmv(uplo, trans, diag, n, ap, x, incx)
Original interface for STPMV See also: mfi_tpmv, f77_tpmv.
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 real(kind=REAL32), intent(in) :: ap(*) real(kind=REAL32), intent(inout) :: x(*) integer, intent(in) :: incx -
public pure subroutine dtpmv(uplo, trans, diag, n, ap, x, incx)
Original interface for DTPMV See also: mfi_tpmv, f77_tpmv.
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 real(kind=REAL64), intent(in) :: ap(*) real(kind=REAL64), intent(inout) :: x(*) integer, intent(in) :: incx -
public pure subroutine ctpmv(uplo, trans, diag, n, ap, x, incx)
Original interface for CTPMV See also: mfi_tpmv, f77_tpmv.
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 complex(kind=REAL32), intent(in) :: ap(*) complex(kind=REAL32), intent(inout) :: x(*) integer, intent(in) :: incx -
public pure subroutine ztpmv(uplo, trans, diag, n, ap, x, incx)
Original interface for ZTPMV See also: mfi_tpmv, f77_tpmv.
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 complex(kind=REAL64), intent(in) :: ap(*) complex(kind=REAL64), intent(inout) :: x(*) integer, intent(in) :: incx
public interface f77_tpsv
Generic old style interface for TPSV. Supports s, d, c, z. See also: mfi_tpsv, stpsv, dtpsv, ctpsv, ztpsv.
-
public pure subroutine stpsv(uplo, trans, diag, n, ap, x, incx)
Original interface for STPSV See also: mfi_tpsv, f77_tpsv.
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 real(kind=REAL32), intent(in) :: ap(*) real(kind=REAL32), intent(inout) :: x(*) integer, intent(in) :: incx -
public pure subroutine dtpsv(uplo, trans, diag, n, ap, x, incx)
Original interface for DTPSV See also: mfi_tpsv, f77_tpsv.
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 real(kind=REAL64), intent(in) :: ap(*) real(kind=REAL64), intent(inout) :: x(*) integer, intent(in) :: incx -
public pure subroutine ctpsv(uplo, trans, diag, n, ap, x, incx)
Original interface for CTPSV See also: mfi_tpsv, f77_tpsv.
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 complex(kind=REAL32), intent(in) :: ap(*) complex(kind=REAL32), intent(inout) :: x(*) integer, intent(in) :: incx -
public pure subroutine ztpsv(uplo, trans, diag, n, ap, x, incx)
Original interface for ZTPSV See also: mfi_tpsv, f77_tpsv.
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 complex(kind=REAL64), intent(in) :: ap(*) complex(kind=REAL64), intent(inout) :: x(*) integer, intent(in) :: incx
public interface f77_trmv
Generic old style interface for TRMV. Supports s, d, c, z. See also: mfi_trmv, strmv, dtrmv, ctrmv, ztrmv.
-
public pure subroutine strmv(uplo, trans, diag, n, a, lda, x, incx)
Original interface for STRMV See also: mfi_trmv, f77_trmv.
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 real(kind=REAL32), intent(in) :: a(lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: x(*) integer, intent(in) :: incx -
public pure subroutine dtrmv(uplo, trans, diag, n, a, lda, x, incx)
Original interface for DTRMV See also: mfi_trmv, f77_trmv.
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 real(kind=REAL64), intent(in) :: a(lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: x(*) integer, intent(in) :: incx -
public pure subroutine ctrmv(uplo, trans, diag, n, a, lda, x, incx)
Original interface for CTRMV See also: mfi_trmv, f77_trmv.
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 complex(kind=REAL32), intent(in) :: a(lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: x(*) integer, intent(in) :: incx -
public pure subroutine ztrmv(uplo, trans, diag, n, a, lda, x, incx)
Original interface for ZTRMV See also: mfi_trmv, f77_trmv.
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 complex(kind=REAL64), intent(in) :: a(lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: x(*) integer, intent(in) :: incx
public interface f77_trsv
Generic old style interface for TRSV. Supports s, d, c, z. See also: mfi_trsv, strsv, dtrsv, ctrsv, ztrsv.
-
public pure subroutine strsv(uplo, trans, diag, n, a, lda, x, incx)
Original interface for STRSV See also: mfi_trsv, f77_trsv.
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 real(kind=REAL32), intent(in) :: a(lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: x(*) integer, intent(in) :: incx -
public pure subroutine dtrsv(uplo, trans, diag, n, a, lda, x, incx)
Original interface for DTRSV See also: mfi_trsv, f77_trsv.
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 real(kind=REAL64), intent(in) :: a(lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: x(*) integer, intent(in) :: incx -
public pure subroutine ctrsv(uplo, trans, diag, n, a, lda, x, incx)
Original interface for CTRSV See also: mfi_trsv, f77_trsv.
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 complex(kind=REAL32), intent(in) :: a(lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: x(*) integer, intent(in) :: incx -
public pure subroutine ztrsv(uplo, trans, diag, n, a, lda, x, incx)
Original interface for ZTRSV See also: mfi_trsv, f77_trsv.
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 complex(kind=REAL64), intent(in) :: a(lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: x(*) integer, intent(in) :: incx
public interface f77_gemm
Generic old style interface for GEMM. Supports s, d, c, z. See also: mfi_gemm, sgemm, dgemm, cgemm, zgemm.
-
public pure subroutine sgemm(transa, transb, m, n, k, alpha, a, lda, b, ldb, beta, c, ldc)
Original interface for SGEMM See also: mfi_gemm, f77_gemm.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: transa character(len=1), intent(in) :: transb integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a(lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: b(ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: c(ldc,*) integer, intent(in) :: ldc -
public pure subroutine dgemm(transa, transb, m, n, k, alpha, a, lda, b, ldb, beta, c, ldc)
Original interface for DGEMM See also: mfi_gemm, f77_gemm.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: transa character(len=1), intent(in) :: transb integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a(lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: b(ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: c(ldc,*) integer, intent(in) :: ldc -
public pure subroutine cgemm(transa, transb, m, n, k, alpha, a, lda, b, ldb, beta, c, ldc)
Original interface for CGEMM See also: mfi_gemm, f77_gemm.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: transa character(len=1), intent(in) :: transb integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a(lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: b(ldb,*) integer, intent(in) :: ldb complex(kind=REAL32), intent(in) :: beta complex(kind=REAL32), intent(inout) :: c(ldc,*) integer, intent(in) :: ldc -
public pure subroutine zgemm(transa, transb, m, n, k, alpha, a, lda, b, ldb, beta, c, ldc)
Original interface for ZGEMM See also: mfi_gemm, f77_gemm.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: transa character(len=1), intent(in) :: transb integer, intent(in) :: m integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a(lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: b(ldb,*) integer, intent(in) :: ldb complex(kind=REAL64), intent(in) :: beta complex(kind=REAL64), intent(inout) :: c(ldc,*) integer, intent(in) :: ldc
public interface f77_hemm
-
public pure subroutine chemm(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc)
Original interface for CHEMM See also: mfi_hemm, f77_hemm.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a(lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: b(ldb,*) integer, intent(in) :: ldb complex(kind=REAL32), intent(in) :: beta complex(kind=REAL32), intent(inout) :: c(ldc,*) integer, intent(in) :: ldc -
public pure subroutine zhemm(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc)
Original interface for ZHEMM See also: mfi_hemm, f77_hemm.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a(lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: b(ldb,*) integer, intent(in) :: ldb complex(kind=REAL64), intent(in) :: beta complex(kind=REAL64), intent(inout) :: c(ldc,*) integer, intent(in) :: ldc
public interface f77_herk
-
public pure subroutine cherk(uplo, trans, n, k, alpha, a, lda, beta, c, ldc)
Original interface for CHERK See also: mfi_herk, f77_herk.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: k real(kind=wp), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a(lda,*) integer, intent(in) :: lda real(kind=wp), intent(in) :: beta complex(kind=REAL32), intent(inout) :: c(ldc,*) integer, intent(in) :: ldc -
public pure subroutine zherk(uplo, trans, n, k, alpha, a, lda, beta, c, ldc)
Original interface for ZHERK See also: mfi_herk, f77_herk.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: k real(kind=wp), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a(lda,*) integer, intent(in) :: lda real(kind=wp), intent(in) :: beta complex(kind=REAL64), intent(inout) :: c(ldc,*) integer, intent(in) :: ldc
public interface f77_her2k
-
public pure subroutine cher2k(uplo, trans, n, k, alpha, a, lda, b, ldb, beta, c, ldc)
Original interface for CHER2K See also: mfi_her2k, f77_her2k.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a(lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(in) :: b(ldb,*) integer, intent(in) :: ldb real(kind=wp), intent(in) :: beta complex(kind=REAL32), intent(inout) :: c(ldc,*) integer, intent(in) :: ldc -
public pure subroutine zher2k(uplo, trans, n, k, alpha, a, lda, b, ldb, beta, c, ldc)
Original interface for ZHER2K See also: mfi_her2k, f77_her2k.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: k complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a(lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(in) :: b(ldb,*) integer, intent(in) :: ldb real(kind=wp), intent(in) :: beta complex(kind=REAL64), intent(inout) :: c(ldc,*) integer, intent(in) :: ldc
public interface f77_symm
-
public pure subroutine ssymm(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc)
Original interface for SSYMM See also: mfi_symm, f77_symm.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a(lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: b(ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: c(ldc,*) integer, intent(in) :: ldc -
public pure subroutine dsymm(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc)
Original interface for DSYMM See also: mfi_symm, f77_symm.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a(lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: b(ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: c(ldc,*) integer, intent(in) :: ldc
public interface f77_syrk
-
public pure subroutine ssyrk(uplo, trans, n, k, alpha, a, lda, beta, c, ldc)
Original interface for SSYRK See also: mfi_syrk, f77_syrk.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a(lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: c(ldc,*) integer, intent(in) :: ldc -
public pure subroutine dsyrk(uplo, trans, n, k, alpha, a, lda, beta, c, ldc)
Original interface for DSYRK See also: mfi_syrk, f77_syrk.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a(lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: c(ldc,*) integer, intent(in) :: ldc
public interface f77_syr2k
-
public pure subroutine ssyr2k(uplo, trans, n, k, alpha, a, lda, b, ldb, beta, c, ldc)
Original interface for SSYR2K See also: mfi_syr2k, f77_syr2k.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a(lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(in) :: b(ldb,*) integer, intent(in) :: ldb real(kind=REAL32), intent(in) :: beta real(kind=REAL32), intent(inout) :: c(ldc,*) integer, intent(in) :: ldc -
public pure subroutine dsyr2k(uplo, trans, n, k, alpha, a, lda, b, ldb, beta, c, ldc)
Original interface for DSYR2K See also: mfi_syr2k, f77_syr2k.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: uplo character(len=1), intent(in) :: trans integer, intent(in) :: n integer, intent(in) :: k real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a(lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(in) :: b(ldb,*) integer, intent(in) :: ldb real(kind=REAL64), intent(in) :: beta real(kind=REAL64), intent(inout) :: c(ldc,*) integer, intent(in) :: ldc
public interface f77_trmm
Generic old style interface for TRMM. Supports s, d, c, z. See also: mfi_trmm, strmm, dtrmm, ctrmm, ztrmm.
-
public pure subroutine strmm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb)
Original interface for STRMM See also: mfi_trmm, f77_trmm.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo character(len=1), intent(in) :: transa character(len=1), intent(in) :: diag integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a(lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: b(ldb,*) integer, intent(in) :: ldb -
public pure subroutine dtrmm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb)
Original interface for DTRMM See also: mfi_trmm, f77_trmm.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo character(len=1), intent(in) :: transa character(len=1), intent(in) :: diag integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a(lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: b(ldb,*) integer, intent(in) :: ldb -
public pure subroutine ctrmm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb)
Original interface for CTRMM See also: mfi_trmm, f77_trmm.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo character(len=1), intent(in) :: transa character(len=1), intent(in) :: diag integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a(lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b(ldb,*) integer, intent(in) :: ldb -
public pure subroutine ztrmm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb)
Original interface for ZTRMM See also: mfi_trmm, f77_trmm.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo character(len=1), intent(in) :: transa character(len=1), intent(in) :: diag integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a(lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b(ldb,*) integer, intent(in) :: ldb
public interface f77_trsm
Generic old style interface for TRSM. Supports s, d, c, z. See also: mfi_trsm, strsm, dtrsm, ctrsm, ztrsm.
-
public pure subroutine strsm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb)
Original interface for STRSM See also: mfi_trsm, f77_trsm.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo character(len=1), intent(in) :: transa character(len=1), intent(in) :: diag integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL32), intent(in) :: alpha real(kind=REAL32), intent(in) :: a(lda,*) integer, intent(in) :: lda real(kind=REAL32), intent(inout) :: b(ldb,*) integer, intent(in) :: ldb -
public pure subroutine dtrsm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb)
Original interface for DTRSM See also: mfi_trsm, f77_trsm.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo character(len=1), intent(in) :: transa character(len=1), intent(in) :: diag integer, intent(in) :: m integer, intent(in) :: n real(kind=REAL64), intent(in) :: alpha real(kind=REAL64), intent(in) :: a(lda,*) integer, intent(in) :: lda real(kind=REAL64), intent(inout) :: b(ldb,*) integer, intent(in) :: ldb -
public pure subroutine ctrsm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb)
Original interface for CTRSM See also: mfi_trsm, f77_trsm.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo character(len=1), intent(in) :: transa character(len=1), intent(in) :: diag integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL32), intent(in) :: alpha complex(kind=REAL32), intent(in) :: a(lda,*) integer, intent(in) :: lda complex(kind=REAL32), intent(inout) :: b(ldb,*) integer, intent(in) :: ldb -
public pure subroutine ztrsm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb)
Original interface for ZTRSM See also: mfi_trsm, f77_trsm.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: side character(len=1), intent(in) :: uplo character(len=1), intent(in) :: transa character(len=1), intent(in) :: diag integer, intent(in) :: m integer, intent(in) :: n complex(kind=REAL64), intent(in) :: alpha complex(kind=REAL64), intent(in) :: a(lda,*) integer, intent(in) :: lda complex(kind=REAL64), intent(inout) :: b(ldb,*) integer, intent(in) :: ldb
interface
?lamch supports s, d. See mfi_lamch for the modern version.
-
public pure function slamch(cmach)
SLAMCH determines single precision machine parameters.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: cmach Return Value real(kind=real32)
interface
?lamch supports s, d. See mfi_lamch for the modern version.
-
public pure function dlamch(cmach)
DLAMCH determines double precision machine parameters.
Arguments
Type Intent Optional Attributes Name character(len=1), intent(in) :: cmach Return Value real(kind=real64)
interface
-
public pure function sdsdot(n, sb, sx, incx, sy, incy)
Compute the inner product of two vectors with extended precision accumulation.
Returns S.P. result with dot product accumulated in D.P. SDSDOT = SB + sum for I = 0 to N-1 of SX(LX+IINCX)SY(LY+IINCY), where LX = 1 if INCX .GE. 0, else LX = 1+(1-N)INCX, and LY is defined in a similar way using INCY.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=wp), intent(in) :: sb real(kind=wp), intent(in) :: sx(*) integer, intent(in) :: incx real(kind=wp), intent(in) :: sy(*) integer, intent(in) :: incy Return Value real(kind=wp)
interface
-
public pure function dsdot(n, sx, incx, sy, incy)
Compute the inner product of two vectors with extended precision accumulation and result.
Returns D.P. dot product accumulated in D.P., for S.P. SX and SY DSDOT = sum for I = 0 to N-1 of SX(LX+IINCX) * SY(LY+IINCY), where LX = 1 if INCX .GE. 0, else LX = 1+(1-N)*INCX, and LY is defined in a similar way using INCY.
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=sp), intent(in) :: sx(*) integer, intent(in) :: incx real(kind=sp), intent(in) :: sy(*) integer, intent(in) :: incy Return Value real(kind=dp)
public interface f77_iamax
-
public pure function isamax(n, x, incx)
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x(*) integer, intent(in) :: incx Return Value integer
-
public pure function idamax(n, x, incx)
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x(*) integer, intent(in) :: incx Return Value integer
-
public pure function icamax(n, x, incx)
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x(*) integer, intent(in) :: incx Return Value integer
-
public pure function izamax(n, x, incx)
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x(*) integer, intent(in) :: incx Return Value integer
public interface f77_iamin
-
public pure function isamin(n, x, incx)
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL32), intent(in) :: x(*) integer, intent(in) :: incx Return Value integer
-
public pure function idamin(n, x, incx)
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=REAL64), intent(in) :: x(*) integer, intent(in) :: incx Return Value integer
-
public pure function icamin(n, x, incx)
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL32), intent(in) :: x(*) integer, intent(in) :: incx Return Value integer
-
public pure function izamin(n, x, incx)
Arguments
Type Intent Optional Attributes Name integer, intent(in) :: n complex(kind=REAL64), intent(in) :: x(*) integer, intent(in) :: incx Return Value integer
Functions
public pure function isamax(n, x, incx)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | n | |||
| real(kind=REAL32), | intent(in) | :: | x(*) | |||
| integer, | intent(in) | :: | incx |
Return Value integer
public pure function idamax(n, x, incx)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | n | |||
| real(kind=REAL64), | intent(in) | :: | x(*) | |||
| integer, | intent(in) | :: | incx |
Return Value integer
public pure function icamax(n, x, incx)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | n | |||
| complex(kind=REAL32), | intent(in) | :: | x(*) | |||
| integer, | intent(in) | :: | incx |
Return Value integer
public pure function izamax(n, x, incx)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | n | |||
| complex(kind=REAL64), | intent(in) | :: | x(*) | |||
| integer, | intent(in) | :: | incx |
Return Value integer
public pure function isamin(n, x, incx)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | n | |||
| real(kind=REAL32), | intent(in) | :: | x(*) | |||
| integer, | intent(in) | :: | incx |
Return Value integer
public pure function idamin(n, x, incx)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | n | |||
| real(kind=REAL64), | intent(in) | :: | x(*) | |||
| integer, | intent(in) | :: | incx |
Return Value integer
public pure function icamin(n, x, incx)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | n | |||
| complex(kind=REAL32), | intent(in) | :: | x(*) | |||
| integer, | intent(in) | :: | incx |
Return Value integer
public pure function izamin(n, x, incx)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | n | |||
| complex(kind=REAL64), | intent(in) | :: | x(*) | |||
| integer, | intent(in) | :: | incx |