f_jac_1n_sub Function

function f_jac_1n_sub(funcv, x) result(df)

Arguments

Type IntentOptional Attributes Name
subroutine funcv(x, y)
Arguments
Type IntentOptional Attributes Name
real(kind=8), intent(in), dimension(:) :: x
real(kind=8) :: y
real(kind=8), intent(in), dimension(:) :: x

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


Calls

proc~~f_jac_1n_sub~~CallsGraph proc~f_jac_1n_sub f_jac_1n_sub fdjac_1n_sub fdjac_1n_sub proc~f_jac_1n_sub->fdjac_1n_sub

Source Code

function f_jac_1n_sub(funcv,x) result(df)
  interface
     subroutine funcv(x,y)
       real(8), dimension(:),intent(in) :: x
       real(8)                          :: y
     end subroutine funcv
  end interface
  real(8), dimension(:), intent(in) :: x
  real(8), dimension(size(x))       :: df
  call fdjac_1n_sub(funcv,x,df)
end function f_jac_1n_sub