1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
Description: Fix FTBFS against SuperLU 7
Author: Sébastien Villemot <sebastien@debian.org>
Bug: https://github.com/fangq/iso2mesh/issues/86
Bug-Debian: https://bugs.debian.org/1104839
Last-Update: 2025-06-09
---
This patch header follows DEP-3: http://dep.debian.net/deps/dep3/
--- a/meshfix/contrib/OpenNL3.2.1/src/nl_single_file.c
+++ b/meshfix/contrib/OpenNL3.2.1/src/nl_single_file.c
@@ -1942,7 +1942,7 @@ doublereal NL_FORTRAN_WRAP(dnrm2)(intege
} /* dnrm2_ */
#undef X
-/* Subroutine */ int NL_FORTRAN_WRAP(dcopy)(integer *n, doublereal *dx, integer *incx,
+/* Subroutine */ void NL_FORTRAN_WRAP(dcopy)(integer *n, doublereal *dx, integer *incx,
doublereal *dy, integer *incy)
{
@@ -2343,7 +2343,7 @@ extern double NL_FORTRAN_WRAP(ddot)(
extern double NL_FORTRAN_WRAP(dnrm2)( int *n, double *x, int *incx ) ;
-extern int NL_FORTRAN_WRAP(dcopy)(int* n, double* dx, int* incx, double* dy, int* incy) ;
+extern void NL_FORTRAN_WRAP(dcopy)(int* n, double* dx, int* incx, double* dy, int* incy) ;
extern void NL_FORTRAN_WRAP(dscal)(int* n, double* alpha, double *x, int* incx) ;
|
