10 if (q
.ne
. 6 .or
. r
.ne
. 17 .or
. e
) call abort
13 integer, intent (in
) :: a
, b
17 !$omp taskloop lastprivate (q) nogroup
20 if (d
< 2 .or
. d
> 6 .or
. iand (d
, 1) .ne
. 0) then
27 integer, intent (in
) :: a
, b
33 !$omp taskloop lastprivate (s)
35 if (d
< 12 .or
. d
> 17) then