SYNOPSIS REAL FUNCTION SLA_PORPVGRW( UPLO, NCOLS, A, LDA, AF, LDAF, WORK ) IMPLICIT NONE CHARACTER*1 UPLO INTEGER NCOLS, LDA, LDAF REAL A( LDA, * ), AF( LDAF, * ), WORK( * ) PURPOSE SLA_PORPVGRW computes ... . ARGUMENTS