Merge pull request #2503 from martin-frbg/xerbl
Apply fix for LAPACK issue 394 (fixed-form code beyond column 72)
This commit is contained in:
commit
4e1c4e67d4
|
@ -282,7 +282,8 @@
|
|||
$ NPLUSONE
|
||||
* ..
|
||||
* .. External Subroutines ..
|
||||
EXTERNAL SCOPY, SLAORHR_COL_GETRFNP, SSCAL, STRSM, XERBLA
|
||||
EXTERNAL SCOPY, SLAORHR_COL_GETRFNP, SSCAL, STRSM,
|
||||
$XERBLA
|
||||
* ..
|
||||
* .. Intrinsic Functions ..
|
||||
INTRINSIC MAX, MIN
|
||||
|
@ -436,4 +437,4 @@
|
|||
*
|
||||
* End of SORHR_COL
|
||||
*
|
||||
END
|
||||
END
|
||||
|
|
Loading…
Reference in New Issue