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