itp_optional_inputs Subroutine

private subroutine itp_optional_inputs(me, k1, k2, n0)

For the itp method, set the optional inputs.

Type Bound

itp_solver

Arguments

Type IntentOptional Attributes Name
class(itp_solver), intent(inout) :: me
real(kind=wp), intent(in), optional :: k1

from (0, inf) [Default is 0.1]
real(kind=wp), intent(in), optional :: k2

from [1, 1+phi] [Default is 0.98*(1+phi)]
integer, intent(in), optional :: n0

[Default is 1

Source Code

    subroutine itp_optional_inputs(me,k1,k2,n0)

    implicit none

    class(itp_solver),intent(inout) :: me

    real(wp),intent(in),optional :: k1 !! from (0, inf) [Default is 0.1]
    real(wp),intent(in),optional :: k2 !! from [1, 1+phi] [Default is 0.98*(1+phi)]
    integer,intent(in),optional  :: n0 !! [Default is 1

    if (present(k1)) me%k1 = k1
    if (present(k2)) me%k2 = k2
    if (present(n0)) me%n0 = n0

    end subroutine itp_optional_inputs