Drill 7: Compare — Subroutines and modules

module math
  implicit none
contains
  function area(w, h) result(a)
    integer, intent(in) :: w, h
    integer :: a
    a = w * h
  end function area
end module math