/usr/share/octave/site/m/sundialsTB/startup_STB.m is in octave-sundials 2.5.0-3+b1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 | function [] = startup_STB(stb)
% STARTUP_STB path/environment setup script for sundialsTB
% Radu Serban <radu@llnl.gov>
% Copyright (c) 2007, The Regents of the University of California.
% $Revision: 1.7 $Date: 2007/12/05 21:58:17 $
% If called without any argument, use the path specified which was
% harcoded when startup_STB.m was created.
if nargin == 0
stb_path = './octave';
stb = fullfile(stb_path,'sundialsTB');
end
if ~exist(stb, 'dir')
warning('SUNDIALS Toolbox not found');
return
end
% Add top-level directory to path
addpath(stb);
% Add sundialsTB components to path
q = fullfile(stb,'cvodes');
if exist(q, 'dir')
addpath(q);
q = fullfile(stb,'cvodes','cvm');
addpath(q);
q = fullfile(stb,'cvodes','function_types');
addpath(q);
end
q = fullfile(stb,'idas');
if exist(q, 'dir')
addpath(q);
q = fullfile(stb,'idas','idm');
addpath(q);
q = fullfile(stb,'idas','function_types');
addpath(q);
end
q = fullfile(stb,'kinsol');
if exist(q, 'dir')
addpath(q);
q = fullfile(stb,'kinsol','kim');
addpath(q);
q = fullfile(stb,'kinsol','function_types');
addpath(q);
end
q = fullfile(stb,'nvector');
if exist(q, 'dir')
addpath(q);
end
q = fullfile(stb,'putils');
if exist(q, 'dir')
addpath(q);
end
|