c_f_jac_nn_func Function

function c_f_jac_nn_func(funcv, n, 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 complex(kind=8), dimension(size(x))
integer :: n
real(kind=8), intent(inout), dimension(n) :: x

Return Value complex(kind=8), dimension(n,n)


Calls

proc~~c_f_jac_nn_func~~CallsGraph proc~c_f_jac_nn_func c_f_jac_nn_func c_fdjac_nn_func c_fdjac_nn_func proc~c_f_jac_nn_func->c_fdjac_nn_func

Source Code

function c_f_jac_nn_func(funcv,n,x) result(df)
  interface
     function funcv(x)
       real(8), dimension(:),intent(in) :: x
       complex(8), dimension(size(x))   :: funcv
     end function funcv
  end interface
  integer                               :: n
  real(8), dimension(n), intent(inout)  :: x
  complex(8), dimension(n,n)            :: df
  call c_fdjac_nn_func(funcv,x,df)
end function c_f_jac_nn_func