Fix a fatal Fortran error (invalid unit number).
Submitted by: Stephen Hickmott <stephen (at) featplus.co.uk>
This commit is contained in:
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
|
@ -3,7 +3,7 @@
|
|||
|
||||
PORTNAME= mumps
|
||||
DISTVERSION= 5.1.2-aster7
|
||||
PORTREVISION= 2
|
||||
PORTREVISION= 3
|
||||
CATEGORIES= math
|
||||
PKGNAMESUFFIX= -edf
|
||||
|
||||
|
|
11
math/mumps/files/patch-src_dana__aux.F
Normal file
11
math/mumps/files/patch-src_dana__aux.F
Normal 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 ***')
|
Loading…
Reference in a new issue