HP MLIB User's Guide Vol. 2 7th Ed.

Chapter 9 LAPACK Auxiliary Subprograms 681
Compute norm of symmetric or Hermitian matrix SLANSY/DLANSY/CLANHE/CLANSY/ZLANHE//ZLANSY
CHARACTER*1 norm, uplo
INTEGER*4 lda, n
REAL*4 rwork(n)
COMPLEX*8 a(lda, n)
REAL*4 anorm, CLANSY
anorm = CLANSY(norm, uplo, n, a, lda, rwork)
CHARACTER*1 norm, uplo
INTEGER*4 lda, n
REAL*8 rwork(n)
COMPLEX*16 a(lda, n)
REAL*8 anorm, ZLANHE
anorm = ZLANHE(norm, uplo, n, a, lda, rwork)
CHARACTER*1 norm, uplo
INTEGER*4 lda, n
REAL*8 rwork(n)
COMPLEX*16 a(lda, n)
REAL*8 anorm, ZLANSY
anorm = ZLANSY(norm, uplo, n, a, lda, rwork)
LAPACK8:
CHARACTER*1 norm, uplo
INTEGER*8 lda, n
REAL*4 a(lda, n), work(n)
REAL*4 anorm, SLANSY
anorm = SLANSY(norm, uplo, n, a, lda, work)
CHARACTER*1 norm, uplo
INTEGER*8 lda, n
REAL*8 a(lda, n), work(n)
REAL*8 anorm, DLANSY
anorm = DLANSY(norm, uplo, n, a, lda, work)
CHARACTER*1 norm, uplo
INTEGER*8 lda, n
REAL*4 rwork(n)
COMPLEX*8 a(lda, n)
REAL*4 anorm, CLANHE
anorm = CLANHE(norm, uplo, n, a, lda, rwork)