f_jac_1n_func Function

function f_jac_1n_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)
real(kind=8), intent(in), dimension(:) :: x

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


Calls

proc~~f_jac_1n_func~~CallsGraph proc~f_jac_1n_func f_jac_1n_func fdjac_1n_func fdjac_1n_func proc~f_jac_1n_func->fdjac_1n_func

Source Code

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