Return to clag2z.f CVS log

Up to [local] / rpl / lapack / lapack

Mise à jour de Lapack vers la version 3.4.2 et des scripts de compilation
pour rplcas. En particulier, le Makefile.am de giac a été modifié pour ne
compiler que le répertoire src.

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