c_f_jac_mn_sub Function

function c_f_jac_mn_sub(funcv, n, x, m) result(df)

Arguments

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

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


Calls

proc~~c_f_jac_mn_sub~~CallsGraph proc~c_f_jac_mn_sub c_f_jac_mn_sub c_fdjac_mn_sub c_fdjac_mn_sub proc~c_f_jac_mn_sub->c_fdjac_mn_sub

Source Code

function c_f_jac_mn_sub(funcv,n,x,m) result(df)
  interface
     subroutine funcv(n,x,m,y)
       implicit none
       integer                          :: n,m
       real(8), dimension(n),intent(in) :: x
       complex(8), dimension(m)         :: y
     end subroutine funcv
  end interface
  integer                               :: n,m
  real(8), dimension(n), intent(inout)  :: x
  complex(8), dimension(m,n)            :: df
  call c_fdjac_mn_sub(funcv,n,x,m,df)
end function c_f_jac_mn_sub