Skip to content

Commit 3ccdcce

Browse files
mkrainiukmkrainiuk
committed
LAPACK SRC long lines updated manually
1 parent a1e8cb4 commit 3ccdcce

15 files changed

+82
-43
lines changed

‎INSTALL/droundup_lwork.f

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -77,7 +77,8 @@ DOUBLE PRECISION FUNCTION DROUNDUP_LWORK( LWORK )
7777
*
7878
IF( INT( DROUNDUP_LWORK ) .LT. LWORK ) THEN
7979
* Force round up of LWORK
80-
DROUNDUP_LWORK = DROUNDUP_LWORK * ( 1.0D+0 + EPSILON(0.0D+0) )
80+
DROUNDUP_LWORK = DROUNDUP_LWORK *
81+
$ ( 1.0D+0 + EPSILON(0.0D+0) )
8182
ENDIF
8283
*
8384
RETURN

‎INSTALL/sroundup_lwork.f

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -77,7 +77,8 @@ REAL FUNCTION SROUNDUP_LWORK( LWORK )
7777
*
7878
IF( INT( SROUNDUP_LWORK ) .LT. LWORK ) THEN
7979
* Force round up of LWORK
80-
SROUNDUP_LWORK = SROUNDUP_LWORK * ( 1.0E+0 + EPSILON(0.0E+0) )
80+
SROUNDUP_LWORK = SROUNDUP_LWORK *
81+
$ ( 1.0E+0 + EPSILON(0.0E+0) )
8182
ENDIF
8283
*
8384
RETURN

‎SRC/chetrd_hb2st.F

Lines changed: 14 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -276,7 +276,8 @@ SUBROUTINE CHETRD_HB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,
276276
COMPLEX TMP
277277
* ..
278278
* .. External Subroutines ..
279-
EXTERNAL CHB2ST_KERNELS, CLACPY, CLASET, XERBLA
279+
EXTERNAL CHB2ST_KERNELS, CLACPY,
280+
$ CLASET, XERBLA
280281
* ..
281282
* .. Intrinsic Functions ..
282283
INTRINSIC MIN, MAX, CEILING, REAL
@@ -300,13 +301,16 @@ SUBROUTINE CHETRD_HB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,
300301
*
301302
* Determine the block size, the workspace size and the hous size.
302303
*
303-
IB = ILAENV2STAGE( 2, 'CHETRD_HB2ST', VECT, N, KD, -1, -1 )
304+
IB = ILAENV2STAGE( 2, 'CHETRD_HB2ST', VECT, N, KD,
305+
$ -1, -1 )
304306
IF( N.EQ.0 .OR. KD.LE.1 ) THEN
305307
LHMIN = 1
306308
LWMIN = 1
307309
ELSE
308-
LHMIN = ILAENV2STAGE( 3, 'CHETRD_HB2ST', VECT, N, KD, IB, -1 )
309-
LWMIN = ILAENV2STAGE( 4, 'CHETRD_HB2ST', VECT, N, KD, IB, -1 )
310+
LHMIN = ILAENV2STAGE( 3, 'CHETRD_HB2ST', VECT, N, KD, IB,
311+
$ -1 )
312+
LWMIN = ILAENV2STAGE( 4, 'CHETRD_HB2ST', VECT, N, KD, IB,
313+
$ -1 )
310314
END IF
311315
*
312316
IF( .NOT.AFTERS1 .AND. .NOT.LSAME( STAGE1, 'N' ) ) THEN
@@ -526,7 +530,8 @@ SUBROUTINE CHETRD_HB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,
526530
!$OMP$ DEPEND(in:WORK(MYID-1))
527531
!$OMP$ DEPEND(out:WORK(MYID))
528532
TID = OMP_GET_THREAD_NUM()
529-
CALL CHB2ST_KERNELS( UPLO, WANTQ, TTYPE,
533+
CALL CHB2ST_KERNELS(
534+
$ UPLO, WANTQ, TTYPE,
530535
$ STIND, EDIND, SWEEPID, N, KD, IB,
531536
$ WORK ( INDA ), LDA,
532537
$ HOUS( INDV ), HOUS( INDTAU ), LDV,
@@ -536,15 +541,17 @@ SUBROUTINE CHETRD_HB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,
536541
!$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1))
537542
!$OMP$ DEPEND(out:WORK(MYID))
538543
TID = OMP_GET_THREAD_NUM()
539-
CALL CHB2ST_KERNELS( UPLO, WANTQ, TTYPE,
544+
CALL CHB2ST_KERNELS(
545+
$ UPLO, WANTQ, TTYPE,
540546
$ STIND, EDIND, SWEEPID, N, KD, IB,
541547
$ WORK ( INDA ), LDA,
542548
$ HOUS( INDV ), HOUS( INDTAU ), LDV,
543549
$ WORK( INDW + TID*KD ) )
544550
!$OMP END TASK
545551
ENDIF
546552
#else
547-
CALL CHB2ST_KERNELS( UPLO, WANTQ, TTYPE,
553+
CALL CHB2ST_KERNELS(
554+
$ UPLO, WANTQ, TTYPE,
548555
$ STIND, EDIND, SWEEPID, N, KD, IB,
549556
$ WORK ( INDA ), LDA,
550557
$ HOUS( INDV ), HOUS( INDTAU ), LDV,

‎SRC/chptrf.f

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -594,7 +594,8 @@ SUBROUTINE CHPTRF( UPLO, N, AP, IPIV, INFO )
594594
* where L(k) and L(k+1) are the k-th and (k+1)-th
595595
* columns of L
596596
*
597-
D = SLAPY2( REAL( AP( K+1+( K-1 )*( 2*N-K ) / 2 ) ),
597+
D = SLAPY2(
598+
$ REAL( AP( K+1+( K-1 )*( 2*N-K ) / 2 ) ),
598599
$ AIMAG( AP( K+1+( K-1 )*( 2*N-K ) / 2 ) ) )
599600
D11 = REAL( AP( K+1+K*( 2*N-K-1 ) / 2 ) ) / D
600601
D22 = REAL( AP( K+( K-1 )*( 2*N-K ) / 2 ) ) / D

‎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/claqz3.f

Lines changed: 6 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -231,7 +231,8 @@ SUBROUTINE CLAQZ3( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NSHIFTS,
231231
COMPLEX :: TEMP, TEMP2, TEMP3, S
232232

233233
* External Functions
234-
EXTERNAL :: XERBLA, CLASET, CLARTG, CROT, CLAQZ1, CGEMM, CLACPY
234+
EXTERNAL :: XERBLA, CLASET, CLARTG, CROT,
235+
$ CLAQZ1, CGEMM, CLACPY
235236
REAL, EXTERNAL :: SLAMCH
236237

237238
INFO = 0
@@ -301,10 +302,10 @@ SUBROUTINE CLAQZ3( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NSHIFTS,
301302
END IF
302303

303304
CALL CLARTG( TEMP2, TEMP3, C, S, TEMP )
304-
CALL CROT( NS, A( ILO, ILO ), LDA, A( ILO+1, ILO ), LDA, C,
305-
$ S )
306-
CALL CROT( NS, B( ILO, ILO ), LDB, B( ILO+1, ILO ), LDB, C,
307-
$ S )
305+
CALL CROT( NS, A( ILO, ILO ), LDA, A( ILO+1, ILO ), LDA,
306+
$ C, S )
307+
CALL CROT( NS, B( ILO, ILO ), LDB, B( ILO+1, ILO ), LDB,
308+
$ C, S )
308309
CALL CROT( NS+1, QC( 1, 1 ), 1, QC( 1, 2 ), 1, C,
309310
$ CONJG( S ) )
310311

‎SRC/dlaein.f

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -381,7 +381,8 @@ SUBROUTINE DLAEIN( RIGHTV, NOINIT, N, H, LDH, WR, WI, VR, VI,
381381
*
382382
* Scale supplied initial vector.
383383
*
384-
NORM = DLAPY2( DNRM2( N, VR, 1 ), DNRM2( N, VI, 1 ) )
384+
NORM = DLAPY2( DNRM2( N, VR, 1 ),
385+
$ DNRM2( N, VI, 1 ) )
385386
REC = ( EPS3*ROOTN ) / MAX( NORM, NRMSML )
386387
CALL DSCAL( N, REC, VR, 1 )
387388
CALL DSCAL( N, REC, VI, 1 )

‎SRC/dsytrd_sb2st.F

Lines changed: 14 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -273,7 +273,8 @@ SUBROUTINE DSYTRD_SB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,
273273
$ SIDEV, SIZETAU, LDV, LHMIN, LWMIN
274274
* ..
275275
* .. External Subroutines ..
276-
EXTERNAL DSB2ST_KERNELS, DLACPY, DLASET, XERBLA
276+
EXTERNAL DSB2ST_KERNELS, DLACPY,
277+
$ DLASET, XERBLA
277278
* ..
278279
* .. Intrinsic Functions ..
279280
INTRINSIC MIN, MAX, CEILING, REAL
@@ -296,13 +297,16 @@ SUBROUTINE DSYTRD_SB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,
296297
*
297298
* Determine the block size, the workspace size and the hous size.
298299
*
299-
IB = ILAENV2STAGE( 2, 'DSYTRD_SB2ST', VECT, N, KD, -1, -1 )
300+
IB = ILAENV2STAGE( 2, 'DSYTRD_SB2ST', VECT, N, KD,
301+
$ -1, -1 )
300302
IF( N.EQ.0 .OR. KD.LE.1 ) THEN
301303
LHMIN = 1
302304
LWMIN = 1
303305
ELSE
304-
LHMIN = ILAENV2STAGE( 3, 'DSYTRD_SB2ST', VECT, N, KD, IB, -1 )
305-
LWMIN = ILAENV2STAGE( 4, 'DSYTRD_SB2ST', VECT, N, KD, IB, -1 )
306+
LHMIN = ILAENV2STAGE( 3, 'DSYTRD_SB2ST', VECT, N, KD, IB,
307+
$ -1 )
308+
LWMIN = ILAENV2STAGE( 4, 'DSYTRD_SB2ST', VECT, N, KD, IB,
309+
$ -1 )
306310
END IF
307311
*
308312
IF( .NOT.AFTERS1 .AND. .NOT.LSAME( STAGE1, 'N' ) ) THEN
@@ -494,7 +498,8 @@ SUBROUTINE DSYTRD_SB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,
494498
!$OMP$ DEPEND(in:WORK(MYID-1))
495499
!$OMP$ DEPEND(out:WORK(MYID))
496500
TID = OMP_GET_THREAD_NUM()
497-
CALL DSB2ST_KERNELS( UPLO, WANTQ, TTYPE,
501+
CALL DSB2ST_KERNELS(
502+
$ UPLO, WANTQ, TTYPE,
498503
$ STIND, EDIND, SWEEPID, N, KD, IB,
499504
$ WORK ( INDA ), LDA,
500505
$ HOUS( INDV ), HOUS( INDTAU ), LDV,
@@ -504,15 +509,17 @@ SUBROUTINE DSYTRD_SB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,
504509
!$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1))
505510
!$OMP$ DEPEND(out:WORK(MYID))
506511
TID = OMP_GET_THREAD_NUM()
507-
CALL DSB2ST_KERNELS( UPLO, WANTQ, TTYPE,
512+
CALL DSB2ST_KERNELS(
513+
$ UPLO, WANTQ, TTYPE,
508514
$ STIND, EDIND, SWEEPID, N, KD, IB,
509515
$ WORK ( INDA ), LDA,
510516
$ HOUS( INDV ), HOUS( INDTAU ), LDV,
511517
$ WORK( INDW + TID*KD ) )
512518
!$OMP END TASK
513519
ENDIF
514520
#else
515-
CALL DSB2ST_KERNELS( UPLO, WANTQ, TTYPE,
521+
CALL DSB2ST_KERNELS(
522+
$ UPLO, WANTQ, TTYPE,
516523
$ STIND, EDIND, SWEEPID, N, KD, IB,
517524
$ WORK ( INDA ), LDA,
518525
$ 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/slaein.f

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -381,7 +381,8 @@ SUBROUTINE SLAEIN( RIGHTV, NOINIT, N, H, LDH, WR, WI, VR, VI,
381381
*
382382
* Scale supplied initial vector.
383383
*
384-
NORM = SLAPY2( SNRM2( N, VR, 1 ), SNRM2( N, VI, 1 ) )
384+
NORM = SLAPY2( SNRM2( N, VR, 1 ),
385+
$ SNRM2( N, VI, 1 ) )
385386
REC = ( EPS3*ROOTN ) / MAX( NORM, NRMSML )
386387
CALL SSCAL( N, REC, VR, 1 )
387388
CALL SSCAL( N, REC, VI, 1 )

0 commit comments

Comments
 (0)