Merge pull request #380 from martin-frbg/openmp4

langou · web-flow · commit 2614d2390091 · 2021-04-15T11:41:43.000-06:00
Allow compilation with OpenMP 3.x
diff --git a/SRC/chetrd_hb2st.F b/SRC/chetrd_hb2st.F
@@ -509,7 +509,7 @@ SUBROUTINE CHETRD_HB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,
 *
 *                         Call the kernel
 *                             
-#if defined(_OPENMP)
+#if defined(_OPENMP) && _OPENMP >= 201307
                           IF( TTYPE.NE.1 ) THEN      
 !$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1))
 !$OMP$     DEPEND(in:WORK(MYID-1))
diff --git a/SRC/dsytrd_sb2st.F b/SRC/dsytrd_sb2st.F
@@ -478,7 +478,7 @@ SUBROUTINE DSYTRD_SB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,
 *
 *                         Call the kernel
 *                             
-#if defined(_OPENMP)
+#if defined(_OPENMP) &&  _OPENMP >= 201307
                           IF( TTYPE.NE.1 ) THEN      
 !$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1))
 !$OMP$     DEPEND(in:WORK(MYID-1))
diff --git a/SRC/ssytrd_sb2st.F b/SRC/ssytrd_sb2st.F
@@ -478,7 +478,7 @@ SUBROUTINE SSYTRD_SB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,
 *
 *                         Call the kernel
 *                             
-#if defined(_OPENMP)
+#if defined(_OPENMP) && _OPENMP >= 201307
                           IF( TTYPE.NE.1 ) THEN      
 !$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1))
 !$OMP$     DEPEND(in:WORK(MYID-1))
diff --git a/SRC/zhetrd_hb2st.F b/SRC/zhetrd_hb2st.F
@@ -509,7 +509,8 @@ SUBROUTINE ZHETRD_HB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,
 *
 *                         Call the kernel
 *                             
-#if defined(_OPENMP)
+#if defined(_OPENMP) &&  _OPENMP >= 201307
+
                           IF( TTYPE.NE.1 ) THEN      
 !$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1))
 !$OMP$     DEPEND(in:WORK(MYID-1))

Original file line number	Diff line number	Diff line change
`@@ -509,7 +509,7 @@ SUBROUTINE CHETRD_HB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,`
`509`	`509`	`*`
`510`	`510`	`* Call the kernel`
`511`	`511`	`*`
`512`		`-#if defined(_OPENMP)`
	`512`	`+#if defined(_OPENMP) && _OPENMP >= 201307`
`513`	`513`	`IF( TTYPE.NE.1 ) THEN`
`514`	`514`	`!$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1))`
`515`	`515`	`!$OMP$ DEPEND(in:WORK(MYID-1))`
Original file line number	Diff line number	Diff line change
`@@ -478,7 +478,7 @@ SUBROUTINE DSYTRD_SB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,`
`478`	`478`	`*`
`479`	`479`	`* Call the kernel`
`480`	`480`	`*`
`481`		`-#if defined(_OPENMP)`
	`481`	`+#if defined(_OPENMP) && _OPENMP >= 201307`
`482`	`482`	`IF( TTYPE.NE.1 ) THEN`
`483`	`483`	`!$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1))`
`484`	`484`	`!$OMP$ DEPEND(in:WORK(MYID-1))`
Original file line number	Diff line number	Diff line change
`@@ -478,7 +478,7 @@ SUBROUTINE SSYTRD_SB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,`
`478`	`478`	`*`
`479`	`479`	`* Call the kernel`
`480`	`480`	`*`
`481`		`-#if defined(_OPENMP)`
	`481`	`+#if defined(_OPENMP) && _OPENMP >= 201307`
`482`	`482`	`IF( TTYPE.NE.1 ) THEN`
`483`	`483`	`!$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1))`
`484`	`484`	`!$OMP$ DEPEND(in:WORK(MYID-1))`
Original file line number	Diff line number	Diff line change
`@@ -509,7 +509,8 @@ SUBROUTINE ZHETRD_HB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,`
`509`	`509`	`*`
`510`	`510`	`* Call the kernel`
`511`	`511`	`*`
`512`		`-#if defined(_OPENMP)`
	`512`	`+#if defined(_OPENMP) && _OPENMP >= 201307`
	`513`	`+`
`513`	`514`	`IF( TTYPE.NE.1 ) THEN`
`514`	`515`	`!$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1))`
`515`	`516`	`!$OMP$ DEPEND(in:WORK(MYID-1))`