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

5 lines
83 B
FortranFixed
Raw Permalink Normal View History

2013-04-10 23:57:08 -07:00
elemental function elemf(x)
real :: elemf, x
elemf = f(x)
end function elemf