f_jac_nn_func Function

function f_jac_nn_func(funcv, x) result(df)

Arguments

Type IntentOptional Attributes Name
function funcv(x)
Arguments
Type IntentOptional Attributes Name
real(kind=8), intent(in), dimension(:) :: x
Return Value real(kind=8), dimension(size(x))
real(kind=8), intent(in) :: x(:)

Return Value real(kind=8), dimension(size(x),size(x))


Calls

proc~~f_jac_nn_func~~CallsGraph proc~f_jac_nn_func f_jac_nn_func fdjac_nn_func fdjac_nn_func proc~f_jac_nn_func->fdjac_nn_func

Source Code

function f_jac_nn_func(funcv,x) result(df)
  interface
     function funcv(x)
       real(8), dimension(:),intent(in) :: x
       real(8), dimension(size(x))      :: funcv
     end function funcv
  end interface
  real(8),intent(in)                  ::  x(:)
  real(8), dimension(size(x),size(x)) :: df
  call fdjac_nn_func(funcv,x,df)
end function f_jac_nn_func