51 IF (
abs(kontrl) .GT. 2)
THEN
52 WRITE (xern1,
'(I8)') kontrl
53 CALL
xermsg(
'SLATEC',
'XSETF',
54 *
'INVALID ARGUMENT = ' // xern1, 1, 2)
58 junk =
j4save(2,kontrl,.true.)
subroutine xermsg(LIBRAR, SUBROU, MESSG, NERR, LEVEL)
OCTAVE_EXPORT octave_value_list return the value of the option it must match the dimension of the state and the relative tolerance must also be a vector of the same length tem it must match the dimension of the state and the absolute tolerance must also be a vector of the same length The local error test applied at each integration step is xample roup abs(local error in x(i))<
function j4save(IWHICH, IVALUE, ISET)