helmholtz_set_lambda Subroutine

public subroutine helmholtz_set_lambda(lambda)

Arguments

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

Called by

proc~~helmholtz_set_lambda~2~~CalledByGraph proc~helmholtz_set_lambda~2 helmholtz_set_lambda proc~diffusion_solve~2 diffusion_solve proc~diffusion_solve~2->proc~helmholtz_set_lambda~2

Source Code

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

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

    helmholtz_lambda = lambda
  end subroutine helmholtz_set_lambda