Adopt Modern Coding Practices

Encapsulate Code with Modules:

• Encapsulate related procedures and data in modules to promote modularity and code reuse. This also helps manage dependencies and improves code organization.

Example:

fortranCopy codemodule statistics
    implicit none
contains
    function mean(arr) result(avg)
        real, dimension(:), intent(in) :: arr
        real :: avg
        avg = sum(arr) / size(arr)
    end function mean

    function variance(arr) result(var)
        real, dimension(:), intent(in) :: arr
        real :: var
        real :: avg
        avg = mean(arr)
        var = sum((arr - avg)**2) / (size(arr) - 1)
    end function variance
end module statistics

program use_statistics
    use statistics
    implicit none
    real, dimension(5) :: data = [1.0, 2.0, 3.0, 4.0, 5.0]

    print *, 'Mean:', mean(data)
    print *, 'Variance:', variance(data)
end program use_statistics