ahelmholtz_set_lambda Subroutine

public subroutine ahelmholtz_set_lambda(lambda)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: lambda

Called by

proc~~ahelmholtz_set_lambda~3~~CalledByGraph proc~ahelmholtz_set_lambda~3 ahelmholtz_set_lambda proc~diffusion_solve_acoeff~3 diffusion_solve_acoeff proc~diffusion_solve_acoeff~3->proc~ahelmholtz_set_lambda~3

Source Code

  subroutine ahelmholtz_set_lambda(lambda)
    real(dp), intent(in) :: lambda

    if (lambda < 0) error stop "ahelmholtz_set_lambda: lambda < 0 not allowed"

    ahelmholtz_lambda = lambda
  end subroutine ahelmholtz_set_lambda