code fixed: LWKOPT restored in WORK( 1 ) at subroutine end

Author: jip

SRC/chetrf_aa.f

@@ -462,6 +462,7 @@ SUBROUTINE CHETRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO)
       END IF
 *
    20 CONTINUE
+      WORK( 1 ) = LWKOPT
       RETURN
 *
 *     End of CHETRF_AA

SRC/csytrf_aa.f

@@ -460,6 +460,7 @@ SUBROUTINE CSYTRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO)
       END IF
 *
    20 CONTINUE
+      WORK( 1 ) = LWKOPT
       RETURN
 *
 *     End of CSYTRF_AA

SRC/dsytrf_aa.f

@@ -460,6 +460,7 @@ SUBROUTINE DSYTRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO)
       END IF
 *
    20 CONTINUE
+      WORK( 1 ) = LWKOPT
       RETURN
 *
 *     End of DSYTRF_AA

SRC/ssytrf_aa.f

@@ -460,6 +460,7 @@ SUBROUTINE SSYTRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO)
       END IF
 *
    20 CONTINUE
+      WORK( 1 ) = LWKOPT
       RETURN
 *
 *     End of SSYTRF_AA

SRC/zhetrf_aa.f

@@ -462,6 +462,7 @@ SUBROUTINE ZHETRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO)
       END IF
 *
    20 CONTINUE
+      WORK( 1 ) = LWKOPT
       RETURN
 *
 *     End of ZHETRF_AA

SRC/zsytrf_aa.f

@@ -460,6 +460,7 @@ SUBROUTINE ZSYTRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO)
       END IF
 *
    20 CONTINUE
+      WORK( 1 ) = LWKOPT
       RETURN
 *
 *     End of ZSYTRF_AA