Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer(kind=c_int), | value | :: | m | |||
integer(kind=c_int), | value | :: | n | |||
real(kind=c_double), | intent(in) | :: | x(n) | |||
real(kind=c_double), | intent(in) | :: | fvec(m) | |||
real(kind=c_double), | intent(in) | :: | fjac(ldfjac,n) | |||
integer(kind=c_int), | value | :: | ldfjac | |||
real(kind=c_double), | intent(out) | :: | xp(n) | |||
real(kind=c_double), | intent(in) | :: | fvecp(m) | |||
integer(kind=c_int), | value | :: | mode | |||
real(kind=c_double), | intent(out) | :: | err(m) |
subroutine minpack_chkder(m, n, x, fvec, fjac, ldfjac, xp, fvecp, mode, err) &
& bind(c)
integer(c_int), value :: m
integer(c_int), value :: n
integer(c_int), value :: ldfjac
integer(c_int), value :: mode
real(c_double), intent(in) :: x(n)
real(c_double), intent(in) :: fvec(m)
real(c_double), intent(in) :: fjac(ldfjac, n)
real(c_double), intent(out) :: xp(n)
real(c_double), intent(in) :: fvecp(m)
real(c_double), intent(out) :: err(m)
call chkder(m, n, x, fvec, fjac, ldfjac, xp, fvecp, mode, err)
end subroutine minpack_chkder