mirror of
https://git.freebsd.org/ports.git
synced 2025-05-29 09:26:27 -04:00
748dc57a7d
- Add patch from upstream to fix build with gfortran 8 [1] - Update WWW PR: 232958 [1] Reported by: gerald
57 lines
2.2 KiB
Text
57 lines
2.2 KiB
Text
From f49b185c678c07526ef59c1531d41575f9266bdc Mon Sep 17 00:00:00 2001
|
|
From: =?utf8?q?Cl=C3=A9ment=20DAVID?= <clement.david@esi-group.com>
|
|
Date: Mon, 26 Feb 2018 23:43:14 +0100
|
|
Subject: [PATCH] Fortran: fix errors with gfortran 8
|
|
|
|
Change-Id: Ib890c6ea2dcba2f70d3c22dc86bbe38e4f22b061
|
|
--- modules/differential_equations/src/fortran/ddaskr.f
|
|
+++ modules/differential_equations/src/fortran/ddaskr.f
|
|
@@ -1409,6 +1409,7 @@ C
|
|
DIMENSION RWORK(LRW),IWORK(LIW)
|
|
DIMENSION RTOL(*),ATOL(*)
|
|
DIMENSION RPAR(*),IPAR(*)
|
|
+ DIMENSION JROOT(NRT)
|
|
CHARACTER MSG*80
|
|
EXTERNAL RES, JAC, PSOL, RT, DDASID, DDASIK, DNEDD, DNEDK
|
|
C
|
|
@@ -2530,7 +2531,8 @@ C Pointers into RWORK:
|
|
DOUBLE PRECISION TN, TOUT, Y, YP, PHI, PSI, R0, R1, RX, UROUND,
|
|
* RWORK, RPAR
|
|
DIMENSION Y(*), YP(*), PHI(NEQ,*), PSI(*),
|
|
- * R0(*), R1(*), RX(*), JROOT(*), RWORK(*), IWORK(*)
|
|
+ * R0(*), R1(*), RX(*), JROOT(NRT), RWORK(*), IWORK(*),
|
|
+ * RPAR(*), IPAR(*)
|
|
INTEGER I, JFLAG
|
|
DOUBLE PRECISION H
|
|
DOUBLE PRECISION HMINR, T1, TEMP1, TEMP2, X, ZERO
|
|
--- modules/differential_equations/src/fortran/ddasrt.f
|
|
+++ modules/differential_equations/src/fortran/ddasrt.f
|
|
@@ -870,6 +870,7 @@ C
|
|
DIMENSION RWORK(*),IWORK(*)
|
|
DIMENSION RTOL(*),ATOL(*)
|
|
DIMENSION RPAR(*),IPAR(*)
|
|
+ DIMENSION JROOT(NG)
|
|
CHARACTER MSG*80
|
|
C
|
|
C SET POINTERS INTO IWORK
|
|
@@ -1594,7 +1595,8 @@ C
|
|
DOUBLE PRECISION TN, TOUT, Y, YP, PHI, PSI, G0, G1, GX, UROUND,
|
|
* RWORK, RPAR
|
|
DIMENSION Y(*), YP(*), PHI(NEQ,*), PSI(*),
|
|
- 1 G0(*), G1(*), GX(*), JROOT(*), RWORK(*), IWORK(*)
|
|
+ 1 G0(*), G1(*), GX(*), JROOT(NG), RWORK(*), IWORK(*), RPAR(*),
|
|
+ 1 IPAR(*)
|
|
INTEGER I, JFLAG
|
|
DOUBLE PRECISION H
|
|
DOUBLE PRECISION HMING, T1, TEMP1, TEMP2, X
|
|
--- modules/differential_equations/src/fortran/twodq.f
|
|
+++ modules/differential_equations/src/fortran/twodq.f
|
|
@@ -900,7 +900,7 @@ C
|
|
END
|
|
|
|
subroutine tridv(node,node1,node2,coef,rank)
|
|
- double precision node(10),node1(10),node2(10),coef
|
|
+ double precision node(9),node1(9),node2(9),coef
|
|
integer rank
|
|
double precision s(3),coef1,temp
|
|
integer t(3)
|