Skip to content

Commit 3e5c803

Browse files
authored
Make "OMP task depend" sections conditional on OpenMP4, not just OpenMP
to allow compilation with older implementations
1 parent 3c125d6 commit 3e5c803

File tree

4 files changed

+5
-4
lines changed

4 files changed

+5
-4
lines changed

SRC/chetrd_hb2st.F

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -512,7 +512,7 @@ SUBROUTINE CHETRD_HB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,
512512
*
513513
* Call the kernel
514514
*
515-
#if defined(_OPENMP)
515+
#if defined(_OPENMP) && _OPENMP >= 201307
516516
IF( TTYPE.NE.1 ) THEN
517517
!$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1))
518518
!$OMP$ DEPEND(in:WORK(MYID-1))

SRC/dsytrd_sb2st.F

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -481,7 +481,7 @@ SUBROUTINE DSYTRD_SB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,
481481
*
482482
* Call the kernel
483483
*
484-
#if defined(_OPENMP)
484+
#if defined(_OPENMP) && _OPENMP >= 201307
485485
IF( TTYPE.NE.1 ) THEN
486486
!$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1))
487487
!$OMP$ DEPEND(in:WORK(MYID-1))

SRC/ssytrd_sb2st.F

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -481,7 +481,7 @@ SUBROUTINE SSYTRD_SB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,
481481
*
482482
* Call the kernel
483483
*
484-
#if defined(_OPENMP)
484+
#if defined(_OPENMP) && _OPENMP >= 201307
485485
IF( TTYPE.NE.1 ) THEN
486486
!$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1))
487487
!$OMP$ DEPEND(in:WORK(MYID-1))

SRC/zhetrd_hb2st.F

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -512,7 +512,8 @@ SUBROUTINE ZHETRD_HB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,
512512
*
513513
* Call the kernel
514514
*
515-
#if defined(_OPENMP)
515+
#if defined(_OPENMP) && _OPENMP >= 201307
516+
516517
IF( TTYPE.NE.1 ) THEN
517518
!$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1))
518519
!$OMP$ DEPEND(in:WORK(MYID-1))

0 commit comments

Comments
 (0)