summaryrefslogtreecommitdiff
path: root/math/octave-forge-tisean/files/patch-____upo____.cc
diff options
context:
space:
mode:
Diffstat (limited to 'math/octave-forge-tisean/files/patch-____upo____.cc')
-rw-r--r--math/octave-forge-tisean/files/patch-____upo____.cc58
1 files changed, 0 insertions, 58 deletions
diff --git a/math/octave-forge-tisean/files/patch-____upo____.cc b/math/octave-forge-tisean/files/patch-____upo____.cc
deleted file mode 100644
index 720b18f2c68d..000000000000
--- a/math/octave-forge-tisean/files/patch-____upo____.cc
+++ /dev/null
@@ -1,58 +0,0 @@
---- __upo__.cc.orig 2015-08-14 22:25:52 UTC
-+++ __upo__.cc
-@@ -33,18 +33,24 @@ FOR INTERNAL USE ONLY"
- #include <octave/oct.h>
- #include <octave/f77-fcn.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
- F77_FUNC (ts_upo, TS_UPO)
-- (const int& m, const double& eps,
-+ (const F77_INT& m, const double& eps,
- const double& frac, const double& teq,
- const double& tdis, const double& h,
-- const double& tacc, const int& iper,
-- const int& icen, const int& lines_read,
-+ const double& tacc, const F77_INT& iper,
-+ const F77_INT& icen, const F77_INT& lines_read,
- double* in_out1, double* olens,
-- double* orbit_data, const int& sizedat,
-+ double* orbit_data, const F77_INT& sizedat,
- double* accuracy, double* stability);
- }
-
-@@ -63,22 +69,22 @@ DEFUN_DLD (__upo__, args, nargout, HELPT
- {
- // Assigning inputs
- NDArray in_out1 = args(0).array_value();
-- int m = args(1).int_value();
-+ F77_INT m = TO_F77_INT (args(1).int_value());
- double eps = args(2).double_value();
- double frac = args(3).double_value();
- double teq = args(4).double_value();
- double tdis = args(5).double_value();
- double h = args(6).double_value();
- double tacc = args(7).double_value();
-- int iper = args(8).int_value();
-- int icen = args(9).int_value();
-+ F77_INT iper = TO_F77_INT (args(8).int_value());
-+ F77_INT icen = TO_F77_INT (args(9).int_value());
-
-
-
- if (! error_state)
- {
-
-- int lines_read = in_out1.numel();
-+ F77_INT lines_read = TO_F77_INT (in_out1.numel());
- // Generating output vectors with estimated lengths
- // The extra length (+1) is to store the actual lengths
- NDArray olens (dim_vector (icen+1,1));