Skip to content

Commit 7ac31fa

Browse files
langoulangou
authored
Merge pull request #805 from angsch/labad
Remove legacy function LABAD
2 parents cfaa5ae + 542f4f8 commit 7ac31fa

File tree

276 files changed

+394
-813
lines changed

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

276 files changed

+394
-813
lines changed

‎SRC/DEPRECATED/cgelsx.f

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -216,7 +216,7 @@ SUBROUTINE CGELSX( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK,
216216
* ..
217217
* .. External Subroutines ..
218218
EXTERNAL CGEQPF, CLAIC1, CLASCL, CLASET, CLATZM, CTRSM,
219-
$ CTZRQF, CUNM2R, SLABAD, XERBLA
219+
$ CTZRQF, CUNM2R, XERBLA
220220
* ..
221221
* .. External Functions ..
222222
REAL CLANGE, SLAMCH
@@ -262,7 +262,6 @@ SUBROUTINE CGELSX( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK,
262262
*
263263
SMLNUM = SLAMCH( 'S' ) / SLAMCH( 'P' )
264264
BIGNUM = ONE / SMLNUM
265-
CALL SLABAD( SMLNUM, BIGNUM )
266265
*
267266
* Scale A, B if max elements outside range [SMLNUM,BIGNUM]
268267
*

‎SRC/DEPRECATED/dgelsx.f

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -251,7 +251,6 @@ SUBROUTINE DGELSX( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK,
251251
*
252252
SMLNUM = DLAMCH( 'S' ) / DLAMCH( 'P' )
253253
BIGNUM = ONE / SMLNUM
254-
CALL DLABAD( SMLNUM, BIGNUM )
255254
*
256255
* Scale A, B if max elements outside range [SMLNUM,BIGNUM]
257256
*

‎SRC/DEPRECATED/sgelsx.f

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -208,7 +208,7 @@ SUBROUTINE SGELSX( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK,
208208
EXTERNAL SLAMCH, SLANGE
209209
* ..
210210
* .. External Subroutines ..
211-
EXTERNAL SGEQPF, SLABAD, SLAIC1, SLASCL, SLASET, SLATZM,
211+
EXTERNAL SGEQPF, SLAIC1, SLASCL, SLASET, SLATZM,
212212
$ SORM2R, STRSM, STZRQF, XERBLA
213213
* ..
214214
* .. Intrinsic Functions ..
@@ -251,7 +251,6 @@ SUBROUTINE SGELSX( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK,
251251
*
252252
SMLNUM = SLAMCH( 'S' ) / SLAMCH( 'P' )
253253
BIGNUM = ONE / SMLNUM
254-
CALL SLABAD( SMLNUM, BIGNUM )
255254
*
256255
* Scale A, B if max elements outside range [SMLNUM,BIGNUM]
257256
*

‎SRC/DEPRECATED/zgelsx.f

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -262,7 +262,6 @@ SUBROUTINE ZGELSX( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK,
262262
*
263263
SMLNUM = DLAMCH( 'S' ) / DLAMCH( 'P' )
264264
BIGNUM = ONE / SMLNUM
265-
CALL DLABAD( SMLNUM, BIGNUM )
266265
*
267266
* Scale A, B if max elements outside range [SMLNUM,BIGNUM]
268267
*

‎SRC/cgees.f

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -230,7 +230,7 @@ SUBROUTINE CGEES( JOBVS, SORT, SELECT, N, A, LDA, SDIM, W, VS,
230230
* ..
231231
* .. External Subroutines ..
232232
EXTERNAL CCOPY, CGEBAK, CGEBAL, CGEHRD, CHSEQR, CLACPY,
233-
$ CLASCL, CTRSEN, CUNGHR, SLABAD, XERBLA
233+
$ CLASCL, CTRSEN, CUNGHR, XERBLA
234234
* ..
235235
* .. External Functions ..
236236
LOGICAL LSAME
@@ -318,7 +318,6 @@ SUBROUTINE CGEES( JOBVS, SORT, SELECT, N, A, LDA, SDIM, W, VS,
318318
EPS = SLAMCH( 'P' )
319319
SMLNUM = SLAMCH( 'S' )
320320
BIGNUM = ONE / SMLNUM
321-
CALL SLABAD( SMLNUM, BIGNUM )
322321
SMLNUM = SQRT( SMLNUM ) / EPS
323322
BIGNUM = ONE / SMLNUM
324323
*

‎SRC/cgeesx.f

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -274,7 +274,7 @@ SUBROUTINE CGEESX( JOBVS, SORT, SELECT, SENSE, N, A, LDA, SDIM, W,
274274
* ..
275275
* .. External Subroutines ..
276276
EXTERNAL CCOPY, CGEBAK, CGEBAL, CGEHRD, CHSEQR, CLACPY,
277-
$ CLASCL, CTRSEN, CUNGHR, SLABAD, SLASCL, XERBLA
277+
$ CLASCL, CTRSEN, CUNGHR, SLASCL, XERBLA
278278
* ..
279279
* .. External Functions ..
280280
LOGICAL LSAME
@@ -376,7 +376,6 @@ SUBROUTINE CGEESX( JOBVS, SORT, SELECT, SENSE, N, A, LDA, SDIM, W,
376376
EPS = SLAMCH( 'P' )
377377
SMLNUM = SLAMCH( 'S' )
378378
BIGNUM = ONE / SMLNUM
379-
CALL SLABAD( SMLNUM, BIGNUM )
380379
SMLNUM = SQRT( SMLNUM ) / EPS
381380
BIGNUM = ONE / SMLNUM
382381
*

‎SRC/cgeev.f

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -212,7 +212,7 @@ SUBROUTINE CGEEV( JOBVL, JOBVR, N, A, LDA, W, VL, LDVL, VR, LDVR,
212212
REAL DUM( 1 )
213213
* ..
214214
* .. External Subroutines ..
215-
EXTERNAL SLABAD, XERBLA, CSSCAL, CGEBAK, CGEBAL, CGEHRD,
215+
EXTERNAL XERBLA, CSSCAL, CGEBAK, CGEBAL, CGEHRD,
216216
$ CHSEQR, CLACPY, CLASCL, CSCAL, CTREVC3, CUNGHR
217217
* ..
218218
* .. External Functions ..
@@ -315,7 +315,6 @@ SUBROUTINE CGEEV( JOBVL, JOBVR, N, A, LDA, W, VL, LDVL, VR, LDVR,
315315
EPS = SLAMCH( 'P' )
316316
SMLNUM = SLAMCH( 'S' )
317317
BIGNUM = ONE / SMLNUM
318-
CALL SLABAD( SMLNUM, BIGNUM )
319318
SMLNUM = SQRT( SMLNUM ) / EPS
320319
BIGNUM = ONE / SMLNUM
321320
*

‎SRC/cgeevx.f

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -323,7 +323,7 @@ SUBROUTINE CGEEVX( BALANC, JOBVL, JOBVR, SENSE, N, A, LDA, W, VL,
323323
REAL DUM( 1 )
324324
* ..
325325
* .. External Subroutines ..
326-
EXTERNAL SLABAD, SLASCL, XERBLA, CSSCAL, CGEBAK, CGEBAL,
326+
EXTERNAL SLASCL, XERBLA, CSSCAL, CGEBAK, CGEBAL,
327327
$ CGEHRD, CHSEQR, CLACPY, CLASCL, CSCAL, CTREVC3,
328328
$ CTRSNA, CUNGHR
329329
* ..
@@ -458,7 +458,6 @@ SUBROUTINE CGEEVX( BALANC, JOBVL, JOBVR, SENSE, N, A, LDA, W, VL,
458458
EPS = SLAMCH( 'P' )
459459
SMLNUM = SLAMCH( 'S' )
460460
BIGNUM = ONE / SMLNUM
461-
CALL SLABAD( SMLNUM, BIGNUM )
462461
SMLNUM = SQRT( SMLNUM ) / EPS
463462
BIGNUM = ONE / SMLNUM
464463
*

‎SRC/cgels.f

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -216,7 +216,7 @@ SUBROUTINE CGELS( TRANS, M, N, NRHS, A, LDA, B, LDB, WORK, LWORK,
216216
* ..
217217
* .. External Subroutines ..
218218
EXTERNAL CGELQF, CGEQRF, CLASCL, CLASET, CTRTRS, CUNMLQ,
219-
$ CUNMQR, SLABAD, XERBLA
219+
$ CUNMQR, XERBLA
220220
* ..
221221
* .. Intrinsic Functions ..
222222
INTRINSIC MAX, MIN, REAL
@@ -296,7 +296,6 @@ SUBROUTINE CGELS( TRANS, M, N, NRHS, A, LDA, B, LDB, WORK, LWORK,
296296
*
297297
SMLNUM = SLAMCH( 'S' ) / SLAMCH( 'P' )
298298
BIGNUM = ONE / SMLNUM
299-
CALL SLABAD( SMLNUM, BIGNUM )
300299
*
301300
* Scale A, B if max element outside range [SMLNUM,BIGNUM]
302301
*

‎SRC/cgelsd.f

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -255,7 +255,7 @@ SUBROUTINE CGELSD( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK,
255255
* .. External Subroutines ..
256256
EXTERNAL CGEBRD, CGELQF, CGEQRF, CLACPY,
257257
$ CLALSD, CLASCL, CLASET, CUNMBR,
258-
$ CUNMLQ, CUNMQR, SLABAD, SLASCL,
258+
$ CUNMLQ, CUNMQR, SLASCL,
259259
$ SLASET, XERBLA
260260
* ..
261261
* .. External Functions ..
@@ -402,7 +402,6 @@ SUBROUTINE CGELSD( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK,
402402
SFMIN = SLAMCH( 'S' )
403403
SMLNUM = SFMIN / EPS
404404
BIGNUM = ONE / SMLNUM
405-
CALL SLABAD( SMLNUM, BIGNUM )
406405
*
407406
* Scale A if max entry outside range [SMLNUM,BIGNUM].
408407
*

0 commit comments

Comments
 (0)