Return to clag2z.f CVS log

Up to [local] / rpl / lapack / lapack

Mise à jour globale de Lapack 3.2.2.

    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