Skip to content

Commit 7b4c3a3

Browse files
langoulangou
authored
Merge pull request #1079 from hjjvandam/fix/line_lengths
Fix line lengths for the extended API
2 parents 1b0c6a7 + a6c1dd6 commit 7b4c3a3

31 files changed

+302
-214
lines changed

‎SRC/DEPRECATED/cgegs.f‎

Lines changed: 15 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -219,9 +219,9 @@
219219
*> \ingroup complexGEeigen
220220
*
221221
* =====================================================================
222-
SUBROUTINE CGEGS( JOBVSL, JOBVSR, N, A, LDA, B, LDB, ALPHA, BETA,
223-
$ VSL, LDVSL, VSR, LDVSR, WORK, LWORK, RWORK,
224-
$ INFO )
222+
SUBROUTINE CGEGS( JOBVSL, JOBVSR, N, A, LDA, B, LDB, ALPHA,
223+
$ BETA, VSL, LDVSL, VSR, LDVSR, WORK, LWORK,
224+
$ RWORK, INFO )
225225
*
226226
* -- LAPACK driver routine --
227227
* -- LAPACK is a software package provided by Univ. of Tennessee, --
@@ -360,7 +360,8 @@ SUBROUTINE CGEGS( JOBVSL, JOBVSR, N, A, LDA, B, LDB, ALPHA, BETA,
360360
END IF
361361
*
362362
IF( ILASCL ) THEN
363-
CALL CLASCL( 'G', -1, -1, ANRM, ANRMTO, N, N, A, LDA, IINFO )
363+
CALL CLASCL( 'G', -1, -1, ANRM, ANRMTO, N, N, A, LDA,
364+
$ IINFO )
364365
IF( IINFO.NE.0 ) THEN
365366
INFO = N + 9
366367
RETURN
@@ -380,7 +381,8 @@ SUBROUTINE CGEGS( JOBVSL, JOBVSR, N, A, LDA, B, LDB, ALPHA, BETA,
380381
END IF
381382
*
382383
IF( ILBSCL ) THEN
383-
CALL CLASCL( 'G', -1, -1, BNRM, BNRMTO, N, N, B, LDB, IINFO )
384+
CALL CLASCL( 'G', -1, -1, BNRM, BNRMTO, N, N, B, LDB,
385+
$ IINFO )
384386
IF( IINFO.NE.0 ) THEN
385387
INFO = N + 9
386388
RETURN
@@ -493,25 +495,29 @@ SUBROUTINE CGEGS( JOBVSL, JOBVSR, N, A, LDA, B, LDB, ALPHA, BETA,
493495
* Undo scaling
494496
*
495497
IF( ILASCL ) THEN
496-
CALL CLASCL( 'U', -1, -1, ANRMTO, ANRM, N, N, A, LDA, IINFO )
498+
CALL CLASCL( 'U', -1, -1, ANRMTO, ANRM, N, N, A, LDA,
499+
$ IINFO )
497500
IF( IINFO.NE.0 ) THEN
498501
INFO = N + 9
499502
RETURN
500503
END IF
501-
CALL CLASCL( 'G', -1, -1, ANRMTO, ANRM, N, 1, ALPHA, N, IINFO )
504+
CALL CLASCL( 'G', -1, -1, ANRMTO, ANRM, N, 1, ALPHA, N,
505+
$ IINFO )
502506
IF( IINFO.NE.0 ) THEN
503507
INFO = N + 9
504508
RETURN
505509
END IF
506510
END IF
507511
*
508512
IF( ILBSCL ) THEN
509-
CALL CLASCL( 'U', -1, -1, BNRMTO, BNRM, N, N, B, LDB, IINFO )
513+
CALL CLASCL( 'U', -1, -1, BNRMTO, BNRM, N, N, B, LDB,
514+
$ IINFO )
510515
IF( IINFO.NE.0 ) THEN
511516
INFO = N + 9
512517
RETURN
513518
END IF
514-
CALL CLASCL( 'G', -1, -1, BNRMTO, BNRM, N, 1, BETA, N, IINFO )
519+
CALL CLASCL( 'G', -1, -1, BNRMTO, BNRM, N, 1, BETA, N,
520+
$ IINFO )
515521
IF( IINFO.NE.0 ) THEN
516522
INFO = N + 9
517523
RETURN

‎SRC/DEPRECATED/cgelsx.f‎

Lines changed: 14 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -179,8 +179,8 @@
179179
*> \ingroup complexGEsolve
180180
*
181181
* =====================================================================
182-
SUBROUTINE CGELSX( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK,
183-
$ WORK, RWORK, INFO )
182+
SUBROUTINE CGELSX( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND,
183+
$ RANK, WORK, RWORK, INFO )
184184
*
185185
* -- LAPACK driver routine --
186186
* -- LAPACK is a software package provided by Univ. of Tennessee, --
@@ -294,13 +294,15 @@ SUBROUTINE CGELSX( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK,
294294
*
295295
* Scale matrix norm up to SMLNUM
296296
*
297-
CALL CLASCL( 'G', 0, 0, BNRM, SMLNUM, M, NRHS, B, LDB, INFO )
297+
CALL CLASCL( 'G', 0, 0, BNRM, SMLNUM, M, NRHS, B, LDB,
298+
$ INFO )
298299
IBSCL = 1
299300
ELSE IF( BNRM.GT.BIGNUM ) THEN
300301
*
301302
* Scale matrix norm down to BIGNUM
302303
*
303-
CALL CLASCL( 'G', 0, 0, BNRM, BIGNUM, M, NRHS, B, LDB, INFO )
304+
CALL CLASCL( 'G', 0, 0, BNRM, BIGNUM, M, NRHS, B, LDB,
305+
$ INFO )
304306
IBSCL = 2
305307
END IF
306308
*
@@ -420,18 +422,22 @@ SUBROUTINE CGELSX( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK,
420422
* Undo scaling
421423
*
422424
IF( IASCL.EQ.1 ) THEN
423-
CALL CLASCL( 'G', 0, 0, ANRM, SMLNUM, N, NRHS, B, LDB, INFO )
425+
CALL CLASCL( 'G', 0, 0, ANRM, SMLNUM, N, NRHS, B, LDB,
426+
$ INFO )
424427
CALL CLASCL( 'U', 0, 0, SMLNUM, ANRM, RANK, RANK, A, LDA,
425428
$ INFO )
426429
ELSE IF( IASCL.EQ.2 ) THEN
427-
CALL CLASCL( 'G', 0, 0, ANRM, BIGNUM, N, NRHS, B, LDB, INFO )
430+
CALL CLASCL( 'G', 0, 0, ANRM, BIGNUM, N, NRHS, B, LDB,
431+
$ INFO )
428432
CALL CLASCL( 'U', 0, 0, BIGNUM, ANRM, RANK, RANK, A, LDA,
429433
$ INFO )
430434
END IF
431435
IF( IBSCL.EQ.1 ) THEN
432-
CALL CLASCL( 'G', 0, 0, SMLNUM, BNRM, N, NRHS, B, LDB, INFO )
436+
CALL CLASCL( 'G', 0, 0, SMLNUM, BNRM, N, NRHS, B, LDB,
437+
$ INFO )
433438
ELSE IF( IBSCL.EQ.2 ) THEN
434-
CALL CLASCL( 'G', 0, 0, BIGNUM, BNRM, N, NRHS, B, LDB, INFO )
439+
CALL CLASCL( 'G', 0, 0, BIGNUM, BNRM, N, NRHS, B, LDB,
440+
$ INFO )
435441
END IF
436442
*
437443
100 CONTINUE

‎SRC/DEPRECATED/cggsvp.f‎

Lines changed: 16 additions & 13 deletions
Original file line numberDiff line numberDiff line change
@@ -382,7 +382,8 @@ SUBROUTINE CGGSVP( JOBU, JOBV, JOBQ, M, P, N, A, LDA, B, LDB,
382382
30 CONTINUE
383383
40 CONTINUE
384384
IF( P.GT.L )
385-
$ CALL CLASET( 'Full', P-L, N, CZERO, CZERO, B( L+1, 1 ), LDB )
385+
$ CALL CLASET( 'Full', P-L, N, CZERO, CZERO, B( L+1, 1 ),
386+
$ LDB )
386387
*
387388
IF( WANTQ ) THEN
388389
*
@@ -400,8 +401,8 @@ SUBROUTINE CGGSVP( JOBU, JOBV, JOBQ, M, P, N, A, LDA, B, LDB,
400401
*
401402
* Update A := A*Z**H
402403
*
403-
CALL CUNMR2( 'Right', 'Conjugate transpose', M, N, L, B, LDB,
404-
$ TAU, A, LDA, WORK, INFO )
404+
CALL CUNMR2( 'Right', 'Conjugate transpose', M, N, L, B,
405+
$ LDB, TAU, A, LDA, WORK, INFO )
405406
IF( WANTQ ) THEN
406407
*
407408
* Update Q := Q*Z**H
@@ -444,17 +445,18 @@ SUBROUTINE CGGSVP( JOBU, JOBV, JOBQ, M, P, N, A, LDA, B, LDB,
444445
*
445446
* Update A12 := U**H*A12, where A12 = A( 1:M, N-L+1:N )
446447
*
447-
CALL CUNM2R( 'Left', 'Conjugate transpose', M, L, MIN( M, N-L ),
448-
$ A, LDA, TAU, A( 1, N-L+1 ), LDA, WORK, INFO )
448+
CALL CUNM2R( 'Left', 'Conjugate transpose', M, L,
449+
$ MIN( M, N-L ), A, LDA, TAU, A( 1, N-L+1 ), LDA, WORK,
450+
$ INFO )
449451
*
450452
IF( WANTU ) THEN
451453
*
452454
* Copy the details of U, and form U
453455
*
454456
CALL CLASET( 'Full', M, M, CZERO, CZERO, U, LDU )
455457
IF( M.GT.1 )
456-
$ CALL CLACPY( 'Lower', M-1, N-L, A( 2, 1 ), LDA, U( 2, 1 ),
457-
$ LDU )
458+
$ CALL CLACPY( 'Lower', M-1, N-L, A( 2, 1 ), LDA,
459+
$ U( 2, 1 ), LDU )
458460
CALL CUNG2R( M, M, MIN( M, N-L ), U, LDU, TAU, WORK, INFO )
459461
END IF
460462
*
@@ -474,7 +476,8 @@ SUBROUTINE CGGSVP( JOBU, JOBV, JOBQ, M, P, N, A, LDA, B, LDB,
474476
90 CONTINUE
475477
100 CONTINUE
476478
IF( M.GT.K )
477-
$ CALL CLASET( 'Full', M-K, N-L, CZERO, CZERO, A( K+1, 1 ), LDA )
479+
$ CALL CLASET( 'Full', M-K, N-L, CZERO, CZERO, A( K+1, 1 ),
480+
$ LDA )
478481
*
479482
IF( N-L.GT.K ) THEN
480483
*
@@ -486,8 +489,8 @@ SUBROUTINE CGGSVP( JOBU, JOBV, JOBQ, M, P, N, A, LDA, B, LDB,
486489
*
487490
* Update Q( 1:N,1:N-L ) = Q( 1:N,1:N-L )*Z1**H
488491
*
489-
CALL CUNMR2( 'Right', 'Conjugate transpose', N, N-L, K, A,
490-
$ LDA, TAU, Q, LDQ, WORK, INFO )
492+
CALL CUNMR2( 'Right', 'Conjugate transpose', N, N-L, K,
493+
$ A, LDA, TAU, Q, LDQ, WORK, INFO )
491494
END IF
492495
*
493496
* Clean up A
@@ -511,9 +514,9 @@ SUBROUTINE CGGSVP( JOBU, JOBV, JOBQ, M, P, N, A, LDA, B, LDB,
511514
*
512515
* Update U(:,K+1:M) := U(:,K+1:M)*U1
513516
*
514-
CALL CUNM2R( 'Right', 'No transpose', M, M-K, MIN( M-K, L ),
515-
$ A( K+1, N-L+1 ), LDA, TAU, U( 1, K+1 ), LDU,
516-
$ WORK, INFO )
517+
CALL CUNM2R( 'Right', 'No transpose', M, M-K,
518+
$ MIN( M-K, L ), A( K+1, N-L+1 ), LDA, TAU,
519+
$ U( 1, K+1 ), LDU, WORK, INFO )
517520
END IF
518521
*
519522
* Clean up

‎SRC/DEPRECATED/clahrd.f‎

Lines changed: 11 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -236,13 +236,14 @@ SUBROUTINE CLAHRD( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY )
236236
*
237237
* w := T**H *w
238238
*
239-
CALL CTRMV( 'Upper', 'Conjugate transpose', 'Non-unit', I-1,
240-
$ T, LDT, T( 1, NB ), 1 )
239+
CALL CTRMV( 'Upper', 'Conjugate transpose', 'Non-unit',
240+
$ I-1, T, LDT, T( 1, NB ), 1 )
241241
*
242242
* b2 := b2 - V2*w
243243
*
244-
CALL CGEMV( 'No transpose', N-K-I+1, I-1, -ONE, A( K+I, 1 ),
245-
$ LDA, T( 1, NB ), 1, ONE, A( K+I, I ), 1 )
244+
CALL CGEMV( 'No transpose', N-K-I+1, I-1, -ONE,
245+
$ A( K+I, 1 ), LDA, T( 1, NB ), 1, ONE,
246+
$ A( K+I, I ), 1 )
246247
*
247248
* b1 := b1 - V1*w
248249
*
@@ -263,20 +264,20 @@ SUBROUTINE CLAHRD( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY )
263264
*
264265
* Compute Y(1:n,i)
265266
*
266-
CALL CGEMV( 'No transpose', N, N-K-I+1, ONE, A( 1, I+1 ), LDA,
267-
$ A( K+I, I ), 1, ZERO, Y( 1, I ), 1 )
267+
CALL CGEMV( 'No transpose', N, N-K-I+1, ONE, A( 1, I+1 ),
268+
$ LDA, A( K+I, I ), 1, ZERO, Y( 1, I ), 1 )
268269
CALL CGEMV( 'Conjugate transpose', N-K-I+1, I-1, ONE,
269270
$ A( K+I, 1 ), LDA, A( K+I, I ), 1, ZERO, T( 1, I ),
270271
$ 1 )
271-
CALL CGEMV( 'No transpose', N, I-1, -ONE, Y, LDY, T( 1, I ), 1,
272-
$ ONE, Y( 1, I ), 1 )
272+
CALL CGEMV( 'No transpose', N, I-1, -ONE, Y, LDY,
273+
$ T( 1, I ), 1, ONE, Y( 1, I ), 1 )
273274
CALL CSCAL( N, TAU( I ), Y( 1, I ), 1 )
274275
*
275276
* Compute T(1:i,i)
276277
*
277278
CALL CSCAL( I-1, -TAU( I ), T( 1, I ), 1 )
278-
CALL CTRMV( 'Upper', 'No transpose', 'Non-unit', I-1, T, LDT,
279-
$ T( 1, I ), 1 )
279+
CALL CTRMV( 'Upper', 'No transpose', 'Non-unit', I-1, T,
280+
$ LDT, T( 1, I ), 1 )
280281
T( I, I ) = TAU( I )
281282
*
282283
10 CONTINUE

‎SRC/DEPRECATED/clatzm.f‎

Lines changed: 4 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -148,7 +148,8 @@
148148
*> \ingroup latzm
149149
*
150150
* =====================================================================
151-
SUBROUTINE CLATZM( SIDE, M, N, V, INCV, TAU, C1, C2, LDC, WORK )
151+
SUBROUTINE CLATZM( SIDE, M, N, V, INCV, TAU, C1, C2, LDC,
152+
$ WORK )
152153
*
153154
* -- LAPACK computational routine --
154155
* -- LAPACK is a software package provided by Univ. of Tennessee, --
@@ -206,8 +207,8 @@ SUBROUTINE CLATZM( SIDE, M, N, V, INCV, TAU, C1, C2, LDC, WORK )
206207
* w := C1 + C2 * v
207208
*
208209
CALL CCOPY( M, C1, 1, WORK, 1 )
209-
CALL CGEMV( 'No transpose', M, N-1, ONE, C2, LDC, V, INCV, ONE,
210-
$ WORK, 1 )
210+
CALL CGEMV( 'No transpose', M, N-1, ONE, C2, LDC, V, INCV,
211+
$ ONE, WORK, 1 )
211212
*
212213
* [ C1, C2 ] := [ C1, C2 ] - tau* w * [ 1 , v**H]
213214
*

‎SRC/DEPRECATED/ctzrqf.f‎

Lines changed: 5 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -217,14 +217,15 @@ SUBROUTINE CTZRQF( M, N, A, LDA, TAU, INFO )
217217
*
218218
* Form w = a( k ) + B*z( k ) in TAU.
219219
*
220-
CALL CGEMV( 'No transpose', K-1, N-M, CONE, A( 1, M1 ),
221-
$ LDA, A( K, M1 ), LDA, CONE, TAU, 1 )
220+
CALL CGEMV( 'No transpose', K-1, N-M, CONE,
221+
$ A( 1, M1 ), LDA, A( K, M1 ), LDA, CONE,
222+
$ TAU, 1 )
222223
*
223224
* Now form a( k ) := a( k ) - conjg(tau)*w
224225
* and B := B - conjg(tau)*w*z( k )**H.
225226
*
226-
CALL CAXPY( K-1, -CONJG( TAU( K ) ), TAU, 1, A( 1, K ),
227-
$ 1 )
227+
CALL CAXPY( K-1, -CONJG( TAU( K ) ), TAU, 1,
228+
$ A( 1, K ), 1 )
228229
CALL CGERC( K-1, N-M, -CONJG( TAU( K ) ), TAU, 1,
229230
$ A( K, M1 ), LDA, A( 1, M1 ), LDA )
230231
END IF

‎SRC/DEPRECATED/dgegs.f‎

Lines changed: 10 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -358,7 +358,8 @@ SUBROUTINE DGEGS( JOBVSL, JOBVSR, N, A, LDA, B, LDB, ALPHAR,
358358
END IF
359359
*
360360
IF( ILASCL ) THEN
361-
CALL DLASCL( 'G', -1, -1, ANRM, ANRMTO, N, N, A, LDA, IINFO )
361+
CALL DLASCL( 'G', -1, -1, ANRM, ANRMTO, N, N, A, LDA,
362+
$ IINFO )
362363
IF( IINFO.NE.0 ) THEN
363364
INFO = N + 9
364365
RETURN
@@ -378,7 +379,8 @@ SUBROUTINE DGEGS( JOBVSL, JOBVSR, N, A, LDA, B, LDB, ALPHAR,
378379
END IF
379380
*
380381
IF( ILBSCL ) THEN
381-
CALL DLASCL( 'G', -1, -1, BNRM, BNRMTO, N, N, B, LDB, IINFO )
382+
CALL DLASCL( 'G', -1, -1, BNRM, BNRMTO, N, N, B, LDB,
383+
$ IINFO )
382384
IF( IINFO.NE.0 ) THEN
383385
INFO = N + 9
384386
RETURN
@@ -496,7 +498,8 @@ SUBROUTINE DGEGS( JOBVSL, JOBVSR, N, A, LDA, B, LDB, ALPHAR,
496498
* Undo scaling
497499
*
498500
IF( ILASCL ) THEN
499-
CALL DLASCL( 'H', -1, -1, ANRMTO, ANRM, N, N, A, LDA, IINFO )
501+
CALL DLASCL( 'H', -1, -1, ANRMTO, ANRM, N, N, A, LDA,
502+
$ IINFO )
500503
IF( IINFO.NE.0 ) THEN
501504
INFO = N + 9
502505
RETURN
@@ -516,12 +519,14 @@ SUBROUTINE DGEGS( JOBVSL, JOBVSR, N, A, LDA, B, LDB, ALPHAR,
516519
END IF
517520
*
518521
IF( ILBSCL ) THEN
519-
CALL DLASCL( 'U', -1, -1, BNRMTO, BNRM, N, N, B, LDB, IINFO )
522+
CALL DLASCL( 'U', -1, -1, BNRMTO, BNRM, N, N, B, LDB,
523+
$ IINFO )
520524
IF( IINFO.NE.0 ) THEN
521525
INFO = N + 9
522526
RETURN
523527
END IF
524-
CALL DLASCL( 'G', -1, -1, BNRMTO, BNRM, N, 1, BETA, N, IINFO )
528+
CALL DLASCL( 'G', -1, -1, BNRMTO, BNRM, N, 1, BETA, N,
529+
$ IINFO )
525530
IF( IINFO.NE.0 ) THEN
526531
INFO = N + 9
527532
RETURN

‎SRC/DEPRECATED/dgegv.f‎

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -301,8 +301,9 @@
301301
*> \endverbatim
302302
*>
303303
* =====================================================================
304-
SUBROUTINE DGEGV( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHAR, ALPHAI,
305-
$ BETA, VL, LDVL, VR, LDVR, WORK, LWORK, INFO )
304+
SUBROUTINE DGEGV( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHAR,
305+
$ ALPHAI, BETA, VL, LDVL, VR, LDVR, WORK, LWORK,
306+
$ INFO )
306307
*
307308
* -- LAPACK driver routine --
308309
* -- LAPACK is a software package provided by Univ. of Tennessee, --

‎SRC/DEPRECATED/dgelqs.f‎

Lines changed: 6 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -174,18 +174,19 @@ SUBROUTINE DGELQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK,
174174
*
175175
* Solve L*X = B(1:m,:)
176176
*
177-
CALL DTRSM( 'Left', 'Lower', 'No transpose', 'Non-unit', M, NRHS,
178-
$ ONE, A, LDA, B, LDB )
177+
CALL DTRSM( 'Left', 'Lower', 'No transpose', 'Non-unit', M,
178+
$ NRHS, ONE, A, LDA, B, LDB )
179179
*
180180
* Set B(m+1:n,:) to zero
181181
*
182182
IF( M.LT.N )
183-
$ CALL DLASET( 'Full', N-M, NRHS, ZERO, ZERO, B( M+1, 1 ), LDB )
183+
$ CALL DLASET( 'Full', N-M, NRHS, ZERO, ZERO, B( M+1, 1 ),
184+
$ LDB )
184185
*
185186
* B := Q' * B
186187
*
187-
CALL DORMLQ( 'Left', 'Transpose', N, NRHS, M, A, LDA, TAU, B, LDB,
188-
$ WORK, LWORK, INFO )
188+
CALL DORMLQ( 'Left', 'Transpose', N, NRHS, M, A, LDA, TAU, B,
189+
$ LDB, WORK, LWORK, INFO )
189190
*
190191
RETURN
191192
*

0 commit comments

Comments
 (0)