heat_m Module

Procedures for example_heat.


Uses

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

Used by

  • module~~heat_m~~UsedByGraph module~heat_m heat_m program~example_heat example_heat program~example_heat->module~heat_m

Variables

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

Subroutines

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

This routine computes and loads the vector of initial values. The initial u values are given by the polynomial u = 16x(1-x)y(1-y). The initial uprime values are set to zero (DASKR corrects these during the first time step).

Arguments

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

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

User-supplied residuals subroutine. 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) :: uprime(*)
real(kind=rk), intent(in) :: cj
real(kind=rk), intent(out) :: delta(*)
integer, intent(inout) :: ires
real(kind=rk), intent(in) :: rpar(*)
integer, intent(in) :: ipar(*)

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

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) :: uprime(neq)
integer, intent(in) :: nrt
real(kind=rk), intent(out) :: rval(nrt)
real(kind=rk), intent(in) :: rpar(*)
integer, intent(in) :: ipar(*)