F1 Function

public function F1(x) result(F_val)

Arguments

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

Return Value real(kind=rk)


Source Code

   function F1(x) result(F_val)
      real(rk), intent(in) :: x
      real(rk) :: F_val
      F_val = 5.0_rk * x**3 + 8.0_rk * x - 5.0_rk
   end function F1