Browse Source

Restore OpenMP version check

pull/2353/head
Martin Kroeker GitHub 6 years ago
parent
commit
d971ad71b6
No known key found for this signature in database GPG Key ID: 4AEE18F83AFDEB23
3 changed files with 4 additions and 3 deletions
  1. +1
    -1
      lapack-netlib/SRC/chetrd_hb2st.F
  2. +1
    -1
      lapack-netlib/SRC/dsytrd_sb2st.F
  3. +2
    -1
      lapack-netlib/SRC/zhetrd_hb2st.F

+ 1
- 1
lapack-netlib/SRC/chetrd_hb2st.F View File

@@ -512,7 +512,7 @@ C END IF
*
* 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))


+ 1
- 1
lapack-netlib/SRC/dsytrd_sb2st.F View File

@@ -481,7 +481,7 @@
*
* 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))


+ 2
- 1
lapack-netlib/SRC/zhetrd_hb2st.F View File

@@ -512,7 +512,8 @@ C END IF
*
* 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))


Loading…
Cancel
Save