Intel® Fortran Compiler 16.0 User and Reference Guide
Assign a value to the variable(s) "%s" at the beginning of the body of the loop in line %d. This will allow the loop to be parallelized.
Check to see if you can unconditionally initialize the scalar variables at the beginning of the specified loop. If so, do the code change for such initialization (standard), or list the variables in the private clause of a parallel directive (advanced). This allows the parallelizer to privatize those variables for each iteration and to parallelize the loop.
Consider the following:
subroutine foo (A, B, cond1, cond2)
integer, parameter :: N = 100000
integer I
real(8) A(N), B(N), T
logical cond1, cond2
do I = 1, N
if (cond1) T = i + 1
if (cond2) T = i - 1
A(I) = T
end do
end
In this case, the compiler does not parallelize the loop because it cannot privatize the variable t without further information. If you know that cond1 or cond2 is true, or both cond1 and cond2 are true, then you can assist the parallelizer by ensuring that any iteration that uses t also writes to t before its use in the same iteration. One of the ways to do this is to assign a value to t at the top of each iteration.
If you determine it is safe to do so, you can modify the program code as follows:
subroutine foo (A, B, cond1, cond2)
integer, parameter :: N = 100000
integer I
real(8) A(N), B(N), T
logical cond1, cond2
do I = 1, N
T = 0
if (cond1) T = i + 1
if (cond2) T = i - 1
A(I) = T
end do
end
Confirm that in the original program, any variables fetched in any iteration of the loop have been defined earlier in the same iteration.