.. _jacobi1d_omp1:

=============================================================
Jacobi iteration using OpenMP with `parallel do` constructs
=============================================================

The code below implements Jacobi iteration for solving the linear system
arising from the steady state heat equation 
with a simple application of `parallel do` loops using OpenMP.

Compare to:

 * :ref:`jacobi1d_omp2`  

 * :ref:`jacobi1d_mpi`  

The code:


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