heatilu_m Module

Procedures for example_heatilu.


Uses

  • module~~heatilu_m~~UsesGraph module~heatilu_m heatilu_m module~daskr_kinds daskr_kinds module~heatilu_m->module~daskr_kinds iso_fortran_env iso_fortran_env module~daskr_kinds->iso_fortran_env

Used by

  • module~~heatilu_m~~UsedByGraph module~heatilu_m heatilu_m program~example_heatilu example_heatilu program~example_heatilu->module~heatilu_m

Variables

Type Visibility Attributes Name Initial
integer, public, parameter :: lrpar = 4
integer, public, parameter :: lipar = 34
integer, public, parameter :: nrt = 2

Subroutines

public pure subroutine uinit(u, udot, rpar, ipar)

This routine computes and loads the vector of initial values. The initial values are given by the polynomial:

Read more…

Arguments

Type IntentOptional Attributes Name
real(kind=rk), intent(out) :: u(:)
real(kind=rk), intent(out) :: udot(:)
real(kind=rk), intent(in) :: rpar(:)
integer, intent(in) :: ipar(:)

public pure subroutine res(t, u, udot, cj, delta, ires, rpar, ipar)

User-defined residuals routine. It computes the residuals for the 2D discretized heat equation, with zero boundary values.

Arguments

Type IntentOptional 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(*)

public pure subroutine rt(neq, t, u, udot, nrt, rval, rpar, ipar)

User-defined roots routine.

Arguments

Type IntentOptional 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(*)