Annotation of rpl/lapack/lapack/clag2z.f, revision 1.1
1.1 ! bertrand 1: SUBROUTINE CLAG2Z( M, N, SA, LDSA, A, LDA, INFO )
! 2: *
! 3: * -- LAPACK PROTOTYPE auxiliary routine (version 3.1.2) --
! 4: * -- LAPACK is a software package provided by Univ. of Tennessee, --
! 5: * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
! 6: * August 2007
! 7: *
! 8: * ..
! 9: * .. Scalar Arguments ..
! 10: INTEGER INFO, LDA, LDSA, M, N
! 11: * ..
! 12: * .. Array Arguments ..
! 13: COMPLEX SA( LDSA, * )
! 14: COMPLEX*16 A( LDA, * )
! 15: * ..
! 16: *
! 17: * Purpose
! 18: * =======
! 19: *
! 20: * CLAG2Z converts a COMPLEX matrix, SA, to a COMPLEX*16 matrix, A.
! 21: *
! 22: * Note that while it is possible to overflow while converting
! 23: * from double to single, it is not possible to overflow when
! 24: * converting from single to double.
! 25: *
! 26: * This is an auxiliary routine so there is no argument checking.
! 27: *
! 28: * Arguments
! 29: * =========
! 30: *
! 31: * M (input) INTEGER
! 32: * The number of lines of the matrix A. M >= 0.
! 33: *
! 34: * N (input) INTEGER
! 35: * The number of columns of the matrix A. N >= 0.
! 36: *
! 37: * SA (input) COMPLEX array, dimension (LDSA,N)
! 38: * On entry, the M-by-N coefficient matrix SA.
! 39: *
! 40: * LDSA (input) INTEGER
! 41: * The leading dimension of the array SA. LDSA >= max(1,M).
! 42: *
! 43: * A (output) COMPLEX*16 array, dimension (LDA,N)
! 44: * On exit, the M-by-N coefficient matrix A.
! 45: *
! 46: * LDA (input) INTEGER
! 47: * The leading dimension of the array A. LDA >= max(1,M).
! 48: *
! 49: * INFO (output) INTEGER
! 50: * = 0: successful exit
! 51: * =========
! 52: *
! 53: * .. Local Scalars ..
! 54: INTEGER I, J
! 55: * ..
! 56: * .. Executable Statements ..
! 57: *
! 58: INFO = 0
! 59: DO 20 J = 1, N
! 60: DO 10 I = 1, M
! 61: A( I, J ) = SA( I, J )
! 62: 10 CONTINUE
! 63: 20 CONTINUE
! 64: RETURN
! 65: *
! 66: * End of CLAG2Z
! 67: *
! 68: END
CVSweb interface <joel.bertrand@systella.fr>