--- rpl/lapack/lapack/zhetrf_aa.f	2020/05/21 21:46:05	1.5
+++ rpl/lapack/lapack/zhetrf_aa.f	2023/08/07 08:39:25	1.6
@@ -125,17 +125,14 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \date November 2017
-*
 *> \ingroup complex16HEcomputational
 *
 *  =====================================================================
       SUBROUTINE ZHETRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO)
 *
-*  -- 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
 *
       IMPLICIT NONE
 *
@@ -462,6 +459,7 @@
       END IF
 *
    20 CONTINUE
+      WORK( 1 ) = LWKOPT
       RETURN
 *
 *     End of ZHETRF_AA