.. _jacobi1: ============================================================= 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:`jacobi2_omp` * :ref:`jacobi2_mpi` The code: .. literalinclude:: ../codes/openmp/jacobi1.f90 :language: fortran :linenos: