Skip to content

Commit d3bcc3a

Browse files
mkrainiukmkrainiuk
committed
Fix LAPACK long lines from CI
1 parent b28159f commit d3bcc3a

File tree

8 files changed

+64
-32
lines changed

8 files changed

+64
-32
lines changed

‎SRC/chetrd_hb2st.F‎

Lines changed: 14 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -271,7 +271,8 @@ SUBROUTINE CHETRD_HB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,
271271
COMPLEX TMP
272272
* ..
273273
* .. External Subroutines ..
274-
EXTERNAL CHB2ST_KERNELS, CLACPY, CLASET, XERBLA
274+
EXTERNAL CHB2ST_KERNELS, CLACPY,
275+
$ CLASET, XERBLA
275276
* ..
276277
* .. Intrinsic Functions ..
277278
INTRINSIC MIN, MAX, CEILING, REAL
@@ -295,9 +296,12 @@ SUBROUTINE CHETRD_HB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,
295296
*
296297
* Determine the block size, the workspace size and the hous size.
297298
*
298-
IB = ILAENV2STAGE( 2, 'CHETRD_HB2ST', VECT, N, KD, -1, -1 )
299-
LHMIN = ILAENV2STAGE( 3, 'CHETRD_HB2ST', VECT, N, KD, IB, -1 )
300-
LWMIN = ILAENV2STAGE( 4, 'CHETRD_HB2ST', VECT, N, KD, IB, -1 )
299+
IB = ILAENV2STAGE( 2, 'CHETRD_HB2ST', VECT, N, KD, -1,
300+
$ -1 )
301+
LHMIN = ILAENV2STAGE( 3, 'CHETRD_HB2ST', VECT, N, KD, IB,
302+
$ -1 )
303+
LWMIN = ILAENV2STAGE( 4, 'CHETRD_HB2ST', VECT, N, KD, IB,
304+
$ -1 )
301305
*
302306
IF( .NOT.AFTERS1 .AND. .NOT.LSAME( STAGE1, 'N' ) ) THEN
303307
INFO = -1
@@ -516,7 +520,8 @@ SUBROUTINE CHETRD_HB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,
516520
!$OMP$ DEPEND(in:WORK(MYID-1))
517521
!$OMP$ DEPEND(out:WORK(MYID))
518522
TID = OMP_GET_THREAD_NUM()
519-
CALL CHB2ST_KERNELS( UPLO, WANTQ, TTYPE,
523+
CALL CHB2ST_KERNELS(
524+
$ UPLO, WANTQ, TTYPE,
520525
$ STIND, EDIND, SWEEPID, N, KD, IB,
521526
$ WORK ( INDA ), LDA,
522527
$ HOUS( INDV ), HOUS( INDTAU ), LDV,
@@ -526,15 +531,17 @@ SUBROUTINE CHETRD_HB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,
526531
!$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1))
527532
!$OMP$ DEPEND(out:WORK(MYID))
528533
TID = OMP_GET_THREAD_NUM()
529-
CALL CHB2ST_KERNELS( UPLO, WANTQ, TTYPE,
534+
CALL CHB2ST_KERNELS(
535+
$ UPLO, WANTQ, TTYPE,
530536
$ STIND, EDIND, SWEEPID, N, KD, IB,
531537
$ WORK ( INDA ), LDA,
532538
$ HOUS( INDV ), HOUS( INDTAU ), LDV,
533539
$ WORK( INDW + TID*KD ) )
534540
!$OMP END TASK
535541
ENDIF
536542
#else
537-
CALL CHB2ST_KERNELS( UPLO, WANTQ, TTYPE,
543+
CALL CHB2ST_KERNELS(
544+
$ UPLO, WANTQ, TTYPE,
538545
$ STIND, EDIND, SWEEPID, N, KD, IB,
539546
$ WORK ( INDA ), LDA,
540547
$ HOUS( INDV ), HOUS( INDTAU ), LDV,

‎SRC/cla_gerfsx_extended.f‎

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -521,7 +521,8 @@ SUBROUTINE CLA_GERFSX_EXTENDED( PREC_TYPE, TRANS_TYPE, N, NRHS,
521521
$ LDA, Y( 1, J ), 1, (1.0E+0,0.0E+0),
522522
$ RES, 1, PREC_TYPE )
523523
ELSE
524-
CALL BLAS_CGEMV2_X( TRANS_TYPE, N, N, (-1.0E+0,0.0E+0),
524+
CALL BLAS_CGEMV2_X( TRANS_TYPE, N, N,
525+
$ (-1.0E+0,0.0E+0),
525526
$ A, LDA, Y(1, J), Y_TAIL, 1, (1.0E+0,0.0E+0), RES, 1,
526527
$ PREC_TYPE)
527528
END IF

‎SRC/dsytrd_sb2st.F‎

Lines changed: 14 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -268,7 +268,8 @@ SUBROUTINE DSYTRD_SB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,
268268
$ SIDEV, SIZETAU, LDV, LHMIN, LWMIN
269269
* ..
270270
* .. External Subroutines ..
271-
EXTERNAL DSB2ST_KERNELS, DLACPY, DLASET, XERBLA
271+
EXTERNAL DSB2ST_KERNELS, DLACPY,
272+
$ DLASET, XERBLA
272273
* ..
273274
* .. Intrinsic Functions ..
274275
INTRINSIC MIN, MAX, CEILING, REAL
@@ -292,9 +293,12 @@ SUBROUTINE DSYTRD_SB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,
292293
*
293294
* Determine the block size, the workspace size and the hous size.
294295
*
295-
IB = ILAENV2STAGE( 2, 'DSYTRD_SB2ST', VECT, N, KD, -1, -1 )
296-
LHMIN = ILAENV2STAGE( 3, 'DSYTRD_SB2ST', VECT, N, KD, IB, -1 )
297-
LWMIN = ILAENV2STAGE( 4, 'DSYTRD_SB2ST', VECT, N, KD, IB, -1 )
296+
IB = ILAENV2STAGE( 2, 'DSYTRD_SB2ST', VECT, N, KD, -1,
297+
$ -1 )
298+
LHMIN = ILAENV2STAGE( 3, 'DSYTRD_SB2ST', VECT, N, KD, IB,
299+
$ -1 )
300+
LWMIN = ILAENV2STAGE( 4, 'DSYTRD_SB2ST', VECT, N, KD, IB,
301+
$ -1 )
298302
*
299303
IF( .NOT.AFTERS1 .AND. .NOT.LSAME( STAGE1, 'N' ) ) THEN
300304
INFO = -1
@@ -485,7 +489,8 @@ SUBROUTINE DSYTRD_SB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,
485489
!$OMP$ DEPEND(in:WORK(MYID-1))
486490
!$OMP$ DEPEND(out:WORK(MYID))
487491
TID = OMP_GET_THREAD_NUM()
488-
CALL DSB2ST_KERNELS( UPLO, WANTQ, TTYPE,
492+
CALL DSB2ST_KERNELS(
493+
$ UPLO, WANTQ, TTYPE,
489494
$ STIND, EDIND, SWEEPID, N, KD, IB,
490495
$ WORK ( INDA ), LDA,
491496
$ HOUS( INDV ), HOUS( INDTAU ), LDV,
@@ -495,15 +500,17 @@ SUBROUTINE DSYTRD_SB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,
495500
!$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1))
496501
!$OMP$ DEPEND(out:WORK(MYID))
497502
TID = OMP_GET_THREAD_NUM()
498-
CALL DSB2ST_KERNELS( UPLO, WANTQ, TTYPE,
503+
CALL DSB2ST_KERNELS(
504+
$ UPLO, WANTQ, TTYPE,
499505
$ STIND, EDIND, SWEEPID, N, KD, IB,
500506
$ WORK ( INDA ), LDA,
501507
$ HOUS( INDV ), HOUS( INDTAU ), LDV,
502508
$ WORK( INDW + TID*KD ) )
503509
!$OMP END TASK
504510
ENDIF
505511
#else
506-
CALL DSB2ST_KERNELS( UPLO, WANTQ, TTYPE,
512+
CALL DSB2ST_KERNELS(
513+
$ UPLO, WANTQ, TTYPE,
507514
$ STIND, EDIND, SWEEPID, N, KD, IB,
508515
$ WORK ( INDA ), LDA,
509516
$ HOUS( INDV ), HOUS( INDTAU ), LDV,

‎SRC/dtrsyl3.f‎

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1224,7 +1224,8 @@ SUBROUTINE DTRSYL3( TRANA, TRANB, ISGN, M, N, A, LDA, B, LDB,
12241224
*
12251225
SCALOC = MIN( BIGNUM / SCAL, ONE / BUF )
12261226
BUF = BUF * SCALOC
1227-
CALL DLASCL( 'G', -1, -1, ONE, SCALOC, M, N, C, LDC, IWORK(1) )
1227+
CALL DLASCL( 'G', -1, -1, ONE, SCALOC, M, N, C, LDC,
1228+
$ IWORK(1) )
12281229
END IF
12291230
*
12301231
* Combine with buffer scaling factor. SCALE will be flushed if

‎SRC/ssytrd_sb2st.F‎

Lines changed: 14 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -268,7 +268,8 @@ SUBROUTINE SSYTRD_SB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,
268268
$ SISEV, SIZETAU, LDV, LHMIN, LWMIN
269269
* ..
270270
* .. External Subroutines ..
271-
EXTERNAL SSB2ST_KERNELS, SLACPY, SLASET, XERBLA
271+
EXTERNAL SSB2ST_KERNELS, SLACPY,
272+
$ SLASET, XERBLA
272273
* ..
273274
* .. Intrinsic Functions ..
274275
INTRINSIC MIN, MAX, CEILING, REAL
@@ -292,9 +293,12 @@ SUBROUTINE SSYTRD_SB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,
292293
*
293294
* Determine the block size, the workspace size and the hous size.
294295
*
295-
IB = ILAENV2STAGE( 2, 'SSYTRD_SB2ST', VECT, N, KD, -1, -1 )
296-
LHMIN = ILAENV2STAGE( 3, 'SSYTRD_SB2ST', VECT, N, KD, IB, -1 )
297-
LWMIN = ILAENV2STAGE( 4, 'SSYTRD_SB2ST', VECT, N, KD, IB, -1 )
296+
IB = ILAENV2STAGE( 2, 'SSYTRD_SB2ST', VECT, N, KD, -1,
297+
$ -1 )
298+
LHMIN = ILAENV2STAGE( 3, 'SSYTRD_SB2ST', VECT, N, KD, IB,
299+
$ -1 )
300+
LWMIN = ILAENV2STAGE( 4, 'SSYTRD_SB2ST', VECT, N, KD, IB,
301+
$ -1 )
298302
*
299303
IF( .NOT.AFTERS1 .AND. .NOT.LSAME( STAGE1, 'N' ) ) THEN
300304
INFO = -1
@@ -485,7 +489,8 @@ SUBROUTINE SSYTRD_SB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,
485489
!$OMP$ DEPEND(in:WORK(MYID-1))
486490
!$OMP$ DEPEND(out:WORK(MYID))
487491
TID = OMP_GET_THREAD_NUM()
488-
CALL SSB2ST_KERNELS( UPLO, WANTQ, TTYPE,
492+
CALL SSB2ST_KERNELS(
493+
$ UPLO, WANTQ, TTYPE,
489494
$ STIND, EDIND, SWEEPID, N, KD, IB,
490495
$ WORK ( INDA ), LDA,
491496
$ HOUS( INDV ), HOUS( INDTAU ), LDV,
@@ -495,15 +500,17 @@ SUBROUTINE SSYTRD_SB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,
495500
!$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1))
496501
!$OMP$ DEPEND(out:WORK(MYID))
497502
TID = OMP_GET_THREAD_NUM()
498-
CALL SSB2ST_KERNELS( UPLO, WANTQ, TTYPE,
503+
CALL SSB2ST_KERNELS(
504+
$ UPLO, WANTQ, TTYPE,
499505
$ STIND, EDIND, SWEEPID, N, KD, IB,
500506
$ WORK ( INDA ), LDA,
501507
$ HOUS( INDV ), HOUS( INDTAU ), LDV,
502508
$ WORK( INDW + TID*KD ) )
503509
!$OMP END TASK
504510
ENDIF
505511
#else
506-
CALL SSB2ST_KERNELS( UPLO, WANTQ, TTYPE,
512+
CALL SSB2ST_KERNELS(
513+
$ UPLO, WANTQ, TTYPE,
507514
$ STIND, EDIND, SWEEPID, N, KD, IB,
508515
$ WORK ( INDA ), LDA,
509516
$ HOUS( INDV ), HOUS( INDTAU ), LDV,

‎SRC/strsyl3.f‎

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1227,7 +1227,8 @@ SUBROUTINE STRSYL3( TRANA, TRANB, ISGN, M, N, A, LDA, B, LDB,
12271227
*
12281228
SCALOC = MIN( BIGNUM / SCAL, ONE / BUF )
12291229
BUF = BUF * SCALOC
1230-
CALL SLASCL( 'G', -1, -1, ONE, SCALOC, M, N, C, LDC, IWORK(1) )
1230+
CALL SLASCL( 'G', -1, -1, ONE, SCALOC, M, N, C, LDC,
1231+
$ IWORK(1) )
12311232
END IF
12321233
*
12331234
* Combine with buffer scaling factor. SCALE will be flushed if

‎SRC/zhetrd_hb2st.F‎

Lines changed: 14 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -271,7 +271,8 @@ SUBROUTINE ZHETRD_HB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,
271271
COMPLEX*16 TMP
272272
* ..
273273
* .. External Subroutines ..
274-
EXTERNAL ZHB2ST_KERNELS, ZLACPY, ZLASET, XERBLA
274+
EXTERNAL ZHB2ST_KERNELS, ZLACPY,
275+
$ ZLASET, XERBLA
275276
* ..
276277
* .. Intrinsic Functions ..
277278
INTRINSIC MIN, MAX, CEILING, DBLE, REAL
@@ -295,9 +296,12 @@ SUBROUTINE ZHETRD_HB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,
295296
*
296297
* Determine the block size, the workspace size and the hous size.
297298
*
298-
IB = ILAENV2STAGE( 2, 'ZHETRD_HB2ST', VECT, N, KD, -1, -1 )
299-
LHMIN = ILAENV2STAGE( 3, 'ZHETRD_HB2ST', VECT, N, KD, IB, -1 )
300-
LWMIN = ILAENV2STAGE( 4, 'ZHETRD_HB2ST', VECT, N, KD, IB, -1 )
299+
IB = ILAENV2STAGE( 2, 'ZHETRD_HB2ST', VECT, N, KD, -1,
300+
$ -1 )
301+
LHMIN = ILAENV2STAGE( 3, 'ZHETRD_HB2ST', VECT, N, KD, IB,
302+
$ -1 )
303+
LWMIN = ILAENV2STAGE( 4, 'ZHETRD_HB2ST', VECT, N, KD, IB,
304+
$ -1 )
301305
*
302306
IF( .NOT.AFTERS1 .AND. .NOT.LSAME( STAGE1, 'N' ) ) THEN
303307
INFO = -1
@@ -517,7 +521,8 @@ SUBROUTINE ZHETRD_HB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,
517521
!$OMP$ DEPEND(in:WORK(MYID-1))
518522
!$OMP$ DEPEND(out:WORK(MYID))
519523
TID = OMP_GET_THREAD_NUM()
520-
CALL ZHB2ST_KERNELS( UPLO, WANTQ, TTYPE,
524+
CALL ZHB2ST_KERNELS(
525+
$ UPLO, WANTQ, TTYPE,
521526
$ STIND, EDIND, SWEEPID, N, KD, IB,
522527
$ WORK ( INDA ), LDA,
523528
$ HOUS( INDV ), HOUS( INDTAU ), LDV,
@@ -527,15 +532,17 @@ SUBROUTINE ZHETRD_HB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,
527532
!$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1))
528533
!$OMP$ DEPEND(out:WORK(MYID))
529534
TID = OMP_GET_THREAD_NUM()
530-
CALL ZHB2ST_KERNELS( UPLO, WANTQ, TTYPE,
535+
CALL ZHB2ST_KERNELS(
536+
$ UPLO, WANTQ, TTYPE,
531537
$ STIND, EDIND, SWEEPID, N, KD, IB,
532538
$ WORK ( INDA ), LDA,
533539
$ HOUS( INDV ), HOUS( INDTAU ), LDV,
534540
$ WORK( INDW + TID*KD ) )
535541
!$OMP END TASK
536542
ENDIF
537543
#else
538-
CALL ZHB2ST_KERNELS( UPLO, WANTQ, TTYPE,
544+
CALL ZHB2ST_KERNELS(
545+
$ UPLO, WANTQ, TTYPE,
539546
$ STIND, EDIND, SWEEPID, N, KD, IB,
540547
$ WORK ( INDA ), LDA,
541548
$ HOUS( INDV ), HOUS( INDTAU ), LDV,

‎SRC/zla_gerfsx_extended.f‎

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -520,7 +520,8 @@ SUBROUTINE ZLA_GERFSX_EXTENDED( PREC_TYPE, TRANS_TYPE, N, NRHS,
520520
$ LDA, Y( 1, J ), 1, (1.0D+0,0.0D+0),
521521
$ RES, 1, PREC_TYPE )
522522
ELSE
523-
CALL BLAS_ZGEMV2_X( TRANS_TYPE, N, N, (-1.0D+0,0.0D+0),
523+
CALL BLAS_ZGEMV2_X( TRANS_TYPE, N, N,
524+
$ (-1.0D+0,0.0D+0),
524525
$ A, LDA, Y(1, J), Y_TAIL, 1, (1.0D+0,0.0D+0), RES, 1,
525526
$ PREC_TYPE)
526527
END IF

0 commit comments

Comments
 (0)