summaryrefslogtreecommitdiff
path: root/math/octave-forge-linear-algebra/files/patch-CmplxGSVD.cc
diff options
context:
space:
mode:
authorRene Ladan <rene@FreeBSD.org>2019-09-05 11:40:24 +0000
committerRene Ladan <rene@FreeBSD.org>2019-09-05 11:40:24 +0000
commitfc31075d85494a429c83dc15560c42efdfe3245d (patch)
treec57ed201463e2fa5875d2c2ce896968f3d74c56d /math/octave-forge-linear-algebra/files/patch-CmplxGSVD.cc
parentmail/mailscanner: drop CLAMAVMODULE support depending on expired mail/p5-Mail... (diff)
Remove expired ports:
2019-09-04 devel/ace+tao-doc: Broken for more than 6 months 2019-09-04 devel/dfmt: Broken for more than 6 months 2019-09-04 devel/ignition-transport: Broken for more than 6 months 2019-09-04 devel/spin: Broken for more than 6 months 2019-09-04 editors/dexed: Depends on expiring devel/dfmt 2019-09-04 editors/p5-Padre: Depends on expiring x11-toolkits/p5-Wx 2019-09-04 emulators/qemu2: Latest 3.X branch is in ports tree 2019-09-04 games/asc: Broken for more than 6 months 2019-09-04 games/slade: Broken for more than 6 months 2019-09-04 graphics/gimp-wavelet-decompose-plugin: Broken for more than 6 months 2019-09-04 graphics/py-pyembree: Depends on expiring graphics/embree 2019-09-04 irc/irssi-otr: Broken for more than 6 months 2019-09-04 mail/p5-Mail-ClamAV: Broken for more than 6 months 2019-09-04 mail/qmail-ldap: Broken for more than 6 months 2019-09-04 math/fityk: Broken for more than 6 months 2019-09-04 math/octave-forge-econometrics: Broken for more than 6 months 2019-09-04 math/octave-forge-fits: Broken for more than 6 months 2019-09-04 math/octave-forge-linear-algebra: Broken for more than 6 months 2019-09-04 math/octave-forge-mechanics: Broken for more than 6 months 2019-09-04 math/octave-forge-parallel: Broken for more than 6 months 2019-09-04 math/octave-forge-strings: Broken for more than 6 months 2019-09-04 math/octave-forge-tisean: Broken for more than 6 months 2019-09-04 math/octave-forge-video: Broken for more than 6 months 2019-09-04 math/py-yt: Depends on expiring graphics/embree 2019-09-04 misc/gnustep-examples: Broken for more than 6 months 2019-09-04 net/turses: Depends on expiring net/py-tweepy 2019-09-04 security/clamcour: Broken for more than 6 months 2019-09-04 security/honeybadger: Broken for more than 6 months 2019-09-04 sysutils/freefilesync: Broken for more than 6 months 2019-09-04 sysutils/log-courier: Broken for more than 6 months 2019-09-04 textproc/py-orange3-text: Broken for more than 6 months 2019-09-05 www/feedjack: Upstream gone 2019-09-04 www/havp: Broken for more than 6 months 2019-07-31 www/rubygem-webpack-rails-rails5: Upstream no longer maintained, use devel/rubygem-webpacker-rails* instead 2019-09-04 x11-toolkits/p5-Wx-GLCanvas: Depends on expiring x11-toolkits/p5-Wx 2019-09-04 x11-toolkits/p5-Wx-Perl-ProcessStream: Depends on expiring x11-toolkits/p5-Wx 2019-09-04 x11-wm/golem: Broken for more than 6 months 2019-09-04 x11-wm/pawm: Broken for more than 6 months
Diffstat (limited to 'math/octave-forge-linear-algebra/files/patch-CmplxGSVD.cc')
-rw-r--r--math/octave-forge-linear-algebra/files/patch-CmplxGSVD.cc147
1 files changed, 0 insertions, 147 deletions
diff --git a/math/octave-forge-linear-algebra/files/patch-CmplxGSVD.cc b/math/octave-forge-linear-algebra/files/patch-CmplxGSVD.cc
deleted file mode 100644
index 65676f4e525a..000000000000
--- a/math/octave-forge-linear-algebra/files/patch-CmplxGSVD.cc
+++ /dev/null
@@ -1,147 +0,0 @@
---- CmplxGSVD.cc.orig 2015-01-24 19:54:11 UTC
-+++ CmplxGSVD.cc
-@@ -14,13 +14,12 @@
- // You should have received a copy of the GNU General Public License along with
- // this program; if not, see <http://www.gnu.org/licenses/>.
-
--#ifdef HAVE_CONFIG_H
--#include <config.h>
--#endif
-+#include "CmplxGSVD.h"
-
- #include <iostream>
-
--#include "CmplxGSVD.h"
-+#include <octave/oct.h>
-+
- #include "f77-fcn.h"
- #include "lo-error.h"
-
-@@ -30,6 +29,13 @@
- #include "pager.h"
- */
-
-+#if defined (OCTAVE_HAVE_F77_INT_TYPE)
-+# define TO_F77_INT(x) octave::to_f77_int (x)
-+#else
-+typedef octave_idx_type F77_INT;
-+# define TO_F77_INT(x) (x)
-+#endif
-+
- extern "C"
- {
- F77_RET_T
-@@ -38,27 +44,27 @@ extern "C"
- F77_CONST_CHAR_ARG_DECL, // JOBU (input) CHARACTER*1
- F77_CONST_CHAR_ARG_DECL, // JOBV (input) CHARACTER*1
- F77_CONST_CHAR_ARG_DECL, // JOBQ (input) CHARACTER*1
-- const octave_idx_type&, // M (input) INTEGER
-- const octave_idx_type&, // N (input) INTEGER
-- const octave_idx_type&, // P (input) INTEGER
-- octave_idx_type &, // K (output) INTEGER
-- octave_idx_type &, // L (output) INTEGER
-+ const F77_INT&, // M (input) INTEGER
-+ const F77_INT&, // N (input) INTEGER
-+ const F77_INT&, // P (input) INTEGER
-+ F77_INT&, // K (output) INTEGER
-+ F77_INT&, // L (output) INTEGER
- Complex*, // A (input/output) COMPLEX*16 array, dimension (LDA,N)
-- const octave_idx_type&, // LDA (input) INTEGER
-+ const F77_INT&, // LDA (input) INTEGER
- Complex*, // B (input/output) COMPLEX*16 array, dimension (LDB,N)
-- const octave_idx_type&, // LDB (input) INTEGER
-+ const F77_INT&, // LDB (input) INTEGER
- double*, // ALPHA (output) DOUBLE PRECISION array, dimension (N)
- double*, // BETA (output) DOUBLE PRECISION array, dimension (N)
- Complex*, // U (output) COMPLEX*16 array, dimension (LDU,M)
-- const octave_idx_type&, // LDU (input) INTEGER
-+ const F77_INT&, // LDU (input) INTEGER
- Complex*, // V (output) COMPLEX*16 array, dimension (LDV,P)
-- const octave_idx_type&, // LDV (input) INTEGER
-+ const F77_INT&, // LDV (input) INTEGER
- Complex*, // Q (output) COMPLEX*16 array, dimension (LDQ,N)
-- const octave_idx_type&, // LDQ (input) INTEGER
-+ const F77_INT&, // LDQ (input) INTEGER
- Complex*, // WORK (workspace) COMPLEX*16 array
- double*, // RWORK (workspace) DOUBLE PRECISION array
-- int*, // IWORK (workspace/output) INTEGER array, dimension (N)
-- octave_idx_type& // INFO (output)INTEGER
-+ F77_INT*, // IWORK (workspace/output) INTEGER array, dimension (N)
-+ F77_INT& // INFO (output)INTEGER
- F77_CHAR_ARG_LEN_DECL
- F77_CHAR_ARG_LEN_DECL
- F77_CHAR_ARG_LEN_DECL
-@@ -121,11 +127,11 @@ octave_idx_type
- ComplexGSVD::init (const ComplexMatrix& a, const ComplexMatrix& b,
- GSVD::type gsvd_type)
- {
-- octave_idx_type info;
-+ F77_INT info;
-
-- octave_idx_type m = a.rows ();
-- octave_idx_type n = a.cols ();
-- octave_idx_type p = b.rows ();
-+ F77_INT m = TO_F77_INT (a.rows ());
-+ F77_INT n = TO_F77_INT (a.cols ());
-+ F77_INT p = TO_F77_INT (b.rows ());
-
- ComplexMatrix atmp = a;
- Complex *tmp_dataA = atmp.fortran_vec ();
-@@ -133,17 +139,17 @@ ComplexGSVD::init (const ComplexMatrix&
- ComplexMatrix btmp = b;
- Complex *tmp_dataB = btmp.fortran_vec ();
-
-- // octave_idx_type min_mn = m < n ? m : n;
-+ // F77_INT min_mn = m < n ? m : n;
-
- char jobu = 'U';
- char jobv = 'V';
- char jobq = 'Q';
-
-- octave_idx_type nrow_u = m;
-- octave_idx_type nrow_v = p;
-- octave_idx_type nrow_q = n;
-+ F77_INT nrow_u = m;
-+ F77_INT nrow_v = p;
-+ F77_INT nrow_q = n;
-
-- octave_idx_type k, l;
-+ F77_INT k, l;
-
- switch (gsvd_type)
- {
-@@ -187,7 +193,7 @@ ComplexGSVD::init (const ComplexMatrix&
- }
- Complex *q = right_sm.fortran_vec ();
-
-- octave_idx_type lwork = 3*n;
-+ F77_INT lwork = 3*n;
- lwork = lwork > m ? lwork : m;
- lwork = (lwork > p ? lwork : p) + n;
-
-@@ -195,7 +201,7 @@ ComplexGSVD::init (const ComplexMatrix&
- Array<double> alpha (dim_vector (n, 1));
- Array<double> beta (dim_vector (n, 1));
- Array<double> rwork(dim_vector (2*n, 1));
-- Array<int> iwork (dim_vector (n, 1));
-+ Array<F77_INT> iwork (dim_vector (n, 1));
-
- F77_XFCN (zggsvd, ZGGSVD, (F77_CONST_CHAR_ARG2 (&jobu, 1),
- F77_CONST_CHAR_ARG2 (&jobv, 1),
-@@ -219,13 +225,13 @@ ComplexGSVD::init (const ComplexMatrix&
- if (info > 0) {
- (*current_liboctave_error_handler) ("zggsvd.f: Jacobi-type procedure failed to converge.");
- } else {
-- octave_idx_type i, j;
-+ F77_INT i, j;
-
- if (GSVD::std == gsvd_type) {
- R.resize(k+l, k+l);
-- int astart = n-k-l;
-+ F77_INT astart = n-k-l;
- if (m - k - l >= 0) {
-- int astart = n-k-l;
-+ F77_INT astart = n-k-l;
- /*
- * R is stored in A(1:K+L,N-K-L+1:N)
- */