Merge pull request #1549 from martin-frbg/fix_ompcheck

martin-frbg · web-flow · commit 6fff8c626a96 · 2018-05-08T23:52:55.000+02:00
Drop C-style "L" suffx from OPENMP version number tests in the LAPACK source
diff --git a/lapack-netlib/SRC/chetrd_hb2st.F b/lapack-netlib/SRC/chetrd_hb2st.F
@@ -512,7 +512,7 @@ SUBROUTINE CHETRD_HB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,
 *
 *                         Call the kernel
 *                             
-#if defined(_OPENMP) && _OPENMP >= 201307L
+#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/lapack-netlib/SRC/dsytrd_sb2st.F b/lapack-netlib/SRC/dsytrd_sb2st.F
@@ -481,7 +481,7 @@ SUBROUTINE DSYTRD_SB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,
 *
 *                         Call the kernel
 *                             
-#if defined(_OPENMP) &&  _OPENMP >= 201307L
+#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/lapack-netlib/SRC/zhetrd_hb2st.F b/lapack-netlib/SRC/zhetrd_hb2st.F
@@ -512,7 +512,7 @@ SUBROUTINE ZHETRD_HB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB,
 *
 *                         Call the kernel
 *                             
-#if defined(_OPENMP) &&  _OPENMP >= 201307L
+#if defined(_OPENMP) &&  _OPENMP >= 201307
 
                           IF( TTYPE.NE.1 ) THEN      
 !$OMP TASK DEPEND(in:WORK(MYID+SHIFT-1))

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