/usr/share/octave/site/m/sundialsTB/idas/IDAInitB.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 | function [idxB, status] = IDAInitB(fctB, tB0, yyB0, ypB0, optionsB)
%IDAInitB allocates and initializes backward memory for CVODES.
%
% Usage: IDXB = IDAInitB ( DAEFUNB, TB0, YYB0, YPB0 [, OPTIONSB] )
%
% DAEFUNB is a function defining the adjoint DAE: F(t,y,y',yB,yB')=0
% This function must return a vector containing the current
% value of the adjoint DAE residual.
% TB0 is the final value of t.
% YYB0 is the final condition vector yB(tB0).
% YPB0 is the final condition vector yB'(tB0).
% OPTIONSB is an (optional) set of integration options, created with
% the IDASetOptions function.
%
% IDAInitB returns the index IDXB associated with this backward
% problem. This index must be passed as an argument to any subsequent
% functions related to this backward problem.
%
% See also: IDASetOptions, IDAResFnB
%
% Radu Serban <radu@llnl.gov>
% Copyright (c) 2007, The Regents of the University of California.
% $Revision: 1.2 $Date: 2007/12/05 21:58:18 $
mode = 5;
if nargin < 4
error('Too few input arguments');
end
if nargin < 5
optionsB = [];
end
[idxB, status] = idm(mode, fctB, tB0, yyB0, ypB0, optionsB);
idxB = idxB+1;
|