[BACK]Return to zhetrd_hb2st.F CVS log [TXT] [DIR] Up to [local] / rpl / lapack / lapack

Diff for /rpl/lapack/lapack/zhetrd_hb2st.F between versions 1.3 and 1.4

version 1.3, 2018/05/29 07:18:20 version 1.4, 2020/05/21 21:46:05
Line 50 Line 50
 *  Arguments:  *  Arguments:
 *  ==========  *  ==========
 *  *
 *> \param[in] STAGE  *> \param[in] STAGE1
 *> \verbatim  *> \verbatim
 *>          STAGE is CHARACTER*1  *>          STAGE1 is CHARACTER*1
 *>          = 'N':  "No": to mention that the stage 1 of the reduction    *>          = 'N':  "No": to mention that the stage 1 of the reduction  
 *>                  from dense to band using the zhetrd_he2hb routine  *>                  from dense to band using the zhetrd_he2hb routine
 *>                  was not called before this routine to reproduce AB.   *>                  was not called before this routine to reproduce AB. 
Line 188 Line 188
 *> \author Univ. of Colorado Denver  *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.  *> \author NAG Ltd.
 *  *
 *> \date December 2016  *> \date November 2017
 *  *
 *> \ingroup complex16OTHERcomputational  *> \ingroup complex16OTHERcomputational
 *  *
Line 237 Line 237
 *  *
       IMPLICIT NONE        IMPLICIT NONE
 *  *
 *  -- LAPACK computational routine (version 3.7.0) --  *  -- LAPACK computational routine (version 3.8.0) --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --  *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--  *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
 *     December 2016  *     November 2017
 *  *
 *     .. Scalar Arguments ..  *     .. Scalar Arguments ..
       CHARACTER          STAGE1, UPLO, VECT        CHARACTER          STAGE1, UPLO, VECT
Line 273 Line 273
       COMPLEX*16         TMP        COMPLEX*16         TMP
 *     ..  *     ..
 *     .. External Subroutines ..  *     .. External Subroutines ..
       EXTERNAL           ZHB2ST_KERNELS, ZLACPY, ZLASET        EXTERNAL           ZHB2ST_KERNELS, ZLACPY, ZLASET, XERBLA
 *     ..  *     ..
 *     .. Intrinsic Functions ..  *     .. Intrinsic Functions ..
       INTRINSIC          MIN, MAX, CEILING, DBLE, REAL        INTRINSIC          MIN, MAX, CEILING, DBLE, REAL
 *     ..  *     ..
 *     .. External Functions ..  *     .. External Functions ..
       LOGICAL            LSAME        LOGICAL            LSAME
       INTEGER            ILAENV         INTEGER            ILAENV2STAGE 
       EXTERNAL           LSAME, ILAENV        EXTERNAL           LSAME, ILAENV2STAGE
 *     ..  *     ..
 *     .. Executable Statements ..  *     .. Executable Statements ..
 *  *
Line 297 Line 297
 *  *
 *     Determine the block size, the workspace size and the hous size.  *     Determine the block size, the workspace size and the hous size.
 *  *
       IB     = ILAENV( 18, 'ZHETRD_HB2ST', VECT, N, KD, -1, -1 )        IB     = ILAENV2STAGE( 2, 'ZHETRD_HB2ST', VECT, N, KD, -1, -1 )
       LHMIN  = ILAENV( 19, 'ZHETRD_HB2ST', VECT, N, KD, IB, -1 )        LHMIN  = ILAENV2STAGE( 3, 'ZHETRD_HB2ST', VECT, N, KD, IB, -1 )
       LWMIN  = ILAENV( 20, 'ZHETRD_HB2ST', VECT, N, KD, IB, -1 )        LWMIN  = ILAENV2STAGE( 4, 'ZHETRD_HB2ST', VECT, N, KD, IB, -1 )
 *  *
       IF( .NOT.AFTERS1 .AND. .NOT.LSAME( STAGE1, 'N' ) ) THEN        IF( .NOT.AFTERS1 .AND. .NOT.LSAME( STAGE1, 'N' ) ) THEN
          INFO = -1           INFO = -1
Removed from v.1.3  
changed lines
  Added in v.1.4

CVSweb interface <joel.bertrand@systella.fr>