Skip to content

Commit 58e1d45

Browse files
committed
Fortran macros should be only in header files...
1 parent 78479db commit 58e1d45

File tree

3 files changed

+0
-51
lines changed

3 files changed

+0
-51
lines changed

include/galahad_modules.h

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -18,9 +18,7 @@
1818
#define MKL_PARDISO_PRIVATE MKL_PARDISO_PRIVATE_64
1919
#define MKL_PARDISO MKL_PARDISO_64
2020
#define galahad_metis galahad_metis_64
21-
#define spmf_interfaces spmf_interfaces_64
2221
#define spmf_enums spmf_enums_64
23-
#define pastixf_interfaces pastixf_interfaces_64
2422
#define pastixf_enums pastixf_enums_64
2523
#endif
2624

src/external/pastix/pastixf_interfaces.F90

Lines changed: 0 additions & 25 deletions
Original file line numberDiff line numberDiff line change
@@ -18,31 +18,6 @@
1818
!> @author Selmane Lebdaoui
1919
!> @date 2024-06-08
2020

21-
#ifdef INTEGER_64
22-
#define pastixf_enums pastixf_enums_64
23-
#define spmf_enums spmf_enums_64
24-
#endif
25-
26-
#ifdef REAL_32
27-
#ifdef INTEGER_64
28-
#define pastixf_interfaces_precision pastixf_interfaces_single_64
29-
#else
30-
#define pastixf_interfaces_precision pastixf_interfaces_single
31-
#endif
32-
#elif REAL_128
33-
#ifdef INTEGER_64
34-
#define pastix_interfaces_precision pastix_interfaces_quadruple_64
35-
#else
36-
#define pastix_interfaces_precision pastix_interfaces_quadruple
37-
#endif
38-
#else
39-
#ifdef INTEGER_64
40-
#define pastixf_interfaces_precision pastixf_interfaces_double_64
41-
#else
42-
#define pastixf_interfaces_precision pastixf_interfaces_double
43-
#endif
44-
#endif
45-
4621
MODULE pastixf_interfaces_precision
4722

4823
INTERFACE pastixInitParam

src/external/pastix/spmf_interfaces.F90

Lines changed: 0 additions & 24 deletions
Original file line numberDiff line numberDiff line change
@@ -17,30 +17,6 @@
1717
!> @author Tony Delarue
1818
!> @date 2023-12-06
1919

20-
#ifdef INTEGER_64
21-
#define spmf_enums spmf_enums_64
22-
#endif
23-
24-
#ifdef REAL_32
25-
#ifdef INTEGER_64
26-
#define spmf_interfaces_precision spmf_interfaces_single_64
27-
#else
28-
#define spmf_interfaces_precision spmf_interfaces_single
29-
#endif
30-
#elif REAL_128
31-
#ifdef INTEGER_64
32-
#define spmf_interfaces_precision spmf_interfaces_quadruple_64
33-
#else
34-
#define spmf_interfaces_precision spmf_interfaces_quadruple
35-
#endif
36-
#else
37-
#ifdef INTEGER_64
38-
#define spmf_interfaces_precision spmf_interfaces_double_64
39-
#else
40-
#define spmf_interfaces_precision spmf_interfaces_double
41-
#endif
42-
#endif
43-
4420
MODULE spmf_interfaces_precision
4521

4622
USE iso_c_binding, ONLY : c_float, c_double, c_ptr, &

0 commit comments

Comments
 (0)