[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.4 and 1.5

version 1.4, 2020/05/21 21:46:05 version 1.5, 2023/08/07 08:39:24
Line 7 Line 7
 *  *
 *> \htmlonly  *> \htmlonly
 *> Download ZHETRD_HB2ST + dependencies  *> Download ZHETRD_HB2ST + dependencies
 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/zhbtrd_hb2st.f">  *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/zhetrd_hb2st.f">
 *> [TGZ]</a>  *> [TGZ]</a>
 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/zhbtrd_hb2st.f">  *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/zhetrd_hb2st.f">
 *> [ZIP]</a>  *> [ZIP]</a>
 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/zhbtrd_hb2st.f">  *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/zhetrd_hb2st.f">
 *> [TXT]</a>  *> [TXT]</a>
 *> \endhtmlonly  *> \endhtmlonly
 *  *
Line 188 Line 188
 *> \author Univ. of Colorado Denver  *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.  *> \author NAG Ltd.
 *  *
 *> \date November 2017  
 *  
 *> \ingroup complex16OTHERcomputational  *> \ingroup complex16OTHERcomputational
 *  *
 *> \par Further Details:  *> \par Further Details:
Line 237 Line 235
 *  *
       IMPLICIT NONE        IMPLICIT NONE
 *  *
 *  -- LAPACK computational routine (version 3.8.0) --  *  -- LAPACK computational routine --
 *  -- 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..--
 *     November 2017  
 *  *
 *     .. Scalar Arguments ..  *     .. Scalar Arguments ..
       CHARACTER          STAGE1, UPLO, VECT        CHARACTER          STAGE1, UPLO, VECT
Line 395 Line 392
 *     For that, for real precision just copy the diag and offdiag   *     For that, for real precision just copy the diag and offdiag 
 *     to D and E while for the COMPLEX case the bulge chasing is    *     to D and E while for the COMPLEX case the bulge chasing is  
 *     performed to convert the hermetian tridiagonal to symmetric   *     performed to convert the hermetian tridiagonal to symmetric 
 *     tridiagonal. A simpler coversion formula might be used, but then   *     tridiagonal. A simpler conversion formula might be used, but then 
 *     updating the Q matrix will be required and based if Q is generated  *     updating the Q matrix will be required and based if Q is generated
 *     or not this might complicate the story.   *     or not this might complicate the story. 
 *        *      
Line 512  C                 END IF Line 509  C                 END IF
 *  *
 *                         Call the kernel  *                         Call the kernel
 *                               *                             
 #if defined(_OPENMP)  #if defined(_OPENMP) &&  _OPENMP >= 201307
   
                           IF( TTYPE.NE.1 ) THEN                                  IF( TTYPE.NE.1 ) THEN      
 !$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1))  !$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1))
 !$OMP$     DEPEND(in:WORK(MYID-1))  !$OMP$     DEPEND(in:WORK(MYID-1))
Removed from v.1.4  
changed lines
  Added in v.1.5

CVSweb interface <joel.bertrand@systella.fr>