.. _jacobi2_omp:

================================================================
Jacobi iteration using OpenMP with coarse-grain `parallel` block
================================================================

The code below implements Jacobi iteration for solving the linear system
arising from the steady state heat equation 
with a single `parallel` block.  Work is split up manually between threads.

Compare to:

 * :ref:`jacobi1`  

 * :ref:`jacobi2_mpi`  

The code:

.. literalinclude:: ../codes/openmp/jacobi2_omp.f90
   :language: fortran
   :linenos: