mirror of
https://git.freebsd.org/ports.git
synced 2025-04-29 01:56:37 -04:00
11 lines
430 B
Forth
11 lines
430 B
Forth
--- 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 ***')
|