Hi, I don’t know if this is the right place for this question, but here goes.
Is there any standard way of using statement functions in code parallized with OpenMP?
... REAL*8 :: omega,a,b,c,d,t0,expp,pp ... OMEGA(A,B,C,D) = A + B * C ** (D - 1.0d0) ZC = 0; ... !$omp parallel DEFAULT(shared) private(a,b,d,pp) !$omp do ... something = omega(a, b, c, d); ... !$omp enddo !$omp end parallel
I couldn’t seem to move the statement functions into the parallel block, and as things are it’s telling me that a,b,d,pp can’t be private.[/quote]