example4_model Module

Model for example4.


Uses

  • module~~example4_model~~UsesGraph module~example4_model example4_model module~odrpack_kinds odrpack_kinds module~example4_model->module~odrpack_kinds iso_fortran_env iso_fortran_env module~odrpack_kinds->iso_fortran_env

Used by

  • module~~example4_model~~UsedByGraph module~example4_model example4_model program~example4 example4 program~example4->module~example4_model

Subroutines

public pure subroutine fcn(n, m, np, nq, ldn, ldm, ldnp, beta, xplusd, ifixb, ifixx, ldifx, ideval, f, fjacb, fjacd, istop)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
integer, intent(in) :: m
integer, intent(in) :: np
integer, intent(in) :: nq
integer, intent(in) :: ldn
integer, intent(in) :: ldm
integer, intent(in) :: ldnp
real(kind=wp), intent(in) :: beta(np)
real(kind=wp), intent(in) :: xplusd(ldn,m)
integer, intent(in) :: ifixb(np)
integer, intent(in) :: ifixx(ldifx,m)
integer, intent(in) :: ldifx
integer, intent(in) :: ideval
real(kind=wp), intent(out) :: f(ldn,nq)
real(kind=wp), intent(out) :: fjacb(ldn,ldnp,nq)
real(kind=wp), intent(out) :: fjacd(ldn,ldm,nq)
integer, intent(out) :: istop

public pure subroutine mpf(m, c, kwee, k25, k25p, print_every, tout, root)

If ROOT is not zero then returns value of time when M==ROOT in TOUT. Else, runs until TOUT and returns value in M. If PRINT_EVERY is non-zero then the solution is printed every PRINT_EVERY time units or every H (which ever is greater).

Read more…

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(out) :: m
real(kind=wp), intent(in) :: c
real(kind=wp), intent(in) :: kwee
real(kind=wp), intent(in) :: k25
real(kind=wp), intent(in) :: k25p
real(kind=wp), intent(in) :: print_every
real(kind=wp), intent(inout) :: tout
real(kind=wp), intent(in) :: root