RosettaCodeData/Task/Numerical-integration/Fortran/numerical-integration-4.f

14 lines
180 B
Fortran

module FunctionHolder
implicit none
contains
pure function afun(x)
real :: afun
real, intent(in) :: x
afun = x**2
end function afun
end module FunctionHolder