SYNOPSIS
- REAL FUNCTION
- CLA_HERPVGRW( UPLO, N, INFO, A, LDA, AF, LDAF, IPIV, WORK )
- IMPLICIT NONE
- CHARACTER*1 UPLO
- INTEGER N, INFO, LDA, LDAF
- INTEGER IPIV( * )
- COMPLEX A( LDA, * ), AF( LDAF, * )
- REAL WORK( * )
PURPOSE
CLA_HERPVGRW computes ... .ARGUMENTS