Model for example4.
User-supplied subroutine for evaluating the model.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=wp), | intent(in) | :: | beta(:) | |||
real(kind=wp), | intent(in) | :: | xplusd(:,:) | |||
integer, | intent(in) | :: | ifixb(:) | |||
integer, | intent(in) | :: | ifixx(:,:) | |||
integer, | intent(in) | :: | ideval | |||
real(kind=wp), | intent(out) | :: | f(:,:) | |||
real(kind=wp), | intent(out) | :: | fjacb(:,:,:) | |||
real(kind=wp), | intent(out) | :: | fjacd(:,:,:) | |||
integer, | intent(out) | :: | istop |
If root
is not zero, then it returns value of time when u=root
in tout
. Else, runs
until tout
and returns the value in u
. If print_every
is non-zero then the solution
is printed every print_every
time units or every h
(which ever is greater).
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=wp), | intent(out) | :: | u | |||
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 |