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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
From 5fe5b9e56f78de2b7b1c199688f6c73ff3ff4c2d Mon Sep 17 00:00:00 2001
From: Satish Balay <balay@mcs.anl.gov>
Date: Fri, 16 Nov 2018 08:51:56 -0600
Subject: gfortran-8: workarround
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Reported-by: Sébastien Gilles <sebastien.gilles@inria.fr>
Fixed-by: https://listes.ens-lyon.fr/sympa/arc/mumps-users/2018-11/msg00003.html
diff --git a/src/ctype3_root.F b/src/ctype3_root.F
index 715141e..9a4048a 100644
--- a/src/ctype3_root.F
+++ b/src/ctype3_root.F
@@ -805,8 +805,8 @@ C
END SUBROUTINE CMUMPS_INIT_ROOT_ANA
SUBROUTINE CMUMPS_INIT_ROOT_FAC( N, root, FILS, IROOT,
& KEEP, INFO )
+ USE CMUMPS_STRUC_DEF
IMPLICIT NONE
- INCLUDE 'cmumps_root.h'
TYPE ( CMUMPS_ROOT_STRUC ):: root
INTEGER N, IROOT, INFO(40), KEEP(500)
INTEGER FILS( N )
diff --git a/src/dtype3_root.F b/src/dtype3_root.F
index fc670bd..c5d7bdd 100644
--- a/src/dtype3_root.F
+++ b/src/dtype3_root.F
@@ -805,8 +805,8 @@ C
END SUBROUTINE DMUMPS_INIT_ROOT_ANA
SUBROUTINE DMUMPS_INIT_ROOT_FAC( N, root, FILS, IROOT,
& KEEP, INFO )
+ USE DMUMPS_STRUC_DEF
IMPLICIT NONE
- INCLUDE 'dmumps_root.h'
TYPE ( DMUMPS_ROOT_STRUC ):: root
INTEGER N, IROOT, INFO(40), KEEP(500)
INTEGER FILS( N )
diff --git a/src/stype3_root.F b/src/stype3_root.F
index 628dc05..0016002 100644
--- a/src/stype3_root.F
+++ b/src/stype3_root.F
@@ -805,8 +805,8 @@ C
END SUBROUTINE SMUMPS_INIT_ROOT_ANA
SUBROUTINE SMUMPS_INIT_ROOT_FAC( N, root, FILS, IROOT,
& KEEP, INFO )
+ USE SMUMPS_STRUC_DEF
IMPLICIT NONE
- INCLUDE 'smumps_root.h'
TYPE ( SMUMPS_ROOT_STRUC ):: root
INTEGER N, IROOT, INFO(40), KEEP(500)
INTEGER FILS( N )
diff --git a/src/ztype3_root.F b/src/ztype3_root.F
index 713f975..3b70e9e 100644
--- a/src/ztype3_root.F
+++ b/src/ztype3_root.F
@@ -805,8 +805,8 @@ C
END SUBROUTINE ZMUMPS_INIT_ROOT_ANA
SUBROUTINE ZMUMPS_INIT_ROOT_FAC( N, root, FILS, IROOT,
& KEEP, INFO )
+ USE ZMUMPS_STRUC_DEF
IMPLICIT NONE
- INCLUDE 'zmumps_root.h'
TYPE ( ZMUMPS_ROOT_STRUC ):: root
INTEGER N, IROOT, INFO(40), KEEP(500)
INTEGER FILS( N )
|