heated_plate, a FORTRAN90 code which solves the steady state heat equation in a 2D rectangular region, and is intended as a starting point for implementing a parallel version.
The sequential version of this program needs approximately 18/epsilon iterations to complete.
The physical region, and the boundary conditions, are suggested by this diagram:
W = 0 +------------------+ | | W = 100 | | W = 100 | | +------------------+ W = 100
The region is covered with a grid of M by N nodes, and an N by N array W is used to record the temperature. The correspondence between array indices and locations in the region is suggested by giving the indices of the four corners:
I = 0 [0][0]-------------[0][N-1] | | J = 0 | | J = N-1 | | [M-1][0]-----------[M-1][N-1] I = M-1
The steady state solution to the discrete heat equation satisfies the following condition at an interior grid point:
W[Central] = (1/4) * ( W[North] + W[South] + W[East] + W[West] )where "Central" is the index of the grid point, "North" is the index of its immediate neighbor to the "north", and so on.
Given an approximate solution of the steady state heat equation, a "better" solution is given by replacing each interior point by the average of its 4 neighbors - in other words, by using the condition as an ASSIGNMENT statement:
W[Central] <= (1/4) * ( W[North] + W[South] + W[East] + W[West] )
If this process is repeated often enough, the difference between successive estimates of the solution will go to zero.
This program carries out such an iteration, using a tolerance specified by the user, and writes the final estimate of the solution to a file that can be used for graphic processing.
heated_plate epsilon output_filewhere
The computer code and data files described and made available on this web page are distributed under the MIT license
heated_plate is available in a C version and a C++ version and a FORTRAN90 version and a MATLAB version.
FD1D_HEAT_STEADY, a FORTRAN90 code which uses the finite difference method to solve the 1D Time Dependent Heat Equations.
FD2D_HEAT_STEADY, a FORTRAN90 code which uses the finite difference method (FDM) to solve the steady (time independent) heat equation in 2D.
FEM2D_HEAT, a FORTRAN90 code which solves the 2D time dependent heat equation on the unit square.
HEAT_MPI, a FORTRAN90 code which solves the 1D Time Dependent Heat Equation using MPI.
HEATED_PLATE_OPENMP, a FORTRAN90 code which solves the steady (time independent) heat equation in a 2D rectangular region, using OpenMP to run in parallel.
MD, a FORTRAN90 code which carries out a molecular dynamics simulation, and is intended as a starting point for implementing an OpenMP parallel version.
MXM_SERIAL, a FORTRAN90 code which sets up a matrix multiplication problem A=B*C, intended as a starting point for implementing a parallel version.
POISSON_SERIAL, a FORTRAN90 code which computes an approximate solution to the Poisson equation in a rectangle, and is intended as the starting point for the creation of a parallel version.
PRIME_SERIAL, a FORTRAN90 code which counts the number of primes between 1 and N, intended as a starting point for the creation of a parallel version.
QUAD_SERIAL, a FORTRAN90 code which approximates an integral using a quadrature rule, and is intended as a starting point for parallelization exercises.
SEARCH_SERIAL, a FORTRAN90 code which searches the integers from A to B for a value J such that F(J) = C. this version of the program is intended as a starting point for a parallel approach.
STOCHASTIC_HEAT2D, a FORTRAN90 code which implements a finite difference method (FDM) for the steady (time independent) 2D heat equation, with a stochastic heat diffusivity coefficient.