Lines Matching refs:e5
83 integer :: e5 local
89 e5 = 8
94 l = .not. is_f5 .and. e5 .ne. 8
96 if (omp_get_thread_num () .eq. 0) e5 = 8
97 if (omp_get_thread_num () .eq. 1) e5 = 14
98 f5 = e5 - 4.5
100 l = l .or. (omp_get_thread_num () .eq. 0 .and. e5 .ne. 8)
101 l = l .or. (omp_get_thread_num () .eq. 1 .and. e5 .ne. 14)
102 l = l .or. f5 .ne. e5 - 4.5
106 if (.not. is_f5) e5 = 8
110 integer :: e5 variable
119 if (e5 (.false.) .ne. 8) call abort