Skip to content

Commit ba11da8

Browse files
mkrainiukmkrainiuk
committed
MATGEN long lines updated by script
1 parent 19d3a4e commit ba11da8

30 files changed

+384
-192
lines changed

‎TESTING/MATGEN/clarnd.f

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -125,7 +125,8 @@ COMPLEX FUNCTION CLARND( IDIST, ISEED )
125125
*
126126
* real and imaginary parts each normal (0,1)
127127
*
128-
CLARND = SQRT( -TWO*LOG( T1 ) )*EXP( CMPLX( ZERO, TWOPI*T2 ) )
128+
CLARND = SQRT( -TWO*LOG( T1 ) )*
129+
$ EXP( CMPLX( ZERO, TWOPI*T2 ) )
129130
ELSE IF( IDIST.EQ.4 ) THEN
130131
*
131132
* uniform distribution on the unit disc abs(z) <= 1

‎TESTING/MATGEN/clarot.f

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -225,7 +225,8 @@
225225
*> \ingroup complex_matgen
226226
*
227227
* =====================================================================
228-
SUBROUTINE CLAROT( LROWS, LLEFT, LRIGHT, NL, C, S, A, LDA, XLEFT,
228+
SUBROUTINE CLAROT( LROWS, LLEFT, LRIGHT, NL, C, S, A, LDA,
229+
$ XLEFT,
229230
$ XRIGHT )
230231
*
231232
* -- LAPACK auxiliary routine --

‎TESTING/MATGEN/clatm1.f

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -134,7 +134,8 @@
134134
*> \ingroup complex_matgen
135135
*
136136
* =====================================================================
137-
SUBROUTINE CLATM1( MODE, COND, IRSIGN, IDIST, ISEED, D, N, INFO )
137+
SUBROUTINE CLATM1( MODE, COND, IRSIGN, IDIST, ISEED, D, N,
138+
$ INFO )
138139
*
139140
* -- LAPACK auxiliary routine --
140141
* -- LAPACK is a software package provided by Univ. of Tennessee, --

‎TESTING/MATGEN/clatm5.f

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -263,7 +263,8 @@
263263
*> \endverbatim
264264
*>
265265
* =====================================================================
266-
SUBROUTINE CLATM5( PRTYPE, M, N, A, LDA, B, LDB, C, LDC, D, LDD,
266+
SUBROUTINE CLATM5( PRTYPE, M, N, A, LDA, B, LDB, C, LDC, D,
267+
$ LDD,
267268
$ E, LDE, F, LDF, R, LDR, L, LDL, ALPHA, QBLCKA,
268269
$ QBLCKB )
269270
*

‎TESTING/MATGEN/clatmr.f

Lines changed: 20 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -531,7 +531,8 @@ SUBROUTINE CLATMR( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
531531
LOGICAL LSAME
532532
REAL CLANGB, CLANGE, CLANSB, CLANSP, CLANSY
533533
COMPLEX CLATM2, CLATM3
534-
EXTERNAL LSAME, CLANGB, CLANGE, CLANSB, CLANSP, CLANSY,
534+
EXTERNAL LSAME, CLANGB, CLANGE,
535+
$ CLANSB, CLANSP, CLANSY,
535536
$ CLATM2, CLATM3
536537
* ..
537538
* .. External Subroutines ..
@@ -898,7 +899,8 @@ SUBROUTINE CLATMR( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
898899
*
899900
DO 170 J = 1, N
900901
DO 160 I = 1, J
901-
CTEMP = CLATM3( M, N, I, J, ISUB, JSUB, KL, KU, IDIST,
902+
CTEMP = CLATM3( M, N, I, J, ISUB, JSUB, KL, KU,
903+
$ IDIST,
902904
$ ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK,
903905
$ SPARSE )
904906
MNSUB = MIN( ISUB, JSUB )
@@ -917,7 +919,8 @@ SUBROUTINE CLATMR( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
917919
*
918920
DO 190 J = 1, N
919921
DO 180 I = 1, J
920-
CTEMP = CLATM3( M, N, I, J, ISUB, JSUB, KL, KU, IDIST,
922+
CTEMP = CLATM3( M, N, I, J, ISUB, JSUB, KL, KU,
923+
$ IDIST,
921924
$ ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK,
922925
$ SPARSE )
923926
MNSUB = MIN( ISUB, JSUB )
@@ -936,7 +939,8 @@ SUBROUTINE CLATMR( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
936939
*
937940
DO 210 J = 1, N
938941
DO 200 I = 1, J
939-
CTEMP = CLATM3( M, N, I, J, ISUB, JSUB, KL, KU, IDIST,
942+
CTEMP = CLATM3( M, N, I, J, ISUB, JSUB, KL, KU,
943+
$ IDIST,
940944
$ ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK,
941945
$ SPARSE )
942946
*
@@ -964,7 +968,8 @@ SUBROUTINE CLATMR( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
964968
*
965969
DO 230 J = 1, N
966970
DO 220 I = 1, J
967-
CTEMP = CLATM3( M, N, I, J, ISUB, JSUB, KL, KU, IDIST,
971+
CTEMP = CLATM3( M, N, I, J, ISUB, JSUB, KL, KU,
972+
$ IDIST,
968973
$ ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK,
969974
$ SPARSE )
970975
*
@@ -1017,7 +1022,8 @@ SUBROUTINE CLATMR( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
10171022
*
10181023
DO 270 J = 1, N
10191024
DO 260 I = J - KUU, J
1020-
CTEMP = CLATM3( M, N, I, J, ISUB, JSUB, KL, KU, IDIST,
1025+
CTEMP = CLATM3( M, N, I, J, ISUB, JSUB, KL, KU,
1026+
$ IDIST,
10211027
$ ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK,
10221028
$ SPARSE )
10231029
MNSUB = MIN( ISUB, JSUB )
@@ -1107,7 +1113,8 @@ SUBROUTINE CLATMR( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
11071113
*
11081114
DO 390 J = 1, N
11091115
DO 380 I = 1, J
1110-
A( I, J ) = CLATM2( M, N, I, J, KL, KU, IDIST, ISEED,
1116+
A( I, J ) = CLATM2( M, N, I, J, KL, KU, IDIST,
1117+
$ ISEED,
11111118
$ D, IGRADE, DL, DR, IPVTNG, IWORK, SPARSE )
11121119
IF( I.NE.J )
11131120
$ A( J, I ) = CZERO
@@ -1143,7 +1150,8 @@ SUBROUTINE CLATMR( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
11431150
ISUB = 1
11441151
JSUB = JSUB + 1
11451152
END IF
1146-
A( ISUB, JSUB ) = CLATM2( M, N, I, J, KL, KU, IDIST,
1153+
A( ISUB, JSUB ) = CLATM2( M, N, I, J, KL, KU,
1154+
$ IDIST,
11471155
$ ISEED, D, IGRADE, DL, DR, IPVTNG,
11481156
$ IWORK, SPARSE )
11491157
420 CONTINUE
@@ -1201,7 +1209,8 @@ SUBROUTINE CLATMR( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
12011209
A( J-I+1, I+N ) = CZERO
12021210
ELSE
12031211
IF( ISYM.EQ.0 ) THEN
1204-
A( J-I+1, I ) = CONJG( CLATM2( M, N, I, J, KL,
1212+
A( J-I+1, I ) = CONJG( CLATM2( M, N, I, J,
1213+
$ KL,
12051214
$ KU, IDIST, ISEED, D, IGRADE, DL,
12061215
$ DR, IPVTNG, IWORK, SPARSE ) )
12071216
ELSE
@@ -1217,7 +1226,8 @@ SUBROUTINE CLATMR( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
12171226
*
12181227
DO 510 J = 1, N
12191228
DO 500 I = J - KUU, J
1220-
A( I-J+KUU+1, J ) = CLATM2( M, N, I, J, KL, KU, IDIST,
1229+
A( I-J+KUU+1, J ) = CLATM2( M, N, I, J, KL, KU,
1230+
$ IDIST,
12211231
$ ISEED, D, IGRADE, DL, DR, IPVTNG,
12221232
$ IWORK, SPARSE )
12231233
500 CONTINUE

‎TESTING/MATGEN/clatms.f

Lines changed: 32 additions & 16 deletions
Original file line numberDiff line numberDiff line change
@@ -375,7 +375,8 @@ SUBROUTINE CLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
375375
EXTERNAL LSAME, SLARND, CLARND
376376
* ..
377377
* .. External Subroutines ..
378-
EXTERNAL CLAGGE, CLAGHE, CLAGSY, CLAROT, CLARTG, CLASET,
378+
EXTERNAL CLAGGE, CLAGHE, CLAGSY,
379+
$ CLAROT, CLARTG, CLASET,
379380
$ SLATM1, SSCAL, XERBLA
380381
* ..
381382
* .. Intrinsic Functions ..
@@ -535,7 +536,8 @@ SUBROUTINE CLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
535536
*
536537
* Compute D according to COND and MODE
537538
*
538-
CALL SLATM1( MODE, COND, IRSIGN, IDIST, ISEED, D, MNMIN, IINFO )
539+
CALL SLATM1( MODE, COND, IRSIGN, IDIST, ISEED, D, MNMIN,
540+
$ IINFO )
539541
IF( IINFO.NE.0 ) THEN
540542
INFO = 1
541543
RETURN
@@ -648,7 +650,8 @@ SUBROUTINE CLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
648650
ICOL = MAX( 1, JR-JKL )
649651
IF( JR.LT.M ) THEN
650652
IL = MIN( N, JR+JKU ) + 1 - ICOL
651-
CALL CLAROT( .TRUE., JR.GT.JKL, .FALSE., IL, C,
653+
CALL CLAROT( .TRUE., JR.GT.JKL, .FALSE., IL,
654+
$ C,
652655
$ S, A( JR-ISKEW*ICOL+IOFFST, ICOL ),
653656
$ ILDA, EXTRA, DUMMY )
654657
END IF
@@ -669,7 +672,8 @@ SUBROUTINE CLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
669672
IL = IR + 2 - IROW
670673
CTEMP = CZERO
671674
ILTEMP = JCH.GT.JKU
672-
CALL CLAROT( .FALSE., ILTEMP, .TRUE., IL, C, S,
675+
CALL CLAROT( .FALSE., ILTEMP, .TRUE., IL, C,
676+
$ S,
673677
$ A( IROW-ISKEW*IC+IOFFST, IC ),
674678
$ ILDA, CTEMP, EXTRA )
675679
IF( ILTEMP ) THEN
@@ -682,7 +686,8 @@ SUBROUTINE CLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
682686
ICOL = MAX( 1, JCH-JKU-JKL )
683687
IL = IC + 2 - ICOL
684688
EXTRA = CZERO
685-
CALL CLAROT( .TRUE., JCH.GT.JKU+JKL, .TRUE.,
689+
CALL CLAROT( .TRUE., JCH.GT.JKU+JKL,
690+
$ .TRUE.,
686691
$ IL, C, S, A( IROW-ISKEW*ICOL+
687692
$ IOFFST, ICOL ), ILDA, EXTRA,
688693
$ CTEMP )
@@ -706,7 +711,8 @@ SUBROUTINE CLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
706711
IROW = MAX( 1, JC-JKU )
707712
IF( JC.LT.N ) THEN
708713
IL = MIN( M, JC+JKL ) + 1 - IROW
709-
CALL CLAROT( .FALSE., JC.GT.JKU, .FALSE., IL, C,
714+
CALL CLAROT( .FALSE., JC.GT.JKU, .FALSE., IL,
715+
$ C,
710716
$ S, A( IROW-ISKEW*JC+IOFFST, JC ),
711717
$ ILDA, EXTRA, DUMMY )
712718
END IF
@@ -727,7 +733,8 @@ SUBROUTINE CLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
727733
IL = IC + 2 - ICOL
728734
CTEMP = CZERO
729735
ILTEMP = JCH.GT.JKL
730-
CALL CLAROT( .TRUE., ILTEMP, .TRUE., IL, C, S,
736+
CALL CLAROT( .TRUE., ILTEMP, .TRUE., IL, C,
737+
$ S,
731738
$ A( IR-ISKEW*ICOL+IOFFST, ICOL ),
732739
$ ILDA, CTEMP, EXTRA )
733740
IF( ILTEMP ) THEN
@@ -740,7 +747,8 @@ SUBROUTINE CLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
740747
IROW = MAX( 1, JCH-JKL-JKU )
741748
IL = IR + 2 - IROW
742749
EXTRA = CZERO
743-
CALL CLAROT( .FALSE., JCH.GT.JKL+JKU, .TRUE.,
750+
CALL CLAROT( .FALSE., JCH.GT.JKL+JKU,
751+
$ .TRUE.,
744752
$ IL, C, S, A( IROW-ISKEW*ICOL+
745753
$ IOFFST, ICOL ), ILDA, EXTRA,
746754
$ CTEMP )
@@ -772,7 +780,8 @@ SUBROUTINE CLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
772780
IROW = MAX( 1, JC-JKU+1 )
773781
IF( JC.GT.0 ) THEN
774782
IL = MIN( M, JC+JKL+1 ) + 1 - IROW
775-
CALL CLAROT( .FALSE., .FALSE., JC+JKL.LT.M, IL,
783+
CALL CLAROT( .FALSE., .FALSE., JC+JKL.LT.M,
784+
$ IL,
776785
$ C, S, A( IROW-ISKEW*JC+IOFFST,
777786
$ JC ), ILDA, DUMMY, EXTRA )
778787
END IF
@@ -793,7 +802,8 @@ SUBROUTINE CLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
793802
ICOL = MIN( N-1, JCH+JKU )
794803
ILTEMP = JCH + JKU.LT.N
795804
CTEMP = CZERO
796-
CALL CLAROT( .TRUE., ILEXTR, ILTEMP, ICOL+2-IC,
805+
CALL CLAROT( .TRUE., ILEXTR, ILTEMP,
806+
$ ICOL+2-IC,
797807
$ C, S, A( JCH-ISKEW*IC+IOFFST, IC ),
798808
$ ILDA, EXTRA, CTEMP )
799809
IF( ILTEMP ) THEN
@@ -831,7 +841,8 @@ SUBROUTINE CLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
831841
ICOL = MAX( 1, JR-JKL+1 )
832842
IF( JR.GT.0 ) THEN
833843
IL = MIN( N, JR+JKU+1 ) + 1 - ICOL
834-
CALL CLAROT( .TRUE., .FALSE., JR+JKU.LT.N, IL,
844+
CALL CLAROT( .TRUE., .FALSE., JR+JKU.LT.N,
845+
$ IL,
835846
$ C, S, A( JR-ISKEW*ICOL+IOFFST,
836847
$ ICOL ), ILDA, DUMMY, EXTRA )
837848
END IF
@@ -852,7 +863,8 @@ SUBROUTINE CLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
852863
IROW = MIN( M-1, JCH+JKL )
853864
ILTEMP = JCH + JKL.LT.M
854865
CTEMP = CZERO
855-
CALL CLAROT( .FALSE., ILEXTR, ILTEMP, IROW+2-IR,
866+
CALL CLAROT( .FALSE., ILEXTR, ILTEMP,
867+
$ IROW+2-IR,
856868
$ C, S, A( IR-ISKEW*JCH+IOFFST,
857869
$ JCH ), ILDA, EXTRA, CTEMP )
858870
IF( ILTEMP ) THEN
@@ -941,13 +953,15 @@ SUBROUTINE CLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
941953
CT = CONJG( C )
942954
ST = CONJG( S )
943955
END IF
944-
CALL CLAROT( .TRUE., .TRUE., .TRUE., K+2, C, S,
956+
CALL CLAROT( .TRUE., .TRUE., .TRUE., K+2, C,
957+
$ S,
945958
$ A( ( 1-ISKEW )*JCH+IOFFG, JCH ),
946959
$ ILDA, CTEMP, EXTRA )
947960
IROW = MAX( 1, JCH-K )
948961
IL = MIN( JCH+1, K+2 )
949962
EXTRA = CZERO
950-
CALL CLAROT( .FALSE., JCH.GT.K, .TRUE., IL, CT,
963+
CALL CLAROT( .FALSE., JCH.GT.K, .TRUE., IL,
964+
$ CT,
951965
$ ST, A( IROW-ISKEW*JCH+IOFFG, JCH ),
952966
$ ILDA, EXTRA, CTEMP )
953967
ICOL = JCH
@@ -1017,7 +1031,8 @@ SUBROUTINE CLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
10171031
CT = CONJG( C )
10181032
ST = CONJG( S )
10191033
END IF
1020-
CALL CLAROT( .FALSE., .TRUE., N-JC.GT.K, IL, C, S,
1034+
CALL CLAROT( .FALSE., .TRUE., N-JC.GT.K, IL, C,
1035+
$ S,
10211036
$ A( ( 1-ISKEW )*JC+IOFFG, JC ), ILDA,
10221037
$ CTEMP, EXTRA )
10231038
ICOL = MAX( 1, JC-K+1 )
@@ -1043,7 +1058,8 @@ SUBROUTINE CLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
10431058
CT = CONJG( C )
10441059
ST = CONJG( S )
10451060
END IF
1046-
CALL CLAROT( .TRUE., .TRUE., .TRUE., K+2, C, S,
1061+
CALL CLAROT( .TRUE., .TRUE., .TRUE., K+2, C,
1062+
$ S,
10471063
$ A( JCH-ISKEW*ICOL+IOFFG, ICOL ),
10481064
$ ILDA, EXTRA, CTEMP )
10491065
IL = MIN( N+1-JCH, K+2 )

0 commit comments

Comments
 (0)