diff options
| author | Julie <julie@cs.utk.edu> | 2016-11-02 17:58:33 -0700 |
|---|---|---|
| committer | Julie <julie@cs.utk.edu> | 2016-11-02 17:58:33 -0700 |
| commit | 1b84e31ac722588f8f801973d0c539bda0733bab (patch) | |
| tree | edaa6d689689355d2c8a63d3ce938feb8697e93f /SRC/sgerfsx.f | |
| parent | 3a7806f04c023d44036874e1fc678dffe0d340d7 (diff) | |
| download | lapack-1b84e31ac722588f8f801973d0c539bda0733bab.tar.gz lapack-1b84e31ac722588f8f801973d0c539bda0733bab.tar.bz2 lapack-1b84e31ac722588f8f801973d0c539bda0733bab.zip | |
Fix #80 from @reeuwijk-altium
Remove a bunch of unused symbols
Diffstat (limited to 'SRC/sgerfsx.f')
| -rw-r--r-- | SRC/sgerfsx.f | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/SRC/sgerfsx.f b/SRC/sgerfsx.f index 5d40833c..9134df44 100644 --- a/SRC/sgerfsx.f +++ b/SRC/sgerfsx.f @@ -475,11 +475,10 @@ INTRINSIC MAX, SQRT * .. * .. External Functions .. - EXTERNAL LSAME, BLAS_FPINFO_X, ILATRANS, ILAPREC + EXTERNAL LSAME, ILATRANS, ILAPREC EXTERNAL SLAMCH, SLANGE, SLA_GERCOND REAL SLAMCH, SLANGE, SLA_GERCOND LOGICAL LSAME - INTEGER BLAS_FPINFO_X INTEGER ILATRANS, ILAPREC * .. * .. Executable Statements .. |