chang_cooper_module Module


Uses


Subroutines

public subroutine chang_cooper_solver(alfa2, nt, h, dt, n, ybeg, yend, d1, d2, d3, y)

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: alfa2
integer, intent(in) :: nt
real(kind=wp), intent(in) :: h
real(kind=wp), intent(in) :: dt
integer, intent(in) :: n
real(kind=wp), intent(in) :: ybeg
real(kind=wp), intent(in) :: yend
real(kind=wp), intent(in) :: d1(n+1)
real(kind=wp), intent(in) :: d2(n+1)
real(kind=wp), intent(in) :: d3(n+1)
real(kind=wp), intent(inout) :: y(n+2)

public subroutine chang_cooper_abcoef(alfa2, a, b, c, f, y, dt, n, ybeg, yend, xx, h, df)

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: alfa2
real(kind=wp), intent(inout) :: a(n)
real(kind=wp), intent(inout) :: b(n)
real(kind=wp), intent(inout) :: c(n)
real(kind=wp), intent(inout) :: f(n)
real(kind=wp), intent(inout) :: y(n+2)
real(kind=wp), intent(in) :: dt
integer, intent(in) :: n
real(kind=wp), intent(in) :: ybeg
real(kind=wp), intent(in) :: yend
real(kind=wp), intent(in) :: xx(n+1)
real(kind=wp), intent(in) :: h
real(kind=wp), intent(in) :: df(n+1)