SRC/clag2z.f

   1       SUBROUTINE CLAG2Z( M, N, SA, LDSA, A, LDA, INFO)
   2 *
   3 *  -- LAPACK PROTOTYPE auxilary routine (version 3.1.1) --
   4 *     Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
   5 *     January 2007
   6 *
   7 *     ..
   8 *     .. WARNING: PROTOTYPE ..
   9 *     This is an LAPACK PROTOTYPE routine which means that the
  10 *     interface of this routine is likely to be changed in the future
  11 *     based on community feedback.
  12 *
  13 *     ..
  14 *     .. Scalar Arguments ..
  15       INTEGER INFO,LDA,LDSA,M,N
  16 *     ..
  17 *     .. Array Arguments ..
  18       COMPLEX SA(LDSA,*)
  19       COMPLEX*16 A(LDA,*)
  20 *     ..
  21 *
  22 *  Purpose
  23 *  =======
  24 *
  25 *  CLAG2Z converts a COMPLEX SINGLE PRECISION matrix, SA, to a COMPLEX
  26 *  DOUBLE PRECISION matrix, A.
  27 *
  28 *  Note that while it is possible to overflow while converting
  29 *  from double to single, it is not possible to overflow when
  30 *  converting from single to double.
  31 *
  32 *  This is a helper routine so there is no argument checking.
  33 *
  34 *  Arguments
  35 *  =========
  36 *
  37 *  M       (input) INTEGER
  38 *          The number of lines of the matrix A.  M >= 0.
  39 *
  40 *  N       (input) INTEGER
  41 *          The number of columns of the matrix A.  N >= 0.
  42 *
  43 *  SA      (output) REAL array, dimension (LDSA,N)
  44 *          On exit, the M-by-N coefficient matrix SA.
  45 *
  46 *  LDSA    (input) INTEGER
  47 *          The leading dimension of the array SA.  LDSA >= max(1,M).
  48 *
  49 *  A       (input) DOUBLE PRECISION array, dimension (LDA,N)
  50 *          On entry, the M-by-N coefficient matrix A.
  51 *
  52 *  LDA     (input) INTEGER
  53 *          The leading dimension of the array A.  LDA >= max(1,M).
  54 *
  55 *  INFO    (output) INTEGER
  56 *          = 0:  successful exit
  57 *  =========
  58 *
  59 *     .. Local Scalars ..
  60       INTEGER I,J
  61 *     ..
  62 *     .. Executable Statements ..
  63 *
  64       INFO = 0
  65       DO 20 J = 1,N
  66           DO 30 I = 1,M
  67               A(I,J) = SA(I,J)
  68    30     CONTINUE
  69    20 CONTINUE
  70       RETURN
  71 *
  72 *     End of CLAG2Z
  73 *
  74       END