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

5 lines
83 B
Fortran

elemental function elemf(x)
real :: elemf, x
elemf = f(x)
end function elemf