Skip to content

Commit 3970a1a

Browse files
mkrainiukmkrainiuk
committed
MATGEN long lines updated by script
1 parent 800bb21 commit 3970a1a

30 files changed

+360
-180
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: 18 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -898,7 +898,8 @@ SUBROUTINE CLATMR( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
898898
*
899899
DO 170 J = 1, N
900900
DO 160 I = 1, J
901-
CTEMP = CLATM3( M, N, I, J, ISUB, JSUB, KL, KU, IDIST,
901+
CTEMP = CLATM3( M, N, I, J, ISUB, JSUB, KL, KU,
902+
$ IDIST,
902903
$ ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK,
903904
$ SPARSE )
904905
MNSUB = MIN( ISUB, JSUB )
@@ -917,7 +918,8 @@ SUBROUTINE CLATMR( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
917918
*
918919
DO 190 J = 1, N
919920
DO 180 I = 1, J
920-
CTEMP = CLATM3( M, N, I, J, ISUB, JSUB, KL, KU, IDIST,
921+
CTEMP = CLATM3( M, N, I, J, ISUB, JSUB, KL, KU,
922+
$ IDIST,
921923
$ ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK,
922924
$ SPARSE )
923925
MNSUB = MIN( ISUB, JSUB )
@@ -936,7 +938,8 @@ SUBROUTINE CLATMR( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
936938
*
937939
DO 210 J = 1, N
938940
DO 200 I = 1, J
939-
CTEMP = CLATM3( M, N, I, J, ISUB, JSUB, KL, KU, IDIST,
941+
CTEMP = CLATM3( M, N, I, J, ISUB, JSUB, KL, KU,
942+
$ IDIST,
940943
$ ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK,
941944
$ SPARSE )
942945
*
@@ -964,7 +967,8 @@ SUBROUTINE CLATMR( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
964967
*
965968
DO 230 J = 1, N
966969
DO 220 I = 1, J
967-
CTEMP = CLATM3( M, N, I, J, ISUB, JSUB, KL, KU, IDIST,
970+
CTEMP = CLATM3( M, N, I, J, ISUB, JSUB, KL, KU,
971+
$ IDIST,
968972
$ ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK,
969973
$ SPARSE )
970974
*
@@ -1017,7 +1021,8 @@ SUBROUTINE CLATMR( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
10171021
*
10181022
DO 270 J = 1, N
10191023
DO 260 I = J - KUU, J
1020-
CTEMP = CLATM3( M, N, I, J, ISUB, JSUB, KL, KU, IDIST,
1024+
CTEMP = CLATM3( M, N, I, J, ISUB, JSUB, KL, KU,
1025+
$ IDIST,
10211026
$ ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK,
10221027
$ SPARSE )
10231028
MNSUB = MIN( ISUB, JSUB )
@@ -1107,7 +1112,8 @@ SUBROUTINE CLATMR( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
11071112
*
11081113
DO 390 J = 1, N
11091114
DO 380 I = 1, J
1110-
A( I, J ) = CLATM2( M, N, I, J, KL, KU, IDIST, ISEED,
1115+
A( I, J ) = CLATM2( M, N, I, J, KL, KU, IDIST,
1116+
$ ISEED,
11111117
$ D, IGRADE, DL, DR, IPVTNG, IWORK, SPARSE )
11121118
IF( I.NE.J )
11131119
$ A( J, I ) = CZERO
@@ -1143,7 +1149,8 @@ SUBROUTINE CLATMR( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
11431149
ISUB = 1
11441150
JSUB = JSUB + 1
11451151
END IF
1146-
A( ISUB, JSUB ) = CLATM2( M, N, I, J, KL, KU, IDIST,
1152+
A( ISUB, JSUB ) = CLATM2( M, N, I, J, KL, KU,
1153+
$ IDIST,
11471154
$ ISEED, D, IGRADE, DL, DR, IPVTNG,
11481155
$ IWORK, SPARSE )
11491156
420 CONTINUE
@@ -1201,7 +1208,8 @@ SUBROUTINE CLATMR( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
12011208
A( J-I+1, I+N ) = CZERO
12021209
ELSE
12031210
IF( ISYM.EQ.0 ) THEN
1204-
A( J-I+1, I ) = CONJG( CLATM2( M, N, I, J, KL,
1211+
A( J-I+1, I ) = CONJG( CLATM2( M, N, I, J,
1212+
$ KL,
12051213
$ KU, IDIST, ISEED, D, IGRADE, DL,
12061214
$ DR, IPVTNG, IWORK, SPARSE ) )
12071215
ELSE
@@ -1217,7 +1225,8 @@ SUBROUTINE CLATMR( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
12171225
*
12181226
DO 510 J = 1, N
12191227
DO 500 I = J - KUU, J
1220-
A( I-J+KUU+1, J ) = CLATM2( M, N, I, J, KL, KU, IDIST,
1228+
A( I-J+KUU+1, J ) = CLATM2( M, N, I, J, KL, KU,
1229+
$ IDIST,
12211230
$ ISEED, D, IGRADE, DL, DR, IPVTNG,
12221231
$ IWORK, SPARSE )
12231232
500 CONTINUE

‎TESTING/MATGEN/clatms.f‎

Lines changed: 30 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -535,7 +535,8 @@ SUBROUTINE CLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
535535
*
536536
* Compute D according to COND and MODE
537537
*
538-
CALL SLATM1( MODE, COND, IRSIGN, IDIST, ISEED, D, MNMIN, IINFO )
538+
CALL SLATM1( MODE, COND, IRSIGN, IDIST, ISEED, D, MNMIN,
539+
$ IINFO )
539540
IF( IINFO.NE.0 ) THEN
540541
INFO = 1
541542
RETURN
@@ -648,7 +649,8 @@ SUBROUTINE CLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
648649
ICOL = MAX( 1, JR-JKL )
649650
IF( JR.LT.M ) THEN
650651
IL = MIN( N, JR+JKU ) + 1 - ICOL
651-
CALL CLAROT( .TRUE., JR.GT.JKL, .FALSE., IL, C,
652+
CALL CLAROT( .TRUE., JR.GT.JKL, .FALSE., IL,
653+
$ C,
652654
$ S, A( JR-ISKEW*ICOL+IOFFST, ICOL ),
653655
$ ILDA, EXTRA, DUMMY )
654656
END IF
@@ -669,7 +671,8 @@ SUBROUTINE CLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
669671
IL = IR + 2 - IROW
670672
CTEMP = CZERO
671673
ILTEMP = JCH.GT.JKU
672-
CALL CLAROT( .FALSE., ILTEMP, .TRUE., IL, C, S,
674+
CALL CLAROT( .FALSE., ILTEMP, .TRUE., IL, C,
675+
$ S,
673676
$ A( IROW-ISKEW*IC+IOFFST, IC ),
674677
$ ILDA, CTEMP, EXTRA )
675678
IF( ILTEMP ) THEN
@@ -682,7 +685,8 @@ SUBROUTINE CLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
682685
ICOL = MAX( 1, JCH-JKU-JKL )
683686
IL = IC + 2 - ICOL
684687
EXTRA = CZERO
685-
CALL CLAROT( .TRUE., JCH.GT.JKU+JKL, .TRUE.,
688+
CALL CLAROT( .TRUE., JCH.GT.JKU+JKL,
689+
$ .TRUE.,
686690
$ IL, C, S, A( IROW-ISKEW*ICOL+
687691
$ IOFFST, ICOL ), ILDA, EXTRA,
688692
$ CTEMP )
@@ -706,7 +710,8 @@ SUBROUTINE CLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
706710
IROW = MAX( 1, JC-JKU )
707711
IF( JC.LT.N ) THEN
708712
IL = MIN( M, JC+JKL ) + 1 - IROW
709-
CALL CLAROT( .FALSE., JC.GT.JKU, .FALSE., IL, C,
713+
CALL CLAROT( .FALSE., JC.GT.JKU, .FALSE., IL,
714+
$ C,
710715
$ S, A( IROW-ISKEW*JC+IOFFST, JC ),
711716
$ ILDA, EXTRA, DUMMY )
712717
END IF
@@ -727,7 +732,8 @@ SUBROUTINE CLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
727732
IL = IC + 2 - ICOL
728733
CTEMP = CZERO
729734
ILTEMP = JCH.GT.JKL
730-
CALL CLAROT( .TRUE., ILTEMP, .TRUE., IL, C, S,
735+
CALL CLAROT( .TRUE., ILTEMP, .TRUE., IL, C,
736+
$ S,
731737
$ A( IR-ISKEW*ICOL+IOFFST, ICOL ),
732738
$ ILDA, CTEMP, EXTRA )
733739
IF( ILTEMP ) THEN
@@ -740,7 +746,8 @@ SUBROUTINE CLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
740746
IROW = MAX( 1, JCH-JKL-JKU )
741747
IL = IR + 2 - IROW
742748
EXTRA = CZERO
743-
CALL CLAROT( .FALSE., JCH.GT.JKL+JKU, .TRUE.,
749+
CALL CLAROT( .FALSE., JCH.GT.JKL+JKU,
750+
$ .TRUE.,
744751
$ IL, C, S, A( IROW-ISKEW*ICOL+
745752
$ IOFFST, ICOL ), ILDA, EXTRA,
746753
$ CTEMP )
@@ -772,7 +779,8 @@ SUBROUTINE CLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
772779
IROW = MAX( 1, JC-JKU+1 )
773780
IF( JC.GT.0 ) THEN
774781
IL = MIN( M, JC+JKL+1 ) + 1 - IROW
775-
CALL CLAROT( .FALSE., .FALSE., JC+JKL.LT.M, IL,
782+
CALL CLAROT( .FALSE., .FALSE., JC+JKL.LT.M,
783+
$ IL,
776784
$ C, S, A( IROW-ISKEW*JC+IOFFST,
777785
$ JC ), ILDA, DUMMY, EXTRA )
778786
END IF
@@ -793,7 +801,8 @@ SUBROUTINE CLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
793801
ICOL = MIN( N-1, JCH+JKU )
794802
ILTEMP = JCH + JKU.LT.N
795803
CTEMP = CZERO
796-
CALL CLAROT( .TRUE., ILEXTR, ILTEMP, ICOL+2-IC,
804+
CALL CLAROT( .TRUE., ILEXTR, ILTEMP,
805+
$ ICOL+2-IC,
797806
$ C, S, A( JCH-ISKEW*IC+IOFFST, IC ),
798807
$ ILDA, EXTRA, CTEMP )
799808
IF( ILTEMP ) THEN
@@ -831,7 +840,8 @@ SUBROUTINE CLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
831840
ICOL = MAX( 1, JR-JKL+1 )
832841
IF( JR.GT.0 ) THEN
833842
IL = MIN( N, JR+JKU+1 ) + 1 - ICOL
834-
CALL CLAROT( .TRUE., .FALSE., JR+JKU.LT.N, IL,
843+
CALL CLAROT( .TRUE., .FALSE., JR+JKU.LT.N,
844+
$ IL,
835845
$ C, S, A( JR-ISKEW*ICOL+IOFFST,
836846
$ ICOL ), ILDA, DUMMY, EXTRA )
837847
END IF
@@ -852,7 +862,8 @@ SUBROUTINE CLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
852862
IROW = MIN( M-1, JCH+JKL )
853863
ILTEMP = JCH + JKL.LT.M
854864
CTEMP = CZERO
855-
CALL CLAROT( .FALSE., ILEXTR, ILTEMP, IROW+2-IR,
865+
CALL CLAROT( .FALSE., ILEXTR, ILTEMP,
866+
$ IROW+2-IR,
856867
$ C, S, A( IR-ISKEW*JCH+IOFFST,
857868
$ JCH ), ILDA, EXTRA, CTEMP )
858869
IF( ILTEMP ) THEN
@@ -941,13 +952,15 @@ SUBROUTINE CLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
941952
CT = CONJG( C )
942953
ST = CONJG( S )
943954
END IF
944-
CALL CLAROT( .TRUE., .TRUE., .TRUE., K+2, C, S,
955+
CALL CLAROT( .TRUE., .TRUE., .TRUE., K+2, C,
956+
$ S,
945957
$ A( ( 1-ISKEW )*JCH+IOFFG, JCH ),
946958
$ ILDA, CTEMP, EXTRA )
947959
IROW = MAX( 1, JCH-K )
948960
IL = MIN( JCH+1, K+2 )
949961
EXTRA = CZERO
950-
CALL CLAROT( .FALSE., JCH.GT.K, .TRUE., IL, CT,
962+
CALL CLAROT( .FALSE., JCH.GT.K, .TRUE., IL,
963+
$ CT,
951964
$ ST, A( IROW-ISKEW*JCH+IOFFG, JCH ),
952965
$ ILDA, EXTRA, CTEMP )
953966
ICOL = JCH
@@ -1017,7 +1030,8 @@ SUBROUTINE CLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
10171030
CT = CONJG( C )
10181031
ST = CONJG( S )
10191032
END IF
1020-
CALL CLAROT( .FALSE., .TRUE., N-JC.GT.K, IL, C, S,
1033+
CALL CLAROT( .FALSE., .TRUE., N-JC.GT.K, IL, C,
1034+
$ S,
10211035
$ A( ( 1-ISKEW )*JC+IOFFG, JC ), ILDA,
10221036
$ CTEMP, EXTRA )
10231037
ICOL = MAX( 1, JC-K+1 )
@@ -1043,7 +1057,8 @@ SUBROUTINE CLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
10431057
CT = CONJG( C )
10441058
ST = CONJG( S )
10451059
END IF
1046-
CALL CLAROT( .TRUE., .TRUE., .TRUE., K+2, C, S,
1060+
CALL CLAROT( .TRUE., .TRUE., .TRUE., K+2, C,
1061+
$ S,
10471062
$ A( JCH-ISKEW*ICOL+IOFFG, ICOL ),
10481063
$ ILDA, EXTRA, CTEMP )
10491064
IL = MIN( N+1-JCH, K+2 )

0 commit comments

Comments
 (0)