function
petsc-3.3-p3 2012-08-29
err = PetscInitialize(args,argfile,arghelp)
if ~libisloaded('libpetsc')
PETSC_DIR = getenv('PETSC_DIR');
PETSC_ARCH = getenv('PETSC_ARCH');
if (length(PETSC_DIR) == 0)
disp('Must have environmental variable PETSC_DIR set')
end
if (length(PETSC_ARCH) == 0)
disp('Must have environmental variable PETSC_ARCH set')
end
loadlibrary([PETSC_DIR '/' PETSC_ARCH '/lib/' 'libpetsc'], [PETSC_DIR '/bin/matlab/classes/matlabheader.h']);
end
if (nargin == 0)
args = '';
end
if (nargin < 2)
argfile = '';
end
if (nargin < 3)
arghelp = '';
end
if (ischar(args))
args = {args};
end
global options
if (length(options) > 0)
args = [args,options];
disp('Using additional options')
disp(options)
end
arg = ['matlab',args];
init = 0;
err = calllib('libpetsc', 'PetscInitialized',init);
if (init)
err = calllib('libpetsc', 'PetscFinalize');PetscCHKERRQ(err);
end
err = calllib('libpetsc', 'PetscInitializeNoPointers', length(arg), arg,argfile,arghelp);PetscCHKERRQ(err);