SRC/clag2z.f

   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