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

5 lines
83 B
FortranFixed
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
elemental function elemf(x)
real :: elemf, x
elemf = f(x)
end function elemf