f_jac_mn_func Function

function f_jac_mn_func(funcv, x, m) result(df)

Arguments

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

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


Calls

proc~~f_jac_mn_func~~CallsGraph proc~f_jac_mn_func f_jac_mn_func fdjac_mn_func fdjac_mn_func proc~f_jac_mn_func->fdjac_mn_func

Source Code

function f_jac_mn_func(funcv,x,m) result(df)
  interface 
     function funcv(x,m)
       real(8),dimension(:),intent(in) :: x
       integer                         :: m
       real(8),dimension(m)            :: funcv
     end function funcv
  end interface
  integer                           :: n,m
  real(8), dimension(:), intent(in) :: x
  real(8), dimension(m,size(x))     :: df
  call fdjac_mn_func(funcv,x,m,df)
end function f_jac_mn_func