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

Chapter 9 LAPACK Auxiliary Subprograms 677
Compute norm of symmetric or Hermitian tridiagonal matrix SLANST/DLANST/CLANHT/ZLANHT
Usage LAPACK:
CHARACTER*1 norm
INTEGER*4 n
REAL*4 d(n), e(n−1)
REAL*4 anorm, SLANST
anorm = SLANST(norm, n, d, e)
CHARACTER*1 norm
INTEGER*4 n
REAL*8 d(n), e(n−1)
REAL*8 anorm, DLANST
anorm = DLANST(norm, n, d, e)
CHARACTER*1 norm
INTEGER*4 n
REAL*4 d(n)
COMPLEX*8 e(n−1)
REAL*4 anorm, CLANHT
anorm = CLANHT(norm, n, d, e)
CHARACTER*1 norm
INTEGER*4 n
REAL*8 d(n)
COMPLEX*16 e(n−1)
REAL*8 anorm, ZLANHT
anorm = ZLANHT(norm, n, d, e)
LAPACK8:
CHARACTER*1 norm
INTEGER*8 n
REAL*4 d(n), e(n−1)
REAL*4 anorm, SLANST
anorm = SLANST(norm, n, d, e)
CHARACTER*1 norm
INTEGER*8 n
REAL*8 d(n), e(n−1)
REAL*8 anorm, DLANST
anorm = DLANST(norm, n, d, e)