F_SGE_COPY/F_DGE_COPY/F_CGE_COPY/F_ZGE_COPY

Matrix copy

Name F_SGE_COPY/F_DGE_COPY/F_CGE_COPY/F_ZGE_COPY Matrix copy

Purpose F_xGE_COPY copies an m-by-nmatrix A, its transpose AT, or its conjugate transpose A*, and stores the result in a matrix B.

B ← A , B ← AT or B ← A∗

Matrices A and B have the same storage format.

Refer to “SGECPY/DGECPY/CGECPY/ZGECPY” on page 219 for a description of the equivalent HP MLIB legacy BLAS subprograms.

Usage VECLIB

INTEGER-4 LDA, LDB, M, N, TRANS

REAL*4A( LDA, * ), B( LDB, * )

SUBROUTINE F_SGE_COPY(TRANS, M, N, A, LDA, B, LDB)

INTEGER*4

LDA, LDB, M, N, TRANS

REAL*8

A( LDA, * ), B( LDB, * )

SUBROUTINE F_DGE_COPY(TRANS, M, N, A, LDA, B, LDB)

INTEGER*4

LDA, LDB, M, N, TRANS

COMPLEX*8

A( LDA, * ), B( LDB, * )

SUBROUTINE F_CGE_COPY(TRANS, M, N, A, LDA, B, LDB)

INTEGER*4

LDA, LDB, M, N, TRANS

COMPLEX*16

A( LDA, * ), B( LDB, * )

SUBROUTINE F_ZGE_COPY(TRANS, M, N, A, LDA, B, LDB)

VECLIB8

INTEGER*8

LDA, LDB, M, N, TRANS

REAL*4

A( LDA, * ), B( LDB, * )

SUBROUTINE F_SGE_COPY(TRANS, M, N, A, LDA, B, LDB)

INTEGER*8

LDA, LDB, M, N, TRANS

REAL*8

A( LDA, * ), B( LDB, * )

SUBROUTINE F_DGE_COPY(TRANS, M, N, A, LDA, B, LDB)

INTEGER*8

LDA, LDB, M, N, TRANS

COMPLEX*8

A( LDA, * ), B( LDB, * )

SUBROUTINE F_CGE_COPY(TRANS, M, N, A, LDA, B, LDB)

INTEGER*8

LDA, LDB, M, N, TRANS

COMPLEX*16

A( LDA, * ), B( LDB, * )

SUBROUTINE F_ZGE_COPY(TRANS, M, N, A, LDA, B, LDB)

358HP MLIB User’s Guide