F4 Function

public function F4(x) result(F_val)

Arguments

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

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


Source Code

   function F4(x) result(F_val)
      complex(rk), dimension(:), intent(in)  :: x
      complex(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 F4