--- rpl/lapack/lapack/zhetrd_hb2st.F 2020/05/21 21:46:05 1.4
+++ rpl/lapack/lapack/zhetrd_hb2st.F 2023/08/07 08:39:24 1.5
@@ -7,11 +7,11 @@
*
*> \htmlonly
*> Download ZHETRD_HB2ST + dependencies
-*>
+*>
*> [TGZ]
-*>
+*>
*> [ZIP]
-*>
+*>
*> [TXT]
*> \endhtmlonly
*
@@ -188,8 +188,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Further Details:
@@ -237,10 +235,9 @@
*
IMPLICIT NONE
*
-* -- LAPACK computational routine (version 3.8.0) --
+* -- LAPACK computational routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
* .. Scalar Arguments ..
CHARACTER STAGE1, UPLO, VECT
@@ -395,7 +392,7 @@
* For that, for real precision just copy the diag and offdiag
* to D and E while for the COMPLEX case the bulge chasing is
* 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
* or not this might complicate the story.
*
@@ -512,7 +509,8 @@ C END IF
*
* Call the kernel
*
-#if defined(_OPENMP)
+#if defined(_OPENMP) && _OPENMP >= 201307
+
IF( TTYPE.NE.1 ) THEN
!$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1))
!$OMP$ DEPEND(in:WORK(MYID-1))