SYNOPSIS

REAL FUNCTION

CLA_PORPVGRW( UPLO, NCOLS, A, LDA, AF, LDAF, WORK )

    

IMPLICIT NONE

    

CHARACTER*1 UPLO

    

INTEGER NCOLS, LDA, LDAF

    

COMPLEX A( LDA, * ), AF( LDAF, * )

    

REAL WORK( * )

PURPOSE

ARGUMENTS