SRC/clag2z.f

   1 *> \brief \b CLAG2Z
   2 *
   3 *  =========== DOCUMENTATION ===========
   4 *
   5 * Online html documentation available at
   6 *            http://www.netlib.org/lapack/explore-html/
   7 *
   8 *  Definition
   9 *  ==========
  10 *
  11 *       SUBROUTINE CLAG2Z( M, N, SA, LDSA, A, LDA, INFO )
  12 *
  13 *       .. Scalar Arguments ..
  14 *       INTEGER            INFO, LDA, LDSA, M, N
  15 *       ..
  16 *       .. Array Arguments ..
  17 *       COMPLEX            SA( LDSA, * )
  18 *       COMPLEX*16         A( LDA, * )
  19 *       ..
  20 *
  21 *  Purpose
  22 *  =======
  23 *
  24 *>\details \b Purpose:
  25 *>\verbatim
  26 *>
  27 *> CLAG2Z converts a COMPLEX matrix, SA, to a COMPLEX*16 matrix, A.
  28 *>
  29 *> Note that while it is possible to overflow while converting
  30 *> from double to single, it is not possible to overflow when
  31 *> converting from single to double.
  32 *>
  33 *> This is an auxiliary routine so there is no argument checking.
  34 *>
  35 *>\endverbatim
  36 *
  37 *  Arguments
  38 *  =========
  39 *
  40 *> \param[in] M
  41 *> \verbatim
  42 *>          M is INTEGER
  43 *>          The number of lines of the matrix A.  M >= 0.
  44 *> \endverbatim
  45 *>
  46 *> \param[in] N
  47 *> \verbatim
  48 *>          N is INTEGER
  49 *>          The number of columns of the matrix A.  N >= 0.
  50 *> \endverbatim
  51 *>
  52 *> \param[in] SA
  53 *> \verbatim
  54 *>          SA is COMPLEX array, dimension (LDSA,N)
  55 *>          On entry, the M-by-N coefficient matrix SA.
  56 *> \endverbatim
  57 *>
  58 *> \param[in] LDSA
  59 *> \verbatim
  60 *>          LDSA is INTEGER
  61 *>          The leading dimension of the array SA.  LDSA >= max(1,M).
  62 *> \endverbatim
  63 *>
  64 *> \param[out] A
  65 *> \verbatim
  66 *>          A is COMPLEX*16 array, dimension (LDA,N)
  67 *>          On exit, the M-by-N coefficient matrix A.
  68 *> \endverbatim
  69 *>
  70 *> \param[in] LDA
  71 *> \verbatim
  72 *>          LDA is INTEGER
  73 *>          The leading dimension of the array A.  LDA >= max(1,M).
  74 *> \endverbatim
  75 *>
  76 *> \param[out] INFO
  77 *> \verbatim
  78 *>          INFO is INTEGER
  79 *>          = 0:  successful exit
  80 *> \endverbatim
  81 *>
  82 *
  83 *  Authors
  84 *  =======
  85 *
  86 *> \author Univ. of Tennessee
  87 *> \author Univ. of California Berkeley
  88 *> \author Univ. of Colorado Denver
  89 *> \author NAG Ltd.
  90 *
  91 *> \date November 2011
  92 *
  93 *> \ingroup complex16OTHERauxiliary
  94 *
  95 *  =====================================================================
  96       SUBROUTINE CLAG2Z( M, N, SA, LDSA, A, LDA, INFO )
  97 *
  98 *  -- LAPACK auxiliary routine (version 3.3.1) --
  99 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
 100 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
 101 *     November 2011
 102 *
 103 *     .. Scalar Arguments ..
 104       INTEGER            INFO, LDA, LDSA, M, N
 105 *     ..
 106 *     .. Array Arguments ..
 107       COMPLEX            SA( LDSA, * )
 108       COMPLEX*16         A( LDA, * )
 109 *     ..
 110 *
 111 *  =====================================================================
 112 *
 113 *     .. Local Scalars ..
 114       INTEGER            I, J
 115 *     ..
 116 *     .. Executable Statements ..
 117 *
 118       INFO = 0
 119       DO 20 J = 1, N
 120          DO 10 I = 1, M
 121             A( I, J ) = SA( I, J )
 122    10    CONTINUE
 123    20 CONTINUE
 124       RETURN
 125 *
 126 *     End of CLAG2Z
 127 *
 128       END