f2 Function

function f2(x) result(f)

Arguments

Type IntentOptional Attributes Name
real(kind=rk), intent(in) :: x

Return Value real(kind=rk)


Source Code

   function f2(x) result(f)
      real(rk), intent(in) :: x
      real(rk)             :: f
      f = x**2 + 2.0_rk*x
   end function f2