Skip to content

Commit c8b1a51

Browse files
EduardFedorenkovEduardFedorenkov
committed
code style small fixes, #1011 
1 parent 690067c commit c8b1a51

30 files changed

+67
-159
lines changed

‎SRC/cgelq2.f‎

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -180,8 +180,7 @@ SUBROUTINE CGELQ2( M, N, A, LDA, TAU, WORK, INFO )
180180
* Apply H(i) to A(i+1:m,i:n) from the right
181181
*
182182
CALL CLARF1F( 'Right', M-I, N-I+1, A( I, I ), LDA,
183-
$ TAU( I ),
184-
$ A( I+1, I ), LDA, WORK )
183+
$ TAU( I ), A( I+1, I ), LDA, WORK )
185184
END IF
186185
CALL CLACGV( N-I+1, A( I, I ), LDA )
187186
10 CONTINUE

‎SRC/clarf1f.f‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -8,11 +8,11 @@
88
*
99
*> \htmlonly
1010
*> Download CLARF1F + dependencies
11-
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/clarf.f">
11+
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/clarf1f.f">
1212
*> [TGZ]</a>
13-
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/clarf.f">
13+
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/clarf1f.f">
1414
*> [ZIP]</a>
15-
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/clarf.f">
15+
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/clarf1f.f">
1616
*> [TXT]</a>
1717
*> \endhtmlonly
1818
*

‎SRC/clarf1l.f‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -8,11 +8,11 @@
88
*
99
*> \htmlonly
1010
*> Download CLARF1L + dependencies
11-
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/clarf.f">
11+
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/clarf1l.f">
1212
*> [TGZ]</a>
13-
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/clarf.f">
13+
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/clarf1l.f">
1414
*> [ZIP]</a>
15-
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/clarf.f">
15+
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/clarf1l.f">
1616
*> [TXT]</a>
1717
*> \endhtmlonly
1818
*

‎SRC/cunbdb.f‎

Lines changed: 6 additions & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -485,16 +485,13 @@ SUBROUTINE CUNBDB( TRANS, SIGNS, M, P, Q, X11, LDX11, X12,
485485
*
486486
IF( I .LT. Q ) THEN
487487
CALL CLARF1F( 'R', P-I, Q-I, X11(I,I+1), LDX11,
488-
$ TAUQ1(I),
489-
$ X11(I+1,I+1), LDX11, WORK )
488+
$ TAUQ1(I), X11(I+1,I+1), LDX11, WORK )
490489
CALL CLARF1F( 'R', M-P-I, Q-I, X11(I,I+1), LDX11,
491-
$ TAUQ1(I),
492-
$ X21(I+1,I+1), LDX21, WORK )
490+
$ TAUQ1(I), X21(I+1,I+1), LDX21, WORK )
493491
END IF
494492
IF ( P .GT. I ) THEN
495493
CALL CLARF1F( 'R', P-I, M-Q-I+1, X12(I,I), LDX12,
496-
$ TAUQ2(I),
497-
$ X12(I+1,I), LDX12, WORK )
494+
$ TAUQ2(I), X12(I+1,I), LDX12, WORK )
498495
END IF
499496
IF ( M-P .GT. I ) THEN
500497
CALL CLARF1F( 'R', M-P-I, M-Q-I+1, X12(I,I), LDX12,
@@ -524,8 +521,7 @@ SUBROUTINE CUNBDB( TRANS, SIGNS, M, P, Q, X11, LDX11, X12,
524521
*
525522
IF ( P .GT. I ) THEN
526523
CALL CLARF1F( 'R', P-I, M-Q-I+1, X12(I,I), LDX12,
527-
$ TAUQ2(I),
528-
$ X12(I+1,I), LDX12, WORK )
524+
$ TAUQ2(I), X12(I+1,I), LDX12, WORK )
529525
END IF
530526
IF( M-P-Q .GE. 1 )
531527
$ CALL CLARF1F( 'R', M-P-Q, M-Q-I+1, X12(I,I), LDX12,
@@ -596,8 +592,7 @@ SUBROUTINE CUNBDB( TRANS, SIGNS, M, P, Q, X11, LDX11, X12,
596592
CALL CLARF1F( 'R', Q-I, P-I+1, X11(I,I), LDX11, TAUP1(I),
597593
$ X11(I+1,I), LDX11, WORK )
598594
CALL CLARF1F( 'R', M-Q-I+1, P-I+1, X11(I,I), LDX11,
599-
$ TAUP1(I),
600-
$ X12(I,I), LDX12, WORK )
595+
$ TAUP1(I), X12(I,I), LDX12, WORK )
601596
CALL CLARF1F( 'R', Q-I, M-P-I+1, X21(I,I), LDX21,
602597
$ TAUP2(I), X21(I+1,I), LDX21, WORK )
603598
CALL CLARF1F( 'R', M-Q-I+1, M-P-I+1, X21(I,I), LDX21,
@@ -638,8 +633,7 @@ SUBROUTINE CUNBDB( TRANS, SIGNS, M, P, Q, X11, LDX11, X12,
638633
$ WORK )
639634
END IF
640635
CALL CLARF1F( 'L', M-Q-I+1, P-I, X12(I,I), 1,
641-
$ CONJG(TAUQ2(I)),
642-
$ X12(I,I+1), LDX12, WORK )
636+
$ CONJG(TAUQ2(I)), X12(I,I+1), LDX12, WORK )
643637

644638
IF ( M-P .GT. I ) THEN
645639
CALL CLARF1F( 'L', M-Q-I+1, M-P-I, X12(I,I), 1,

‎SRC/cunbdb2.f‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -309,8 +309,8 @@ SUBROUTINE CUNBDB2( M, P, Q, X11, LDX11, X21, LDX21, THETA,
309309
C = COS( PHI(I) )
310310
S = SIN( PHI(I) )
311311
CALL CLARF1F( 'L', P-I, Q-I, X11(I+1,I), 1,
312-
$ CONJG(TAUP1(I)),
313-
$ X11(I+1,I+1), LDX11, WORK(ILARF) )
312+
$ CONJG(TAUP1(I)), X11(I+1,I+1), LDX11,
313+
$ WORK(ILARF) )
314314
END IF
315315
CALL CLARF1F( 'L', M-P-I+1, Q-I, X21(I,I), 1,
316316
$ CONJG(TAUP2(I)), X21(I,I+1), LDX21,

‎SRC/cunbdb3.f‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -305,8 +305,8 @@ SUBROUTINE CUNBDB3( M, P, Q, X11, LDX11, X21, LDX21, THETA,
305305
C = COS( PHI(I) )
306306
S = SIN( PHI(I) )
307307
CALL CLARF1F( 'L', M-P-I, Q-I, X21(I+1,I), 1,
308-
$ CONJG(TAUP2(I)),
309-
$ X21(I+1,I+1), LDX21, WORK(ILARF) )
308+
$ CONJG(TAUP2(I)), X21(I+1,I+1), LDX21,
309+
$ WORK(ILARF) )
310310
END IF
311311
CALL CLARF1F( 'L', P-I+1, Q-I, X11(I,I), 1, CONJG(TAUP1(I)),
312312
$ X11(I,I+1), LDX11, WORK(ILARF) )

‎SRC/cunbdb4.f‎

Lines changed: 4 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -310,11 +310,9 @@ SUBROUTINE CUNBDB4( M, P, Q, X11, LDX11, X21, LDX21, THETA,
310310
C = COS( THETA(I) )
311311
S = SIN( THETA(I) )
312312
CALL CLARF1F( 'L', P, Q, PHANTOM(1), 1, CONJG(TAUP1(1)),
313-
$ X11,
314-
$ LDX11, WORK(ILARF) )
313+
$ X11, LDX11, WORK(ILARF) )
315314
CALL CLARF1F( 'L', M-P, Q, PHANTOM(P+1), 1,
316-
$ CONJG(TAUP2(1)),
317-
$ X21, LDX21, WORK(ILARF) )
315+
$ CONJG(TAUP2(1)), X21, LDX21, WORK(ILARF) )
318316
ELSE
319317
CALL CUNBDB5( P-I+1, M-P-I+1, Q-I+1, X11(I,I-1), 1,
320318
$ X21(I,I-1), 1, X11(I,I), LDX11, X21(I,I),
@@ -372,8 +370,8 @@ SUBROUTINE CUNBDB4( M, P, Q, X11, LDX11, X21, LDX21, THETA,
372370
$ LDX21,
373371
$ TAUQ1(I) )
374372
CALL CLARF1F( 'R', Q-I, Q-I+1, X21(M-Q+I-P,I), LDX21,
375-
$ TAUQ1(I),
376-
$ X21(M-Q+I-P+1,I), LDX21, WORK(ILARF) )
373+
$ TAUQ1(I), X21(M-Q+I-P+1,I), LDX21,
374+
$ WORK(ILARF) )
377375
CALL CLACGV( Q-I+1, X21(M-Q+I-P,I), LDX21 )
378376
END DO
379377
*

‎SRC/cung2l.f‎

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -179,8 +179,7 @@ SUBROUTINE CUNG2L( M, N, K, A, LDA, TAU, WORK, INFO )
179179
*
180180
A( M-N+II, II ) = ONE
181181
CALL CLARF1L( 'Left', M-N+II, II-1, A( 1, II ), 1, TAU( I ),
182-
$ A,
183-
$ LDA, WORK )
182+
$ A, LDA, WORK )
184183
CALL CSCAL( M-N+II-1, -TAU( I ), A( 1, II ), 1 )
185184
A( M-N+II, II ) = ONE - TAU( I )
186185
*

‎SRC/cunm2r.f‎

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -267,8 +267,7 @@ SUBROUTINE CUNM2R( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC,
267267
TAUI = CONJG( TAU( I ) )
268268
END IF
269269
CALL CLARF1F( SIDE, MI, NI, A( I, I ), 1, TAUI, C( IC, JC ),
270-
$ LDC,
271-
$ WORK )
270+
$ LDC, WORK )
272271
10 CONTINUE
273272
RETURN
274273
*

‎SRC/sgebd2.f‎

Lines changed: 2 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -247,8 +247,7 @@ SUBROUTINE SGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO )
247247
*
248248
IF( I.LT.N )
249249
$ CALL SLARF1F( 'Left', M-I+1, N-I, A( I, I ), 1,
250-
$ TAUQ( I ),
251-
$ A( I, I+1 ), LDA, WORK )
250+
$ TAUQ( I ), A( I, I+1 ), LDA, WORK )
252251
*
253252
IF( I.LT.N ) THEN
254253
*
@@ -299,8 +298,7 @@ SUBROUTINE SGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO )
299298
* Apply H(i) to A(i+1:m,i+1:n) from the left
300299
*
301300
CALL SLARF1F( 'Left', M-I, N-I, A( I+1, I ), 1,
302-
$ TAUQ( I ),
303-
$ A( I+1, I+1 ), LDA, WORK )
301+
$ TAUQ( I ), A( I+1, I+1 ), LDA, WORK )
304302
ELSE
305303
TAUQ( I ) = ZERO
306304
END IF

0 commit comments

Comments
 (0)