diff options
| author | Rene Ladan <rene@FreeBSD.org> | 2019-09-05 11:40:24 +0000 |
|---|---|---|
| committer | Rene Ladan <rene@FreeBSD.org> | 2019-09-05 11:40:24 +0000 |
| commit | fc31075d85494a429c83dc15560c42efdfe3245d (patch) | |
| tree | c57ed201463e2fa5875d2c2ce896968f3d74c56d /math/octave-forge-linear-algebra/files/patch-CmplxGSVD.cc | |
| parent | mail/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.cc | 147 |
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) - */ |
