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