function [err] = PetscSNESVIRedundancyCheckInternal(pidsnes,pidis_act,pidis_redact,funcname,ctx)
%
%   Used by vi->checkredundancy
%
%
err       = 0;
snes      = PetscSNES(pidsnes,'pobj');
isact     = PetscIS(pidis_act,'pobj');
is_redact = PetscIS(pidis_redact,'pobj');

[err,is_redact] = feval(funcname,snes,isact,is_redact,ctx);