Procedures for example_heatilu.
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
integer, | public, | parameter | :: | lrpar | = | 4 | |
integer, | public, | parameter | :: | lipar | = | 34 | |
integer, | public, | parameter | :: | nrt | = | 2 |
This routine computes and loads the vector of initial values. The initial values are given by the polynomial:
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=rk), | intent(out) | :: | u(:) | |||
real(kind=rk), | intent(out) | :: | udot(:) | |||
real(kind=rk), | intent(in) | :: | rpar(:) | |||
integer, | intent(in) | :: | ipar(:) |
User-defined residuals routine. It computes the residuals for the 2D discretized heat equation, with zero boundary values.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=rk), | intent(in) | :: | t | |||
real(kind=rk), | intent(in) | :: | u(*) | |||
real(kind=rk), | intent(in) | :: | udot(*) | |||
real(kind=rk), | intent(in) | :: | cj | |||
real(kind=rk), | intent(out) | :: | delta(*) | |||
integer, | intent(inout) | :: | ires | |||
real(kind=rk), | intent(inout) | :: | rpar(*) | |||
integer, | intent(inout) | :: | ipar(*) |
User-defined roots routine.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | neq | |||
real(kind=rk), | intent(in) | :: | t | |||
real(kind=rk), | intent(in) | :: | u(neq) | |||
real(kind=rk), | intent(in) | :: | udot(neq) | |||
integer, | intent(in) | :: | nrt | |||
real(kind=rk), | intent(out) | :: | rval(nrt) | |||
real(kind=rk), | intent(in) | :: | rpar(*) | |||
integer, | intent(in) | :: | ipar(*) |