HPC Magazine mars 2013 - Programmer Xeon Phi (1ère partie) - Listing 1.

Génération automatique de threads par directives OpenMP.

#pragma omp parallel for private(j,k)
for (i=0; i < M; i++) {
  // A chaque thread sa part du probleme.
  for (j=0; j < N; j++) {
    for (k=0; k < X; k++) {
      // Calculs...
    }
  }
}

$OMP PARALLEL do PRIVATE(j,k)
  do i=1, M
    ! A chaque thread sa part du probleme.
    do j=1, N
      do k=1, X
        ! Calculs...
      end do
    end do
  end do