Browse Source

Apply fix for Reference-LAPACK issue 394

reference to XERBLA extending beyond column 72, breaking builds with compilers that default to traditional punch card format
tags/v0.3.10^2
Martin Kroeker GitHub 6 years ago
parent
commit
b25ae1fc60
No known key found for this signature in database GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 3 additions and 2 deletions
  1. +3
    -2
      lapack-netlib/SRC/sorhr_col.f

+ 3
- 2
lapack-netlib/SRC/sorhr_col.f View File

@@ -282,7 +282,8 @@
$ NPLUSONE $ NPLUSONE
* .. * ..
* .. External Subroutines .. * .. External Subroutines ..
EXTERNAL SCOPY, SLAORHR_COL_GETRFNP, SSCAL, STRSM, XERBLA
EXTERNAL SCOPY, SLAORHR_COL_GETRFNP, SSCAL, STRSM,
$XERBLA
* .. * ..
* .. Intrinsic Functions .. * .. Intrinsic Functions ..
INTRINSIC MAX, MIN INTRINSIC MAX, MIN
@@ -436,4 +437,4 @@
* *
* End of SORHR_COL * End of SORHR_COL
* *
END
END

Loading…
Cancel
Save