init Subroutine

public subroutine init(Phi, t_final, t_save, t_step, D, k_r, x_total, delta_x, delta_x_min, n_x)

Arguments

Type IntentOptional AttributesName
real(kind=8), intent(out) :: Phi

the flux \(\Phi\)

real(kind=8), intent(out) :: t_final
real(kind=8), intent(out) :: t_save
real(kind=8), intent(out) :: t_step
real(kind=8), intent(out) :: D

the diffusion coefficient \(D\) in \(\mathrm{\frac{x}{x}}\)

real(kind=8), intent(out) :: k_r
real(kind=8), intent(out) :: x_total
real(kind=8), intent(out) :: delta_x
real(kind=8), intent(out) :: delta_x_min
integer(kind=4), intent(out) :: n_x

Description

sets up parameters as defined by the problem statement