/usr/share/octave/site/m/sundialsTB/idas/IDAGet.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 | function [output, status] = IDAGet(key, varargin)
%IDAGet extracts data from the IDAS solver memory.
%
% Usage: RET = IDAGet ( KEY [, P1 [, P2] ... ])
%
% IDAGet returns internal IDAS information based on KEY. For some values
% of KEY, additional arguments may be required and/or more than one output is
% returned.
%
% KEY is a string and should be one of:
% o DerivSolution - Returns a vector containing the K-th order derivative
% of the solution at time T. The time T and order K must be passed through
% the input arguments P1 and P2, respectively:
% DKY = IDAGet('DerivSolution', T, K)
% o ErrorWeights - Returns a vector containing the current error weights.
% EWT = IDAGet('ErrorWeights')
% o CheckPointsInfo - Returns an array of structures with check point information.
% CK = IDAGet('CheckPointInfo)
% Radu Serban <radu@llnl.gov>
% Copyright (c) 2005, The Regents of the University of California.
% $Revision: 1.4 $Date: 2007/12/05 21:58:18 $
mode = 32;
if strcmp(key, 'DerivSolution')
t = varargin{1};
k = varargin{2};
[output, status] = idm(mode,1,t,k);
elseif strcmp(key, 'ErrorWeights')
[output, status] = idm(mode,2);
elseif strcmp(key, 'CheckPointsInfo')
[output, status] = idm(mode,4);
else
error('IDAGet:: Unrecognized key');
end
|