Calculate Integrals in Fortran

What is Integral Calculation?

An integral represents the area under a curve between two points. In calculus, definite integrals are calculated using antiderivatives, but for complex functions or when exact solutions are unavailable, numerical methods provide practical approximations.

Numerical integration is particularly useful in physics, engineering, and scientific computing where exact solutions are often impractical. Fortran, with its strong performance characteristics, is well-suited for implementing these methods efficiently.

Numerical Integration Methods

Several numerical methods exist for approximating integrals. The most common include:

Trapezoidal Rule

The trapezoidal rule approximates the area under the curve by dividing it into trapezoids rather than rectangles. The formula is:

Where Δx = (b - a)/n and xᵢ = a + iΔx for i = 0 to n.

Simpson's Rule

Simpson's rule provides a more accurate approximation by fitting parabolas to segments of the curve. The formula is:

This method requires an even number of intervals (n must be even).

Gaussian Quadrature

Gaussian quadrature uses carefully chosen points and weights to achieve high accuracy with relatively few evaluations. The formula is:

Where xᵢ are the roots of the Legendre polynomial and wᵢ are the corresponding weights.

Fortran Implementation

Implementing numerical integration in Fortran involves writing functions for each method and calling them with appropriate parameters. Below is an example implementation of the trapezoidal rule:

program trapezoidal_rule
    implicit none
    real :: a, b, integral
    integer :: n, i
    real, external :: f

    ! Define integration limits and number of intervals
    a = 0.0
    b = 1.0
    n = 1000

    ! Calculate integral using trapezoidal rule
    integral = trapezoidal(a, b, n, f)

    print *, 'Integral value:', integral

contains
    real function trapezoidal(a, b, n, f)
        real, intent(in) :: a, b
        integer, intent(in) :: n
        real, external :: f
        real :: h, sum, x
        integer :: i

        h = (b - a) / n
        sum = 0.5 * (f(a) + f(b))

        do i = 1, n-1
            x = a + i * h
            sum = sum + f(x)
        end do

        trapezoidal = h * sum
    end function trapezoidal
end program trapezoidal_rule

To implement other methods like Simpson's rule or Gaussian quadrature, you would create similar functions with their respective formulas. The key steps are:

1. Define the function to integrate
2. Choose the integration limits (a and b)
3. Select the number of intervals or points
4. Apply the chosen numerical method
5. Output the result

Example Calculation

Let's calculate the integral of f(x) = x² from 0 to 1 using the trapezoidal rule with 1000 intervals.

The exact value is 1/3 ≈ 0.3333. Using the trapezoidal rule with 1000 intervals, we get a very close approximation:

This demonstrates how numerical methods can provide accurate results even when exact solutions are known. For more complex functions where exact solutions are unavailable, numerical methods are indispensable.