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
|
$ 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…
Reference in New Issue