F3 Function

public function F3(x) result(F_val)

Arguments

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

Return Value real(kind=rk), dimension(:), allocatable


Source Code

   function F3(x) result(F_val)
      real(rk), dimension(:), intent(in) :: x
      real(rk), dimension(:), allocatable :: F_val
      allocate(F_val(2))
      F_val(1) = 2.0_rk*x(1) - 400.0_rk*x(1) * (x(2) - x(1)**2) - 2.0_rk
      F_val(2) = 200.0_rk*x(2) - 200.0_rk*x(1)**2
   end function F3