f_jac_mn_sub Function

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

Arguments

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

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


Calls

proc~~f_jac_mn_sub~~CallsGraph proc~f_jac_mn_sub f_jac_mn_sub fdjac_mn_sub fdjac_mn_sub proc~f_jac_mn_sub->fdjac_mn_sub

Source Code

function f_jac_mn_sub(funcv,x,m) result(df)
  interface
     subroutine funcv(x,m,y)
       implicit none
       integer                          :: m
       real(8), dimension(:),intent(in) :: x
       real(8), dimension(m)            :: y
     end subroutine funcv
  end interface
  integer                           :: m
  real(8), dimension(:), intent(in) :: x
  real(8), dimension(m,size(x))     :: df
  call fdjac_mn_sub(funcv,x,m,df)
end function f_jac_mn_sub