Fix a fatal Fortran error (invalid unit number).

Submitted by:	Stephen Hickmott <stephen (at) featplus.co.uk>
This commit is contained in:
Thierry Thomas 2021-01-10 19:36:31 +00:00
parent 878b93dbd9
commit 59eb58cf74
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=561106
2 changed files with 12 additions and 1 deletions

View file

@ -3,7 +3,7 @@
PORTNAME= mumps
DISTVERSION= 5.1.2-aster7
PORTREVISION= 2
PORTREVISION= 3
CATEGORIES= math
PKGNAMESUFFIX= -edf

View file

@ -0,0 +1,11 @@
--- src/dana_aux.F.orig 2020-10-23 09:16:48 UTC
+++ src/dana_aux.F
@@ -3008,7 +3008,7 @@ C
& write(MPG,'(A,1I5)')
& ' Average density of rows/columns =', AvgDens
IF (MP.GT.0 .AND. MPG.NE.MP.AND.(ICNTL(4).GE.2))
- & write(MPG,'(A,1I5)')
+ & write(MP,'(A,1I5)')
& ' Average density of rows/columns =', AvgDens
RETURN
99999 FORMAT (/'*** Warning message from analysis routine ***')