Your application calls serialized versions of math functions when you use the precise floating point model. To fix: Do one of the following:

• Add fast-transcendentals compiler option to replace calls to transcendental functions with faster calls.

  Windows* OS	Linux* OS
  /Qfast-transcendentals	-fast-transcendentals

  CAUTION: This may reduce floating point accuracy.

• Enforce vectorization of the source loop using a directive: !$OMP SIMD

Example

...
!DIR$ OMP SIMD
do i=x+1, n
...

subroutine add(A, N, X)
    integer N, X
    real    A(N)
    !DIR$ OMP SIMD
    do i=x+1, n
        a(i) = a(i) + a(i-x)
    enddo
end