Skip to content

Commit d379e9c

Browse files
perazzperazz
committed
free-form !$omp continuation style
1 parent da5d90c commit d379e9c

6 files changed

+66
-66
lines changed

‎src/stdlib_linalg_lapack_c.fypp

+11-11
Original file line numberDiff line numberDiff line change
@@ -36398,12 +36398,12 @@ module stdlib_linalg_lapack_c
3639836398
call stdlib_clacpy( "A", kd+1, n, ab, ldab, work( apos ), lda )
3639936399
call stdlib_claset( "A", kd, n, czero, czero, work( awpos ), lda )
3640036400
! openmp parallelisation start here
36401-
!$OMP PARALLEL PRIVATE( TID, THGRID, BLKLASTIND )
36402-
!$OMP$ PRIVATE( THED, I, M, K, ST, ED, STT, SWEEPID )
36403-
!$OMP$ PRIVATE( MYID, TTYPE, COLPT, STIND, EDIND )
36404-
!$OMP$ SHARED ( UPLO, WANTQ, INDV, INDTAU, HOUS, WORK)
36405-
!$OMP$ SHARED ( N, KD, IB, NBTILES, LDA, LDV, INDA )
36406-
!$OMP$ SHARED ( STEPERCOL, THGRNB, THGRSIZ, GRSIZ, SHIFT )
36401+
!$OMP PARALLEL PRIVATE( TID, THGRID, BLKLASTIND ) &
36402+
!$OMP& PRIVATE( THED, I, M, K, ST, ED, STT, SWEEPID ) &
36403+
!$OMP& PRIVATE( MYID, TTYPE, COLPT, STIND, EDIND ) &
36404+
!$OMP& SHARED ( UPLO, WANTQ, INDV, INDTAU, HOUS, WORK) &
36405+
!$OMP& SHARED ( N, KD, IB, NBTILES, LDA, LDV, INDA ) &
36406+
!$OMP& SHARED ( STEPERCOL, THGRNB, THGRSIZ, GRSIZ, SHIFT )
3640736407
!$OMP MASTER
3640836408
! main bulge chasing loop
3640936409
loop_100: do thgrid = 1, thgrnb
@@ -36439,17 +36439,17 @@ module stdlib_linalg_lapack_c
3643936439
endif
3644036440
! call the kernel
3644136441
!$ if( ttype/=1 ) then
36442-
!$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1))
36443-
!$OMP$ DEPEND(in:WORK(MYID-1))
36444-
!$OMP$ DEPEND(out:WORK(MYID))
36442+
!$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1)) &
36443+
!$OMP& DEPEND(in:WORK(MYID-1)) &
36444+
!$OMP& DEPEND(out:WORK(MYID))
3644536445
!$ tid = omp_get_thread_num()
3644636446
!$ call stdlib_chb2st_kernels( uplo, wantq, ttype,stind, edind, &
3644736447
!$ sweepid, n, kd, ib,work ( inda ), lda,hous( indv ), hous( &
3644836448
!$ indtau ), ldv,work( indw + tid*kd ) )
3644936449
!$OMP END TASK
3645036450
!$ else
36451-
!$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1))
36452-
!$OMP$ DEPEND(out:WORK(MYID))
36451+
!$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1)) &
36452+
!$OMP& DEPEND(out:WORK(MYID))
3645336453
!$ tid = omp_get_thread_num()
3645436454
call stdlib_chb2st_kernels( uplo, wantq, ttype,stind, edind, &
3645536455
sweepid, n, kd, ib,work ( inda ), lda,hous( indv ), hous( &

‎src/stdlib_linalg_lapack_d.fypp

+11-11
Original file line numberDiff line numberDiff line change
@@ -41444,12 +41444,12 @@ module stdlib_linalg_lapack_d
4144441444
call stdlib_dlacpy( "A", kd+1, n, ab, ldab, work( apos ), lda )
4144541445
call stdlib_dlaset( "A", kd, n, zero, zero, work( awpos ), lda )
4144641446
! openmp parallelisation start here
41447-
!$OMP PARALLEL PRIVATE( TID, THGRID, BLKLASTIND )
41448-
!$OMP$ PRIVATE( THED, I, M, K, ST, ED, STT, SWEEPID )
41449-
!$OMP$ PRIVATE( MYID, TTYPE, COLPT, STIND, EDIND )
41450-
!$OMP$ SHARED ( UPLO, WANTQ, INDV, INDTAU, HOUS, WORK)
41451-
!$OMP$ SHARED ( N, KD, IB, NBTILES, LDA, LDV, INDA )
41452-
!$OMP$ SHARED ( STEPERCOL, THGRNB, THGRSIZ, GRSIZ, SHIFT )
41447+
!$OMP PARALLEL PRIVATE( TID, THGRID, BLKLASTIND ) &
41448+
!$OMP& PRIVATE( THED, I, M, K, ST, ED, STT, SWEEPID ) &
41449+
!$OMP& PRIVATE( MYID, TTYPE, COLPT, STIND, EDIND ) &
41450+
!$OMP& SHARED ( UPLO, WANTQ, INDV, INDTAU, HOUS, WORK) &
41451+
!$OMP& SHARED ( N, KD, IB, NBTILES, LDA, LDV, INDA ) &
41452+
!$OMP& SHARED ( STEPERCOL, THGRNB, THGRSIZ, GRSIZ, SHIFT )
4145341453
!$OMP MASTER
4145441454
! main bulge chasing loop
4145541455
loop_100: do thgrid = 1, thgrnb
@@ -41485,17 +41485,17 @@ module stdlib_linalg_lapack_d
4148541485
endif
4148641486
! call the kernel
4148741487
!$ if( ttype/=1 ) then
41488-
!$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1))
41489-
!$OMP$ DEPEND(in:WORK(MYID-1))
41490-
!$OMP$ DEPEND(out:WORK(MYID))
41488+
!$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1)) &
41489+
!$OMP& DEPEND(in:WORK(MYID-1)) &
41490+
!$OMP& DEPEND(out:WORK(MYID))
4149141491
!$ tid = omp_get_thread_num()
4149241492
!$ call stdlib_dsb2st_kernels( uplo, wantq, ttype,stind, edind, &
4149341493
!$ sweepid, n, kd, ib,work ( inda ), lda,hous( indv ), hous( &
4149441494
!$ indtau ), ldv,work( indw + tid*kd ) )
4149541495
!$OMP END TASK
4149641496
!$ else
41497-
!$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1))
41498-
!$OMP$ DEPEND(out:WORK(MYID))
41497+
!$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1)) &
41498+
!$OMP& DEPEND(out:WORK(MYID))
4149941499
!$ tid = omp_get_thread_num()
4150041500
call stdlib_dsb2st_kernels( uplo, wantq, ttype,stind, edind, &
4150141501
sweepid, n, kd, ib,work ( inda ), lda,hous( indv ), hous( &

‎src/stdlib_linalg_lapack_q.fypp

+11-11
Original file line numberDiff line numberDiff line change
@@ -72808,12 +72808,12 @@ module stdlib_linalg_lapack_q
7280872808
call stdlib_qlacpy( "A", kd+1, n, ab, ldab, work( apos ), lda )
7280972809
call stdlib_qlaset( "A", kd, n, zero, zero, work( awpos ), lda )
7281072810
! openmp parallelisation start here
72811-
!$OMP PARALLEL PRIVATE( TID, THGRID, BLKLASTIND )
72812-
!$OMP$ PRIVATE( THED, I, M, K, ST, ED, STT, SWEEPID )
72813-
!$OMP$ PRIVATE( MYID, TTYPE, COLPT, STIND, EDIND )
72814-
!$OMP$ SHARED ( UPLO, WANTQ, INDV, INDTAU, HOUS, WORK)
72815-
!$OMP$ SHARED ( N, KD, IB, NBTILES, LDA, LDV, INDA )
72816-
!$OMP$ SHARED ( STEPERCOL, THGRNB, THGRSIZ, GRSIZ, SHIFT )
72811+
!$OMP PARALLEL PRIVATE( TID, THGRID, BLKLASTIND ) &
72812+
!$OMP& PRIVATE( THED, I, M, K, ST, ED, STT, SWEEPID ) &
72813+
!$OMP& PRIVATE( MYID, TTYPE, COLPT, STIND, EDIND ) &
72814+
!$OMP& SHARED ( UPLO, WANTQ, INDV, INDTAU, HOUS, WORK) &
72815+
!$OMP& SHARED ( N, KD, IB, NBTILES, LDA, LDV, INDA ) &
72816+
!$OMP& SHARED ( STEPERCOL, THGRNB, THGRSIZ, GRSIZ, SHIFT )
7281772817
!$OMP MASTER
7281872818
! main bulge chasing loop
7281972819
loop_100: do thgrid = 1, thgrnb
@@ -72849,17 +72849,17 @@ module stdlib_linalg_lapack_q
7284972849
endif
7285072850
! call the kernel
7285172851
!$ if( ttype/=1 ) then
72852-
!$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1))
72853-
!$OMP$ DEPEND(in:WORK(MYID-1))
72854-
!$OMP$ DEPEND(out:WORK(MYID))
72852+
!$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1)) &
72853+
!$OMP& DEPEND(in:WORK(MYID-1)) &
72854+
!$OMP& DEPEND(out:WORK(MYID))
7285572855
!$ tid = omp_get_thread_num()
7285672856
!$ call stdlib_qsb2st_kernels( uplo, wantq, ttype,stind, edind, &
7285772857
!$ sweepid, n, kd, ib,work ( inda ), lda,hous( indv ), hous( &
7285872858
!$ indtau ), ldv,work( indw + tid*kd ) )
7285972859
!$OMP END TASK
7286072860
!$ else
72861-
!$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1))
72862-
!$OMP$ DEPEND(out:WORK(MYID))
72861+
!$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1)) &
72862+
!$OMP& DEPEND(out:WORK(MYID))
7286372863
!$ tid = omp_get_thread_num()
7286472864
call stdlib_qsb2st_kernels( uplo, wantq, ttype,stind, edind, &
7286572865
sweepid, n, kd, ib,work ( inda ), lda,hous( indv ), hous( &

‎src/stdlib_linalg_lapack_s.fypp

+11-11
Original file line numberDiff line numberDiff line change
@@ -41354,12 +41354,12 @@ module stdlib_linalg_lapack_s
4135441354
call stdlib_slacpy( "A", kd+1, n, ab, ldab, work( apos ), lda )
4135541355
call stdlib_slaset( "A", kd, n, zero, zero, work( awpos ), lda )
4135641356
! openmp parallelisation start here
41357-
!$OMP PARALLEL PRIVATE( TID, THGRID, BLKLASTIND )
41358-
!$OMP$ PRIVATE( THED, I, M, K, ST, ED, STT, SWEEPID )
41359-
!$OMP$ PRIVATE( MYID, TTYPE, COLPT, STIND, EDIND )
41360-
!$OMP$ SHARED ( UPLO, WANTQ, INDV, INDTAU, HOUS, WORK)
41361-
!$OMP$ SHARED ( N, KD, IB, NBTILES, LDA, LDV, INDA )
41362-
!$OMP$ SHARED ( STEPERCOL, THGRNB, THGRSIZ, GRSIZ, SHIFT )
41357+
!$OMP PARALLEL PRIVATE( TID, THGRID, BLKLASTIND ) &
41358+
!$OMP& PRIVATE( THED, I, M, K, ST, ED, STT, SWEEPID ) &
41359+
!$OMP& PRIVATE( MYID, TTYPE, COLPT, STIND, EDIND ) &
41360+
!$OMP& SHARED ( UPLO, WANTQ, INDV, INDTAU, HOUS, WORK) &
41361+
!$OMP& SHARED ( N, KD, IB, NBTILES, LDA, LDV, INDA ) &
41362+
!$OMP& SHARED ( STEPERCOL, THGRNB, THGRSIZ, GRSIZ, SHIFT )
4136341363
!$OMP MASTER
4136441364
! main bulge chasing loop
4136541365
loop_100: do thgrid = 1, thgrnb
@@ -41395,17 +41395,17 @@ module stdlib_linalg_lapack_s
4139541395
endif
4139641396
! call the kernel
4139741397
!$ if( ttype/=1 ) then
41398-
!$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1))
41399-
!$OMP$ DEPEND(in:WORK(MYID-1))
41400-
!$OMP$ DEPEND(out:WORK(MYID))
41398+
!$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1)) &
41399+
!$OMP& DEPEND(in:WORK(MYID-1)) &
41400+
!$OMP& DEPEND(out:WORK(MYID))
4140141401
!$ tid = omp_get_thread_num()
4140241402
!$ call stdlib_ssb2st_kernels( uplo, wantq, ttype,stind, edind, &
4140341403
!$ sweepid, n, kd, ib,work ( inda ), lda,hous( indv ), hous( &
4140441404
!$ indtau ), ldv,work( indw + tid*kd ) )
4140541405
!$OMP END TASK
4140641406
!$ else
41407-
!$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1))
41408-
!$OMP$ DEPEND(out:WORK(MYID))
41407+
!$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1)) &
41408+
!$OMP& DEPEND(out:WORK(MYID))
4140941409
!$ tid = omp_get_thread_num()
4141041410
call stdlib_ssb2st_kernels( uplo, wantq, ttype,stind, edind, &
4141141411
sweepid, n, kd, ib,work ( inda ), lda,hous( indv ), hous( &

‎src/stdlib_linalg_lapack_w.fypp

+11-11
Original file line numberDiff line numberDiff line change
@@ -28755,12 +28755,12 @@ module stdlib_linalg_lapack_w
2875528755
call stdlib_wlacpy( "A", kd+1, n, ab, ldab, work( apos ), lda )
2875628756
call stdlib_wlaset( "A", kd, n, czero, czero, work( awpos ), lda )
2875728757
! openmp parallelisation start here
28758-
!$OMP PARALLEL PRIVATE( TID, THGRID, BLKLASTIND )
28759-
!$OMP$ PRIVATE( THED, I, M, K, ST, ED, STT, SWEEPID )
28760-
!$OMP$ PRIVATE( MYID, TTYPE, COLPT, STIND, EDIND )
28761-
!$OMP$ SHARED ( UPLO, WANTQ, INDV, INDTAU, HOUS, WORK)
28762-
!$OMP$ SHARED ( N, KD, IB, NBTILES, LDA, LDV, INDA )
28763-
!$OMP$ SHARED ( STEPERCOL, THGRNB, THGRSIZ, GRSIZ, SHIFT )
28758+
!$OMP PARALLEL PRIVATE( TID, THGRID, BLKLASTIND ) &
28759+
!$OMP& PRIVATE( THED, I, M, K, ST, ED, STT, SWEEPID ) &
28760+
!$OMP& PRIVATE( MYID, TTYPE, COLPT, STIND, EDIND ) &
28761+
!$OMP& SHARED ( UPLO, WANTQ, INDV, INDTAU, HOUS, WORK) &
28762+
!$OMP& SHARED ( N, KD, IB, NBTILES, LDA, LDV, INDA ) &
28763+
!$OMP& SHARED ( STEPERCOL, THGRNB, THGRSIZ, GRSIZ, SHIFT )
2876428764
!$OMP MASTER
2876528765
! main bulge chasing loop
2876628766
loop_100: do thgrid = 1, thgrnb
@@ -28796,17 +28796,17 @@ module stdlib_linalg_lapack_w
2879628796
endif
2879728797
! call the kernel
2879828798
!$ if( ttype/=1 ) then
28799-
!$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1))
28800-
!$OMP$ DEPEND(in:WORK(MYID-1))
28801-
!$OMP$ DEPEND(out:WORK(MYID))
28799+
!$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1)) &
28800+
!$OMP& DEPEND(in:WORK(MYID-1)) &
28801+
!$OMP& DEPEND(out:WORK(MYID))
2880228802
!$ tid = omp_get_thread_num()
2880328803
!$ call stdlib_whb2st_kernels( uplo, wantq, ttype,stind, edind, &
2880428804
!$ sweepid, n, kd, ib,work ( inda ), lda,hous( indv ), hous( &
2880528805
!$ indtau ), ldv,work( indw + tid*kd ) )
2880628806
!$OMP END TASK
2880728807
!$ else
28808-
!$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1))
28809-
!$OMP$ DEPEND(out:WORK(MYID))
28808+
!$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1)) &
28809+
!$OMP& DEPEND(out:WORK(MYID))
2881028810
!$ tid = omp_get_thread_num()
2881128811
call stdlib_whb2st_kernels( uplo, wantq, ttype,stind, edind, &
2881228812
sweepid, n, kd, ib,work ( inda ), lda,hous( indv ), hous( &

‎src/stdlib_linalg_lapack_z.fypp

+11-11
Original file line numberDiff line numberDiff line change
@@ -36813,12 +36813,12 @@ module stdlib_linalg_lapack_z
3681336813
call stdlib_zlacpy( "A", kd+1, n, ab, ldab, work( apos ), lda )
3681436814
call stdlib_zlaset( "A", kd, n, czero, czero, work( awpos ), lda )
3681536815
! openmp parallelisation start here
36816-
!$OMP PARALLEL PRIVATE( TID, THGRID, BLKLASTIND )
36817-
!$OMP$ PRIVATE( THED, I, M, K, ST, ED, STT, SWEEPID )
36818-
!$OMP$ PRIVATE( MYID, TTYPE, COLPT, STIND, EDIND )
36819-
!$OMP$ SHARED ( UPLO, WANTQ, INDV, INDTAU, HOUS, WORK)
36820-
!$OMP$ SHARED ( N, KD, IB, NBTILES, LDA, LDV, INDA )
36821-
!$OMP$ SHARED ( STEPERCOL, THGRNB, THGRSIZ, GRSIZ, SHIFT )
36816+
!$OMP PARALLEL PRIVATE( TID, THGRID, BLKLASTIND ) &
36817+
!$OMP& PRIVATE( THED, I, M, K, ST, ED, STT, SWEEPID ) &
36818+
!$OMP& PRIVATE( MYID, TTYPE, COLPT, STIND, EDIND ) &
36819+
!$OMP& SHARED ( UPLO, WANTQ, INDV, INDTAU, HOUS, WORK) &
36820+
!$OMP& SHARED ( N, KD, IB, NBTILES, LDA, LDV, INDA ) &
36821+
!$OMP& SHARED ( STEPERCOL, THGRNB, THGRSIZ, GRSIZ, SHIFT )
3682236822
!$OMP MASTER
3682336823
! main bulge chasing loop
3682436824
loop_100: do thgrid = 1, thgrnb
@@ -36854,17 +36854,17 @@ module stdlib_linalg_lapack_z
3685436854
endif
3685536855
! call the kernel
3685636856
!$ if( ttype/=1 ) then
36857-
!$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1))
36858-
!$OMP$ DEPEND(in:WORK(MYID-1))
36859-
!$OMP$ DEPEND(out:WORK(MYID))
36857+
!$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1)) &
36858+
!$OMP& DEPEND(in:WORK(MYID-1)) &
36859+
!$OMP& DEPEND(out:WORK(MYID))
3686036860
!$ tid = omp_get_thread_num()
3686136861
!$ call stdlib_zhb2st_kernels( uplo, wantq, ttype,stind, edind, &
3686236862
!$ sweepid, n, kd, ib,work ( inda ), lda,hous( indv ), hous( &
3686336863
!$ indtau ), ldv,work( indw + tid*kd ) )
3686436864
!$OMP END TASK
3686536865
!$ else
36866-
!$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1))
36867-
!$OMP$ DEPEND(out:WORK(MYID))
36866+
!$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1)) &
36867+
!$OMP& DEPEND(out:WORK(MYID))
3686836868
!$ tid = omp_get_thread_num()
3686936869
call stdlib_zhb2st_kernels( uplo, wantq, ttype,stind, edind, &
3687036870
sweepid, n, kd, ib,work ( inda ), lda,hous( indv ), hous( &

0 commit comments

Comments
 (0)