dF3dx Function

public function dF3dx(x) result(dFdx_val)

Arguments

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

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


Source Code

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