mxe-octave: src/of-control-1-deprecated.patch annotate

annotate src/of-control-1-deprecated.patch @ 4957:6a321b868d57

of-control: Updates for default Octave (bug #55670). * of-control-1-deprecated.patch: Cherry pick more upstream patches.

author	Markus Mützel <markus.muetzel@gmx.de>
date	Mon, 11 Feb 2019 23:40:23 +0100
parents	3c2ecfd52069
children

rev	line source
4930 3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	1 # HG changeset patch
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	2 # User Doug Stewart
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	3 # Date 1546452658 18000
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	4 # Wed Jan 02 13:10:58 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	5 # Node ID 1daba0a585562de91c4078183460f325bf879683
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	6 # Parent fa91b35bee7151b8d81cfcb92d6d0ce6454f98d8
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	7 bug #55361 getting ready for Octave 5
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	8
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	9 diff -r fa91b35bee71 -r 1daba0a58556 src/__control_helper_functions__.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	10 --- a/src/__control_helper_functions__.cc Fri May 04 04:10:35 2018 +0200
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	11 +++ b/src/__control_helper_functions__.cc Wed Jan 02 13:10:58 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	12 @@ -6,7 +6,7 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	13 #include "is_zp_vector.cc"
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	14 #include "lti_input_idx.cc"
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	15
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	16 -#include "nfields2.cc" // delete this if support for Octave 3.8 gets dropped
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	17 +// #include "nfields2.cc" // delete this if support for Octave 3.8 gets dropped
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	18
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	19
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	20
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	21 # HG changeset patch
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	22 # User Doug Stewart
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	23 # Date 1546468344 18000
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	24 # Wed Jan 02 17:32:24 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	25 # Node ID e8c2f63907da0ec4729ba4f33c2d54d674838d45
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	26 # Parent 1daba0a585562de91c4078183460f325bf879683
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	27 is_matrix.cc bug #55361 getting ready for Octave 5
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	28
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	29 diff -r 1daba0a58556 -r e8c2f63907da src/is_matrix.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	30 --- a/src/is_matrix.cc Wed Jan 02 13:10:58 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	31 +++ b/src/is_matrix.cc Wed Jan 02 17:32:24 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	32 @@ -48,8 +48,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	33 {
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	34 for (octave_idx_type i = 0; i < nargin; i++)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	35 {
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	36 - if (args(i).ndims () != 2 \|\| ! args(i).is_numeric_type ()
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	37 - \|\| ! (args(i).is_complex_type () \|\| args(i).is_real_type ())
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	38 + if (args(i).ndims () != 2 \|\| ! args(i).isnumeric ()
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	39 + \|\| ! (args(i).iscomplex () \|\| args(i).isreal ())
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	40 \|\| (args(i).array_value().isfinite().all().all()(0) != true))
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	41 {
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	42 retval = false;
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	43 # HG changeset patch
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	44 # User Doug Stewart
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	45 # Date 1546468851 18000
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	46 # Wed Jan 02 17:40:51 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	47 # Node ID a72e758cab961c2a25ab9b8319a9f101c9d8d037
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	48 # Parent e8c2f63907da0ec4729ba4f33c2d54d674838d45
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	49 bug #55361 getting ready for Octave 5
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	50
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	51 diff -r e8c2f63907da -r a72e758cab96 src/is_real_matrix.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	52 --- a/src/is_real_matrix.cc Wed Jan 02 17:32:24 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	53 +++ b/src/is_real_matrix.cc Wed Jan 02 17:40:51 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	54 @@ -48,8 +48,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	55 {
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	56 for (octave_idx_type i = 0; i < nargin; i++)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	57 {
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	58 - if (args(i).ndims () != 2 \|\| ! args(i).is_numeric_type ()
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	59 - \|\| ! args(i).is_real_type ()
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	60 + if (args(i).ndims () != 2 \|\| ! args(i).isnumeric ()
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	61 + \|\| ! args(i).isreal ()
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	62 \|\| (args(i).array_value().isfinite().all().all()(0) != true))
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	63 {
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	64 retval = false;
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	65 diff -r e8c2f63907da -r a72e758cab96 src/is_real_scalar.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	66 --- a/src/is_real_scalar.cc Wed Jan 02 17:32:24 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	67 +++ b/src/is_real_scalar.cc Wed Jan 02 17:40:51 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	68 @@ -48,8 +48,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	69 {
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	70 for (octave_idx_type i = 0; i < nargin; i++)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	71 {
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	72 if (args(i).ndims () != 2 \|\| ! args(i).is_scalar_type ()
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	73 - \|\| ! args(i).is_numeric_type () \|\| ! args(i).is_real_type ()
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	74 + \|\| ! args(i).isnumeric () \|\| ! args(i).isreal ()
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	75 \|\| (args(i).array_value().isfinite().all().all()(0) != true))
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	76 {
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	77 retval = false;
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	78 # HG changeset patch
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	79 # User Doug Stewart
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	80 # Date 1546469478 18000
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	81 # Wed Jan 02 17:51:18 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	82 # Node ID 0462251d1ef7923540e49c73a8376e87688c0590
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	83 # Parent a72e758cab961c2a25ab9b8319a9f101c9d8d037
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	84 bug #55361 getting ready for Octave 5
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	85
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	86 diff -r a72e758cab96 -r 0462251d1ef7 src/is_real_square_matrix.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	87 --- a/src/is_real_square_matrix.cc Wed Jan 02 17:40:51 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	88 +++ b/src/is_real_square_matrix.cc Wed Jan 02 17:51:18 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	89 @@ -49,7 +49,7 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	90 for (octave_idx_type i = 0; i < nargin; i++)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	91 {
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	92 if (args(i).ndims () != 2 \|\| args(i).rows () != args(i).columns ()
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	93 - \|\| ! args(i).is_numeric_type () \|\| ! args(i).is_real_type ()
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	94 + \|\| ! args(i).isnumeric () \|\| ! args(i).isreal ()
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	95 \|\| (args(i).array_value().isfinite().all().all()(0) != true))
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	96 {
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	97 retval = false;
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	98 diff -r a72e758cab96 -r 0462251d1ef7 src/is_real_vector.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	99 --- a/src/is_real_vector.cc Wed Jan 02 17:40:51 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	100 +++ b/src/is_real_vector.cc Wed Jan 02 17:51:18 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	101 @@ -49,7 +49,7 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	102 for (octave_idx_type i = 0; i < nargin; i++)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	103 {
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	104 if (args(i).ndims () != 2 \|\| ! (args(i).rows () == 1 \|\| args(i).columns () == 1)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	105 - \|\| ! args(i).is_numeric_type () \|\| ! args(i).is_real_type ()
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	106 + \|\| ! args(i).isnumeric () \|\| ! args(i).isreal ()
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	107 \|\| (args(i).array_value().isfinite().all().all()(0) != true))
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	108 {
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	109 retval = false;
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	110 diff -r a72e758cab96 -r 0462251d1ef7 src/is_zp_vector.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	111 --- a/src/is_zp_vector.cc Wed Jan 02 17:40:51 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	112 +++ b/src/is_zp_vector.cc Wed Jan 02 17:51:18 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	113 @@ -50,8 +50,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	114 {
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	115 if (args(i).ndims () != 2
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	116 \|\| (args(i).rows () > 1 && args(i).columns () > 1)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	117 - \|\| ! args(i).is_numeric_type ()
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	118 - \|\| ! (args(i).is_complex_type () \|\| args(i).is_real_type ())
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	119 + \|\| ! args(i).isnumeric ()
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	120 + \|\| ! (args(i).iscomplex () \|\| args(i).isreal ())
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	121 \|\| (args(i).array_value().isfinite().all().all()(0) != true))
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	122 {
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	123 retval = false;
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	124 diff -r a72e758cab96 -r 0462251d1ef7 src/lti_input_idx.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	125 --- a/src/lti_input_idx.cc Wed Jan 02 17:40:51 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	126 +++ b/src/lti_input_idx.cc Wed Jan 02 17:51:18 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	127 @@ -60,7 +60,7 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	128 octave_idx_type nargin = args.length ();
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	129
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	130 // first, check whether a cell is passed
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	131 - if (nargin == 1 && args(0).is_defined () && args(0).is_cell ())
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	132 + if (nargin == 1 && args(0).is_defined () && args(0).iscell ())
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	133 {
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	134 octave_idx_type len = args(0).cell_value().numel();
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	135 octave_idx_type idx = len;
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	136 @@ -87,7 +87,7 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	137 // and after strings) are not recognized as objects.
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	138 // ss (a, b, ltisys, c, d, 'key', val, 'lti', ltisys)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	139 if (len > 0 && idx > 0
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	140 - && args(0).cell_value().elem(idx-1).is_object ())
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	141 + && args(0).cell_value().elem(idx-1).isobject ())
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	142 {
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	143 offset = 1;
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	144 }
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	145 # HG changeset patch
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	146 # User Doug Stewart
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	147 # Date 1546532608 18000
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	148 # Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	149 # Node ID 6f05c32bbbafa758c1d76995e8aab914a67db499
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	150 # Parent 23110e3e6cc745e01e00586ac3cc13d596d8e216
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	151 removed F77_exception_encounterd obsolete
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	152
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	153 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_ab01od.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	154 --- a/src/sl_ab01od.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	155 +++ b/src/sl_ab01od.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	156 @@ -72,7 +72,7 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	157 Matrix a = args(0).matrix_value ();
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	158 Matrix b = args(1).matrix_value ();
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	159 double tol = args(2).double_value ();
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	160 -
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	161 +f77_exception_encountered
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	162 F77_INT n = TO_F77_INT (a.rows ()); // n: number of states
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	163 F77_INT m = TO_F77_INT (b.columns ()); // m: number of inputs
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	164
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	165 @@ -116,8 +116,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	166 dwork, ldwork,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	167 info));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	168
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	169 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	170 - error ("__sl_ab01od__: exception in SLICOT subroutine AB01OD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	171 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	172 +// error ("__sl_ab01od__: exception in SLICOT subroutine AB01OD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	173
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	174 if (info != 0)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	175 error ("__sl_ab01od__: AB01OD returned info = %d", info);
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	176 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_ab04md.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	177 --- a/src/sl_ab04md.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	178 +++ b/src/sl_ab04md.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	179 @@ -111,8 +111,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	180 dwork, ldwork,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	181 info));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	182
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	183 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	184 - error ("__sl_ab04md__: exception in SLICOT subroutine AB04MD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	185 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	186 +// error ("__sl_ab04md__: exception in SLICOT subroutine AB04MD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	187
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	188 if (info != 0)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	189 error ("__sl_ab04md__: AB04MD returned info = %d", info);
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	190 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_ab08nd.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	191 --- a/src/sl_ab08nd.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	192 +++ b/src/sl_ab08nd.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	193 @@ -149,8 +149,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	194 iwork, dwork, ldwork,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	195 info));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	196
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	197 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	198 - error ("ss: zero: __sl_ab08nd__: exception in SLICOT subroutine AB08ND");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	199 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	200 +// error ("ss: zero: __sl_ab08nd__: exception in SLICOT subroutine AB08ND");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	201
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	202 if (info != 0)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	203 error ("ss: zero: __sl_ab08nd__: AB08ND returned info = %d", info);
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	204 @@ -186,8 +186,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	205 work, lwork,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	206 info2));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	207
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	208 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	209 - error ("ss: zero: __sl_ab08nd__: exception in LAPACK subroutine DGGEV");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	210 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	211 +// error ("ss: zero: __sl_ab08nd__: exception in LAPACK subroutine DGGEV");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	212
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	213 if (info2 != 0)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	214 error ("ss: zero: __sl_ab08nd__: DGGEV returned info = %d", info2);
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	215 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_ab09hd.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	216 --- a/src/sl_ab09hd.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	217 +++ b/src/sl_ab09hd.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	218 @@ -174,8 +174,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	219 bwork,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	220 iwarn, info));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	221
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	222 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	223 - error ("bstmodred: exception in SLICOT subroutine AB09HD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	224 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	225 +// error ("bstmodred: exception in SLICOT subroutine AB09HD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	226
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	227
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	228 static const char* err_msg[] = {
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	229 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_ab09id.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	230 --- a/src/sl_ab09id.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	231 +++ b/src/sl_ab09id.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	232 @@ -315,8 +315,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	233 dwork, ldwork,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	234 iwarn, info));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	235
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	236 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	237 - error ("modred: exception in SLICOT subroutine AB09ID");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	238 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	239 +// error ("modred: exception in SLICOT subroutine AB09ID");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	240
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	241
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	242 static const char* err_msg[] = {
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	243 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_ab09jd.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	244 --- a/src/sl_ab09jd.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	245 +++ b/src/sl_ab09jd.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	246 @@ -290,8 +290,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	247 dwork, ldwork,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	248 iwarn, info));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	249
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	250 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	251 - error ("hnamodred: exception in SLICOT subroutine AB09JD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	252 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	253 +// error ("hnamodred: exception in SLICOT subroutine AB09JD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	254
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	255
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	256 static const char* err_msg[] = {
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	257 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_ab13ad.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	258 --- a/src/sl_ab13ad.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	259 +++ b/src/sl_ab13ad.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	260 @@ -98,7 +98,7 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	261
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	262 // workspace
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	263 F77_INT ldwork = max (1, n(max (n, m, p) + 5) + n(n+1)/2);
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	264 -
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	265 + f77_exception_encountered
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	266 OCTAVE_LOCAL_BUFFER (double, dwork, ldwork);
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	267
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	268 // error indicators
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	269 @@ -118,8 +118,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	270 dwork, ldwork,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	271 info));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	272
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	273 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	274 - error ("hsvd: __sl_ab13ad__: exception in SLICOT subroutine AB13AD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	275 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	276 +// error ("hsvd: __sl_ab13ad__: exception in SLICOT subroutine AB13AD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	277
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	278 if (info != 0)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	279 error ("hsvd: __sl_ab13ad__: AB13AD returned info = %d", info);
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	280 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_ab13bd.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	281 --- a/src/sl_ab13bd.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	282 +++ b/src/sl_ab13bd.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	283 @@ -22,7 +22,7 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	284 <http://www.slicot.org>
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	285
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	286 Author: Lukas Reichlin <lukas.reichlin@gmail.com>
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	287 -Created: November 2009
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	288 +Created: November 2009f77_exception_encountered
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	289 Version: 0.5
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	290
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	291 */
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	292 @@ -118,8 +118,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	293 iwarn,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	294 info);
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	295
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	296 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	297 - error ("lti: norm: __sl_ab13bd__: exception in SLICOT subroutine AB13BD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	298 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	299 +// error ("lti: norm: __sl_ab13bd__: exception in SLICOT subroutine AB13BD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	300
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	301 if (info != 0)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	302 error ("lti: norm: __sl_ab13bd__: AB13BD returned info = %d", info);
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	303 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_ab13dd.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	304 --- a/src/sl_ab13dd.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	305 +++ b/src/sl_ab13dd.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	306 @@ -143,8 +143,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	307 cwork, lcwork,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	308 info));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	309
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	310 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	311 - error ("lti: norm: __sl_ab13dd__: exception in SLICOT subroutine AB13DD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	312 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	313 +// error ("lti: norm: __sl_ab13dd__: exception in SLICOT subroutine AB13DD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	314
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	315 static const char* err_msg[] = {
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	316 "0: OK",
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	317 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_ag08bd.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	318 --- a/src/sl_ag08bd.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	319 +++ b/src/sl_ag08bd.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	320 @@ -152,8 +152,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	321 iwork, dwork, ldwork,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	322 info));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	323
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	324 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	325 - error ("dss: zero: __sl_ag08bd__: exception in SLICOT subroutine AG08BD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	326 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	327 +// error ("dss: zero: __sl_ag08bd__: exception in SLICOT subroutine AG08BD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	328
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	329 if (info != 0)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	330 error ("dss: zero: __sl_ag08bd__: AG08BD returned info = %d", info);
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	331 @@ -182,7 +182,7 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	332 OCTAVE_LOCAL_BUFFER (double, work, lwork);
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	333
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	334 F77_INT info2;
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	335 -
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	336 + f77_exception_encountered
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	337 F77_XFCN (dggev, DGGEV,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	338 (jobvl, jobvr,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	339 nfz,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	340 @@ -195,8 +195,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	341 work, lwork,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	342 info2));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	343
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	344 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	345 - error ("dss: zero: __sl_ag08bd__: exception in LAPACK subroutine DGGEV");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	346 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	347 +// error ("dss: zero: __sl_ag08bd__: exception in LAPACK subroutine DGGEV");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	348
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	349 if (info2 != 0)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	350 error ("dss: zero: __sl_ag08bd__: DGGEV returned info = %d", info2);
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	351 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_ib01ad.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	352 --- a/src/sl_ib01ad.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	353 +++ b/src/sl_ib01ad.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	354 @@ -330,8 +330,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	355 iwarn_a, info_a));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	356
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	357
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	358 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	359 - error ("ident: exception in SLICOT subroutine IB01AD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	360 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	361 +// error ("ident: exception in SLICOT subroutine IB01AD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	362
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	363 static const char* err_msg[] = {
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	364 "0: OK",
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	365 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_ib01cd.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	366 --- a/src/sl_ib01cd.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	367 +++ b/src/sl_ib01cd.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	368 @@ -159,8 +159,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	369 iwarn_c, info_c));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	370
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	371
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	372 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	373 - error ("__sl_ib01cd__: exception in SLICOT subroutine IB01CD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	374 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	375 +// error ("__sl_ib01cd__: exception in SLICOT subroutine IB01CD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	376
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	377 static const char* err_msg_c[] = {
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	378 "0: OK",
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	379 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_ident.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	380 --- a/src/sl_ident.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	381 +++ b/src/sl_ident.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	382 @@ -366,8 +366,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	383 iwarn_a, info_a));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	384
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	385
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	386 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	387 - error ("ident: exception in SLICOT subroutine IB01AD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	388 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	389 +// error ("ident: exception in SLICOT subroutine IB01AD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	390
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	391 static const char* err_msg[] = {
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	392 "0: OK",
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	393 @@ -545,8 +545,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	394 iwarn_b, info_b));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	395
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	396
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	397 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	398 - error ("ident: exception in SLICOT subroutine IB01BD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	399 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	400 +// error ("ident: exception in SLICOT subroutine IB01BD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	401
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	402 static const char* err_msg_b[] = {
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	403 "0: OK",
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	404 @@ -667,8 +667,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	405 iwarn_c, info_c));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	406
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	407
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	408 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	409 - error ("ident: exception in SLICOT subroutine IB01CD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	410 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	411 +// error ("ident: exception in SLICOT subroutine IB01CD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	412
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	413 static const char* err_msg_c[] = {
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	414 "0: OK",
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	415 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_mb05nd.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	416 --- a/src/sl_mb05nd.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	417 +++ b/src/sl_mb05nd.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	418 @@ -93,8 +93,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	419 dwork, ldwork,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	420 info));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	421
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	422 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	423 - error ("__sl_mb05nd__: exception in SLICOT subroutine MB05ND");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	424 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	425 +// error ("__sl_mb05nd__: exception in SLICOT subroutine MB05ND");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	426
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	427 if (info > 0)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	428 {
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	429 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sb01bd.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	430 --- a/src/sl_sb01bd.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	431 +++ b/src/sl_sb01bd.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	432 @@ -23,7 +23,7 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	433
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	434 Author: Lukas Reichlin <lukas.reichlin@gmail.com>
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	435 Created: November 2009
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	436 -Version: 0.6
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	437 +Version: 0.6f77_exception_encountered
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	438
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	439 */
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	440
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	441 @@ -121,8 +121,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	442 dwork, ldwork,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	443 iwarn, info));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	444
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	445 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	446 - error ("place: __sl_sb01bd__: exception in SLICOT subroutine SB01BD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	447 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	448 +// error ("place: __sl_sb01bd__: exception in SLICOT subroutine SB01BD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	449
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	450 static const char* err_msg[] = {
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	451 "0: OK",
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	452 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sb02od.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	453 --- a/src/sl_sb02od.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	454 +++ b/src/sl_sb02od.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	455 @@ -170,8 +170,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	456 bwork,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	457 info));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	458
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	459 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	460 - error ("are: __sl_sb02od__: exception in SLICOT subroutine SB02OD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	461 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	462 +// error ("are: __sl_sb02od__: exception in SLICOT subroutine SB02OD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	463
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	464 static const char* err_msg[] = {
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	465 "0: OK",
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	466 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sb03md.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	467 --- a/src/sl_sb03md.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	468 +++ b/src/sl_sb03md.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	469 @@ -118,8 +118,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	470 dwork, ldwork,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	471 info));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	472
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	473 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	474 - error ("lyap: __sl_sb03md__: exception in SLICOT subroutine SB03MD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	475 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	476 +// error ("lyap: __sl_sb03md__: exception in SLICOT subroutine SB03MD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	477
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	478 if (info != 0)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	479 error ("lyap: __sl_sb03md__: SB03MD returned info = %d", info);
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	480 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sb03od.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	481 --- a/src/sl_sb03od.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	482 +++ b/src/sl_sb03od.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	483 @@ -115,8 +115,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	484 dwork, ldwork,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	485 info));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	486
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	487 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	488 - error ("lyapchol: __sl_sb03od__: exception in SLICOT subroutine SB03OD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	489 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	490 +// error ("lyapchol: __sl_sb03od__: exception in SLICOT subroutine SB03OD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	491
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	492 if (info != 0)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	493 error ("lyapchol: __sl_sb03od__: SB03OD returned info = %d", info);
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	494 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sb04md.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	495 --- a/src/sl_sb04md.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	496 +++ b/src/sl_sb04md.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	497 @@ -96,8 +96,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	498 dwork, ldwork,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	499 info));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	501 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	502 - error ("lyap: __sl_sb04md__: exception in SLICOT subroutine SB04MD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	503 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	504 +// error ("lyap: __sl_sb04md__: exception in SLICOT subroutine SB04MD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	505
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	506 if (info != 0)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	507 error ("lyap: __sl_sb04md__: SB04MD returned info = %d", info);
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	508 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sb04qd.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	509 --- a/src/sl_sb04qd.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	510 +++ b/src/sl_sb04qd.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	511 @@ -96,8 +96,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	512 dwork, ldwork,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	513 info));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	514
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	515 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	516 - error ("dlyap: __sl_sb04qd__: exception in SLICOT subroutine SB04QD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	517 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	518 +// error ("dlyap: __sl_sb04qd__: exception in SLICOT subroutine SB04QD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	519
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	520 if (info != 0)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	521 error ("dlyap: __sl_sb04qd__: SB04QD returned info = %d", info);
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	522 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sb10ad.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	523 --- a/src/sl_sb10ad.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	524 +++ b/src/sl_sb10ad.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	525 @@ -189,8 +189,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	526 bwork, lbwork,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	527 info));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	528
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	529 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	530 - error ("hinfsyn: __sl_sb10ad__: exception in SLICOT subroutine SB10AD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	531 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	532 +// error ("hinfsyn: __sl_sb10ad__: exception in SLICOT subroutine SB10AD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	533
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	534 static const char* err_msg[] = {
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	535 "0: successful exit",
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	536 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sb10dd.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	537 --- a/src/sl_sb10dd.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	538 +++ b/src/sl_sb10dd.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	539 @@ -150,8 +150,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	540 bwork,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	541 info));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	542
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	543 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	544 - error ("hinfsyn: __sl_sb10dd__: exception in SLICOT subroutine SB10DD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	545 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	546 +// error ("hinfsyn: __sl_sb10dd__: exception in SLICOT subroutine SB10DD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	547
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	548 static const char* err_msg[] = {
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	549 "0: OK",
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	550 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sb10ed.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	551 --- a/src/sl_sb10ed.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	552 +++ b/src/sl_sb10ed.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	553 @@ -138,8 +138,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	554 bwork,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	555 info));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	556
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	557 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	558 - error ("h2syn: __sl_sb10ed__: exception in SLICOT subroutine SB10ED");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	559 + // if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	560 + // error ("h2syn: __sl_sb10ed__: exception in SLICOT subroutine SB10ED");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	561
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	562 static const char* err_msg[] = {
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	563 "0: OK",
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	564 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sb10fd.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	565 --- a/src/sl_sb10fd.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	566 +++ b/src/sl_sb10fd.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	567 @@ -143,8 +143,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	568 bwork,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	569 info));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	570
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	571 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	572 - error ("hinfsyn: __sl_sb10fd__: exception in SLICOT subroutine SB10FD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	573 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	574 +// error ("hinfsyn: __sl_sb10fd__: exception in SLICOT subroutine SB10FD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	575
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	576 static const char* err_msg[] = {
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	577 "0: OK",
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	578 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sb10hd.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	579 --- a/src/sl_sb10hd.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	580 +++ b/src/sl_sb10hd.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	581 @@ -135,8 +135,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	582 bwork,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	583 info));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	584
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	585 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	586 - error ("h2syn: __sl_sb10hd__: exception in SLICOT subroutine SB10HD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	587 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	588 +// error ("h2syn: __sl_sb10hd__: exception in SLICOT subroutine SB10HD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	589
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	590 static const char* err_msg[] = {
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	591 "0: OK",
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	592 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sb10id.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	593 --- a/src/sl_sb10id.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	594 +++ b/src/sl_sb10id.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	595 @@ -127,8 +127,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	596 bwork,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	597 info));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	598
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	599 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	600 - error ("ncfsyn: __sl_sb10id__: exception in SLICOT subroutine SB10ID");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	601 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	602 +// error ("ncfsyn: __sl_sb10id__: exception in SLICOT subroutine SB10ID");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	603
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	604 static const char* err_msg[] = {
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	605 "0: OK",
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	606 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sb10jd.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	607 --- a/src/sl_sb10jd.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	608 +++ b/src/sl_sb10jd.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	609 @@ -100,8 +100,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	610 dwork, ldwork,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	611 info));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	612
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	613 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	614 - error ("__sl_sb10jd__: exception in SLICOT subroutine SB10JD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	615 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	616 +// error ("__sl_sb10jd__: exception in SLICOT subroutine SB10JD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	617
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	618 if (info != 0)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	619 error ("__sl_sb10jd__: SB10JD returned info = %d", info);
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	620 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sb10kd.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	621 --- a/src/sl_sb10kd.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	622 +++ b/src/sl_sb10kd.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	623 @@ -123,8 +123,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	624 bwork,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	625 info));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	626
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	627 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	628 - error ("ncfsyn: slsb10kd: exception in SLICOT subroutine SB10KD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	629 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	630 +// error ("ncfsyn: slsb10kd: exception in SLICOT subroutine SB10KD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	631
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	632 static const char* err_msg[] = {
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	633 "0: OK",
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	634 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sb10yd.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	635 --- a/src/sl_sb10yd.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	636 +++ b/src/sl_sb10yd.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	637 @@ -141,8 +141,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	638 zwork, lzwork,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	639 info));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	640
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	641 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	642 - error ("fitfrd: __sl_sb10yd__: exception in SLICOT subroutine SB10YD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	643 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	644 +// error ("fitfrd: __sl_sb10yd__: exception in SLICOT subroutine SB10YD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	645
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	646 if (info != 0)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	647 error ("fitfrd: __sl_sb10yd__: SB10YD returned info = %d", info);
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	648 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sb10zd.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	649 --- a/src/sl_sb10zd.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	650 +++ b/src/sl_sb10zd.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	651 @@ -130,8 +130,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	652 bwork,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	653 info));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	654
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	655 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	656 - error ("ncfsyn: __sl_sb10zd__: exception in SLICOT subroutine SB10ZD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	657 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	658 +// error ("ncfsyn: __sl_sb10zd__: exception in SLICOT subroutine SB10ZD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	659
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	660 static const char* err_msg[] = {
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	661 "0: OK",
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	662 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sb16ad.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	663 --- a/src/sl_sb16ad.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	664 +++ b/src/sl_sb16ad.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	665 @@ -261,8 +261,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	666 iwarn, info));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	667
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	668
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	669 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	670 - error ("conred: exception in SLICOT subroutine SB16AD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	671 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	672 +// error ("conred: exception in SLICOT subroutine SB16AD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	673
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	674 static const char* err_msg[] = {
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	675 "0: OK",
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	676 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sb16bd.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	677 --- a/src/sl_sb16bd.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	678 +++ b/src/sl_sb16bd.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	679 @@ -225,8 +225,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	680 iwarn, info));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	681
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	682
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	683 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	684 - error ("cfconred: exception in SLICOT subroutine SB16BD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	685 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	686 +// error ("cfconred: exception in SLICOT subroutine SB16BD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	687
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	688 static const char* err_msg[] = {
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	689 "0: OK",
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	690 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sb16cd.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	691 --- a/src/sl_sb16cd.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	692 +++ b/src/sl_sb16cd.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	693 @@ -190,8 +190,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	694 iwarn, info));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	695
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	696
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	697 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	698 - error ("fwcfconred: exception in SLICOT subroutine SB16CD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	699 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	700 +// error ("fwcfconred: exception in SLICOT subroutine SB16CD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	701
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	702 static const char* err_msg[] = {
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	703 "0: OK",
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	704 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sg02ad.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	705 --- a/src/sl_sg02ad.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	706 +++ b/src/sl_sg02ad.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	707 @@ -179,8 +179,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	708 bwork,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	709 iwarn, info));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	710
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	711 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	712 - error ("are: __sl_sg02ad__: exception in SLICOT subroutine SG02AD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	713 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	714 +// error ("are: __sl_sg02ad__: exception in SLICOT subroutine SG02AD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	715
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	716 static const char* err_msg[] = {
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	717 "0: OK",
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	718 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sg03ad.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	719 --- a/src/sl_sg03ad.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	720 +++ b/src/sl_sg03ad.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	721 @@ -132,8 +132,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	722 dwork, ldwork,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	723 info));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	724
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	725 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	726 - error ("lyap: __sl_sg03ad__: exception in SLICOT subroutine SG03AD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	727 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	728 +// error ("lyap: __sl_sg03ad__: exception in SLICOT subroutine SG03AD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	729
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	730 if (info != 0)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	731 error ("lyap: __sl_sg03ad__: SG03AD returned info = %d", info);
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	732 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_sg03bd.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	733 --- a/src/sl_sg03bd.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	734 +++ b/src/sl_sg03bd.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	735 @@ -123,8 +123,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	736 dwork, ldwork,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	737 info));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	738
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	739 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	740 - error ("lyap: __sl_sg03bd__: exception in SLICOT subroutine SG03BD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	741 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	742 +// error ("lyap: __sl_sg03bd__: exception in SLICOT subroutine SG03BD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	743
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	744 if (info != 0)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	745 error ("lyap: __sl_sg03bd__: SG03BD returned info = %d", info);
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	746 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_tb01id.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	747 --- a/src/sl_tb01id.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	748 +++ b/src/sl_tb01id.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	749 @@ -95,8 +95,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	750 scale.fortran_vec (),
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	751 info));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	752
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	753 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	754 - error ("ss: prescale: __sl_tb01id__: exception in SLICOT subroutine TB01ID");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	755 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	756 +// error ("ss: prescale: __sl_tb01id__: exception in SLICOT subroutine TB01ID");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	757
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	758 if (info != 0)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	759 error ("ss: prescale: __sl_tb01id__: TB01ID returned info = %d", info);
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	760 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_tb01pd.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	761 --- a/src/sl_tb01pd.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	762 +++ b/src/sl_tb01pd.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	763 @@ -119,8 +119,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	764 dwork, ldwork,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	765 info));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	766
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	767 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	768 - error ("ss: minreal: __sl_tb01pd__: exception in SLICOT subroutine TB01PD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	769 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	770 +// error ("ss: minreal: __sl_tb01pd__: exception in SLICOT subroutine TB01PD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	771
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	772 if (info != 0)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	773 error ("ss: minreal: __sl_tb01pd__: TB01PD returned info = %d", info);
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	774 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_tb01ud.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	775 --- a/src/sl_tb01ud.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	776 +++ b/src/sl_tb01ud.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	777 @@ -116,8 +116,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	778 dwork, ldwork,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	779 info));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	780
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	781 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	782 - error ("__sl_tb01ud__: exception in SLICOT subroutine TB01UD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	783 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	784 +// error ("__sl_tb01ud__: exception in SLICOT subroutine TB01UD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	785
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	786 if (info != 0)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	787 error ("__sl_tb01ud__: TB01UD returned info = %d", info);
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	788 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_tb04bd.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	789 --- a/src/sl_tb04bd.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	790 +++ b/src/sl_tb04bd.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	791 @@ -131,8 +131,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	792 dwork, ldwork,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	793 info));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	794
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	795 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	796 - error ("ss2tf: __sl_tb04bd__: exception in SLICOT subroutine TB04BD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	797 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	798 +// error ("ss2tf: __sl_tb04bd__: exception in SLICOT subroutine TB04BD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	799
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	800 if (info != 0)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	801 error ("ss2tf: __sl_tb04bd__: TB04BD returned info = %d", info);
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	802 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_td04ad.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	803 --- a/src/sl_td04ad.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	804 +++ b/src/sl_td04ad.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	805 @@ -130,8 +130,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	806 dwork, ldwork,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	807 info));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	808
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	809 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	810 - error ("tf2ss: __sl_td04ad__: exception in SLICOT subroutine TD04AD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	811 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	812 +// error ("tf2ss: __sl_td04ad__: exception in SLICOT subroutine TD04AD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	813
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	814 if (info != 0)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	815 error ("tf2ss: __sl_td04ad__: TD04AD returned info = %d", info);
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	816 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_tg01ad.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	817 --- a/src/sl_tg01ad.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	818 +++ b/src/sl_tg01ad.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	819 @@ -105,8 +105,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	820 dwork,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	821 info));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	822
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	823 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	824 - error ("ss: prescale: __sl_tg01ad__: exception in SLICOT subroutine TG01AD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	825 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	826 +// error ("ss: prescale: __sl_tg01ad__: exception in SLICOT subroutine TG01AD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	827
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	828 if (info != 0)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	829 error ("ss: prescale: __sl_tg01ad__: TG01AD returned info = %d", info);
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	830 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_tg01fd.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	831 --- a/src/sl_tg01fd.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	832 +++ b/src/sl_tg01fd.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	833 @@ -130,8 +130,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	834 dwork, ldwork,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	835 info));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	836
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	837 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	838 - error ("__sl_tg01fd__: exception in SLICOT subroutine TG01FD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	839 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	840 +// error ("__sl_tg01fd__: exception in SLICOT subroutine TG01FD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	841
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	842 if (info != 0)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	843 error ("__sl_tg01fd__: TG01FD returned info = %d", info);
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	844 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_tg01hd.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	845 --- a/src/sl_tg01hd.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	846 +++ b/src/sl_tg01hd.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	847 @@ -122,8 +122,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	848 iwork, dwork,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	849 info));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	850
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	851 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	852 - error ("__sl_tg01hd__: exception in SLICOT subroutine TG01HD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	853 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	854 +// error ("__sl_tg01hd__: exception in SLICOT subroutine TG01HD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	855
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	856 if (info != 0)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	857 error ("__sl_tg01hd__: TG01HD returned info = %d", info);
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	858 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_tg01id.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	859 --- a/src/sl_tg01id.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	860 +++ b/src/sl_tg01id.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	861 @@ -124,8 +124,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	862 iwork, dwork,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	863 info));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	864
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	865 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	866 - error ("__sl_tg01id__: exception in SLICOT subroutine TG01ID");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	867 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	868 +// error ("__sl_tg01id__: exception in SLICOT subroutine TG01ID");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	869
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	870 if (info != 0)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	871 error ("__sl_tg01id__: TG01ID returned info = %d", info);
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	872 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_tg01jd.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	873 --- a/src/sl_tg01jd.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	874 +++ b/src/sl_tg01jd.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	875 @@ -189,8 +189,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	876 dwork, ldwork,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	877 info));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	878
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	879 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	880 - error ("dss: minreal: __sl_tg01jd__: exception in SLICOT subroutine TG01JD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	881 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	882 +// error ("dss: minreal: __sl_tg01jd__: exception in SLICOT subroutine TG01JD");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	883
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	884 if (info != 0)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	885 error ("dss: minreal: __sl_tg01jd__: TG01JD returned info = %d", info);
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	886 diff -r 23110e3e6cc7 -r 6f05c32bbbaf src/sl_tg04bx.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	887 --- a/src/sl_tg04bx.cc Thu Jan 03 09:19:49 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	888 +++ b/src/sl_tg04bx.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	889 @@ -106,8 +106,8 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	890 gain,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	891 iwork));
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	892
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	893 - if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	894 - error ("dss: zero: __sl_tg04bx__: exception in TG04BX");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	895 +// if (f77_exception_encountered)
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	896 +// error ("dss: zero: __sl_tg04bx__: exception in TG04BX");
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	897
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	898 // return values
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	899 retval(0) = octave_value (gain);
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	900 # HG changeset patch
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	901 # User Doug Stewart
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	902 # Date 1546533621 18000
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	903 # Thu Jan 03 11:40:21 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	904 # Node ID 3243832f441cd1cc8417b02bf37f3253204be681
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	905 # Parent 6f05c32bbbafa758c1d76995e8aab914a67db499
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	906 removed F77_exception_encounterd obsolete
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	907
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	908 diff -r 6f05c32bbbaf -r 3243832f441c src/sl_ab01od.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	909 --- a/src/sl_ab01od.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	910 +++ b/src/sl_ab01od.cc Thu Jan 03 11:40:21 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	911 @@ -72,7 +72,7 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	912 Matrix a = args(0).matrix_value ();
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	913 Matrix b = args(1).matrix_value ();
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	914 double tol = args(2).double_value ();
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	915 -f77_exception_encountered
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	916 +// f77_exception_encountered
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	917 F77_INT n = TO_F77_INT (a.rows ()); // n: number of states
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	918 F77_INT m = TO_F77_INT (b.columns ()); // m: number of inputs
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	919
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	920 diff -r 6f05c32bbbaf -r 3243832f441c src/sl_ab13ad.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	921 --- a/src/sl_ab13ad.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	922 +++ b/src/sl_ab13ad.cc Thu Jan 03 11:40:21 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	923 @@ -98,7 +98,7 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	924
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	925 // workspace
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	926 F77_INT ldwork = max (1, n(max (n, m, p) + 5) + n(n+1)/2);
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	927 - f77_exception_encountered
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	928 +// f77_exception_encountered
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	929 OCTAVE_LOCAL_BUFFER (double, dwork, ldwork);
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	930
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	931 // error indicators
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	932 diff -r 6f05c32bbbaf -r 3243832f441c src/sl_ag08bd.cc
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	933 --- a/src/sl_ag08bd.cc Thu Jan 03 11:23:28 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	934 +++ b/src/sl_ag08bd.cc Thu Jan 03 11:40:21 2019 -0500
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	935 @@ -182,7 +182,7 @@
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	936 OCTAVE_LOCAL_BUFFER (double, work, lwork);
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	937
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	938 F77_INT info2;
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	939 - f77_exception_encountered
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	940 +// f77_exception_encountered
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	941 F77_XFCN (dggev, DGGEV,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	942 (jobvl, jobvr,
3c2ecfd52069 of-control: Remove deprecated functions (bug #55361) Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	943 nfz,
4957 6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	944 # HG changeset patch
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	945 # User Mike Miller <mtmiller@octave.org>
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	946 # Date 1549586531 28800
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	947 # Thu Feb 07 16:42:11 2019 -0800
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	948 # Node ID 549466e74db52bae75e2da528c88f4a1c9339065
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	949 # Parent 37e80b55b0f9339106a56c3b19118c1b1cdf05f4
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	950 use numfields, drop all references to deleted nfields2 (bug #55671)
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	951
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	952 * @lti/__lti_group__.m: Use numfields as a replacement for nfields2. Remove
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	953 workaround for ancient bug in orderfields.
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	954 * @lti/__lti_prune__.m: Use numfields as a replacement for nfields2.
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	955 * @lti/display.m: Likewise.
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	956 * __control_helper_functions__.cc: Delete commented inclusion of nfields2.cc.
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	957 * nfields2.cc: Delete.
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	958
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	959 diff -r 37e80b55b0f9 -r 549466e74db5 inst/@lti/__lti_group__.m
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	960 --- a/inst/@lti/__lti_group__.m Thu Jan 10 11:52:56 2019 -0500
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	961 +++ b/inst/@lti/__lti_group__.m Thu Feb 07 16:42:11 2019 -0800
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	962 @@ -31,7 +31,7 @@
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	963 if (any (strcmpi (dim, {"blkdiag", "horzcat"}))) # blkdiag, horzcat
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	964 retlti.inname = [lti1.inname; lti2.inname];
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	965
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	966 - if (nfields2 (lti1.ingroup) \|\| nfields2 (lti2.ingroup))
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	967 + if (numfields (lti1.ingroup) \|\| numfields (lti2.ingroup))
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	968 m1 = numel (lti1.inname);
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	969 lti2_ingroup = structfun (@(x) x + m1, lti2.ingroup, "uniformoutput", false);
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	970 retlti.ingroup = __merge_struct__ (lti1.ingroup, lti2_ingroup);
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	971 @@ -44,7 +44,7 @@
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	972 if (any (strcmpi (dim, {"blkdiag", "vertcat"}))) # blkdiag, vertcat
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	973 retlti.outname = [lti1.outname; lti2.outname];
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	974
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	975 - if (nfields2 (lti1.outgroup) \|\| nfields2 (lti2.outgroup))
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	976 + if (numfields (lti1.outgroup) \|\| numfields (lti2.outgroup))
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	977 p1 = numel (lti1.outname);
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	978 lti2_outgroup = structfun (@(x) x + p1, lti2.outgroup, "uniformoutput", false);
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	979 retlti.outgroup = __merge_struct__ (lti1.outgroup, lti2_outgroup);
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	980 @@ -76,14 +76,8 @@
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	981 ## FIXME: this is too complicated;
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	982 ## isn't there a simple function for this task?
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	983
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	984 - ## bug #40224: orderfields (struct ()) errors out in Octave 3.6.4
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	985 - ## therefore use nfields2 to check for empty structs
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	986 - if (nfields2 (a))
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	987 - a = orderfields (a);
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	988 - endif
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	989 - if (nfields2 (b))
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	990 - b = orderfields (b);
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	991 - endif
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	992 + a = orderfields (a);
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	993 + b = orderfields (b);
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	994
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	995 fa = fieldnames (a);
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	996 fb = fieldnames (b);
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	997 diff -r 37e80b55b0f9 -r 549466e74db5 inst/@lti/__lti_prune__.m
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	998 --- a/inst/@lti/__lti_prune__.m Thu Jan 10 11:52:56 2019 -0500
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	999 +++ b/inst/@lti/__lti_prune__.m Thu Feb 07 16:42:11 2019 -0800
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1000 @@ -42,14 +42,14 @@
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1001 in_idx = vertcat (tmp{:});
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1002 endif
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1003
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1004 - if (nfields2 (lti.outgroup))
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1005 + if (numfields (lti.outgroup))
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1006 p = numel (lti.outname); # get size before pruning outnames!
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1007 [lti.outgroup, empty] = structfun (@(x) __group_prune__ (x, out_idx, p), lti.outgroup, "uniformoutput", false);
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1008 empty = cell2mat (struct2cell (empty));
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1009 fields = fieldnames (lti.outgroup);
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1010 lti.outgroup = rmfield (lti.outgroup, fields(empty));
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1011 endif
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1012 - if (nfields2 (lti.ingroup))
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1013 + if (numfields (lti.ingroup))
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1014 m = numel (lti.inname);
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1015 [lti.ingroup, empty] = structfun (@(x) __group_prune__ (x, in_idx, m), lti.ingroup, "uniformoutput", false);
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1016 empty = cell2mat (struct2cell (empty));
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1017 diff -r 37e80b55b0f9 -r 549466e74db5 inst/@lti/display.m
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1018 --- a/inst/@lti/display.m Thu Jan 10 11:52:56 2019 -0500
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1019 +++ b/inst/@lti/display.m Thu Feb 07 16:42:11 2019 -0800
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1020 @@ -24,11 +24,11 @@
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1021
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1022 function display (sys)
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1023
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1024 - if (nfields2 (sys.ingroup) > 0)
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1025 + if (numfields (sys.ingroup) > 0)
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1026 __disp_group__ (sys.ingroup, "Input");
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1027 endif
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1028
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1029 - if (nfields2 (sys.outgroup) > 0)
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1030 + if (numfields (sys.outgroup) > 0)
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1031 __disp_group__ (sys.outgroup, "Output");
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1032 endif
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1033
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1034 diff -r 37e80b55b0f9 -r 549466e74db5 src/__control_helper_functions__.cc
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1035 --- a/src/__control_helper_functions__.cc Thu Jan 10 11:52:56 2019 -0500
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1036 +++ b/src/__control_helper_functions__.cc Thu Feb 07 16:42:11 2019 -0800
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1037 @@ -6,9 +6,6 @@
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1038 #include "is_zp_vector.cc"
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1039 #include "lti_input_idx.cc"
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1040
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1041 -// #include "nfields2.cc" // delete this if support for Octave 3.8 gets dropped
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1042 -
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1043 -
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1044
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1045 // stub function to avoid gen_doc_cache warning upon package installation
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1046 DEFUN_DLD (__control_helper_functions__, args, nargout,
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1047 diff -r 37e80b55b0f9 -r 549466e74db5 src/nfields2.cc
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1048 --- a/src/nfields2.cc Thu Jan 10 11:52:56 2019 -0500
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1049 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1050 @@ -1,23 +0,0 @@
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1051 -#include <octave/oct.h>
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1052 -#include <octave/ov-struct.h>
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1053 -
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1054 -// PKG_ADD: autoload ("nfields2", "__control_helper_functions__.oct");
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1055 -DEFUN_DLD (nfields2, args, ,
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1056 - "-- texinfo --\n\
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1057 -@deftypefn {Built-in Function} {} nfields (@var{s})\n\
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1058 -Return the number of fields of the structure @var{s}.\n\
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1059 -@end deftypefn")
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1060 -{
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1061 - octave_value retval;
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1062 -
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1063 - octave_idx_type nargin = args.length ();
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1064 -
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1065 - if (nargin == 1 && args(0).is_map ())
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1066 - {
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1067 - retval = static_cast<double> (args(0).nfields ());
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1068 - }
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1069 - else
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1070 - print_usage ();
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1071 -
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1072 - return retval;
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1073 -}
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1074 # HG changeset patch
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1075 # User Mike Miller <mtmiller@octave.org>
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1076 # Date 1549918550 28800
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1077 # Mon Feb 11 12:55:50 2019 -0800
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1078 # Node ID 6c0a3108c82c8d2731e4615bef0c1c3e67cf0922
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1079 # Parent 3b79c72063765b79f5b4e9dfa5acf36ea67d097d
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1080 fix build failure with Octave 6 while remaining compatible (bug #55361)
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1081
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1082 * common.h (f77_exception_encountered): Define as a constant to retain
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1083 functionality that depends on this value in older versions of Octave.
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1084
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1085 diff -r 3b79c7206376 -r 6c0a3108c82c src/common.h
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1086 --- a/src/common.h Thu Feb 07 17:38:25 2019 -0800
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1087 +++ b/src/common.h Mon Feb 11 12:55:50 2019 -0800
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1088 @@ -47,4 +47,12 @@
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1089 void warning_msg (const char name[], octave_idx_type index, octave_idx_type max, const char* msg[]);
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1090 void warning_msg (const char name[], octave_idx_type index, octave_idx_type max, const char* msg[], octave_idx_type offset);
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1091
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1092 +// FIXME: Keep until Octave 4.2 and older are no longer supported.
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1093 +// This conditional defines f77_exception_encountered as a dummy constant
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1094 +// to preserve code that needed to check its value to work correctly in older
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1095 +// versions of Octave.
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1096 +#if defined (OCTAVE_MAJOR_VERSION) && OCTAVE_MAJOR_VERSION >= 6
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1097 +static const int f77_exception_encountered = 0;
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1098 #endif
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1099 +
6a321b868d57 of-control: Updates for default Octave (bug #55670). Markus Mützel <markus.muetzel@gmx.de> parents: 4930 diff changeset	1100 +#endif

Mercurial > mxe-octave

annotate src/of-control-1-deprecated.patch @ 4957:6a321b868d57