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

Chapter 9 LAPACK Auxiliary Subprograms 673
Compute norm of symmetric or Hermitian packed matrix SLANSP/DLANSP/CLANHP/CLANSP/.../ZLANSP
CHARACTER*1 norm, uplo
INTEGER*4 n
REAL*8 rwork(n)
COMPLEX*16 ap((n*(n+1))/2)
REAL*8 anorm, ZLANHP
anorm = ZLANHP(norm, uplo, n, ap, rwork)
CHARACTER*1 norm, uplo
INTEGER*4 n
REAL*8 rwork(n)
COMPLEX*16 ap((n*(n+1))/2)
REAL*8 anorm, CLANSP
anorm = ZLANSP(norm, uplo, n, ap, rwork)
LAPACK8:
CHARACTER*1 norm, uplo
INTEGER*8 n
REAL*4 ap((n*(n+1))/2), work(n)
REAL*4 anorm, SLANSP
anorm = SLANSP(norm, uplo, n, ap, work)
CHARACTER*1 norm, uplo
INTEGER*8 n
REAL*8 ap((n*(n+1))/2), work(n)
REAL*8 anorm, DLANSP
anorm = DLANSP(norm, uplo, n, ap, work)
CHARACTER*1 norm, uplo
INTEGER*8 n
REAL*4 rwork(n)
COMPLEX*8 ap((n*(n+1))/2)
REAL*4 anorm, CLANHP
anorm = CLANHP(norm, uplo, n, ap, rwork)
CHARACTER*1 norm, uplo
INTEGER*8 n
REAL*4 rwork(n)
COMPLEX*8 ap((n*(n+1))/2)
REAL*4 anorm, CLANSP
anorm = CLANSP(norm, uplo, n, ap, rwork)