handle_spline_error_logical Subroutine

  1. spl.f90
  2. splines
  3. handle_spline_error_logical

private subroutine handle_spline_error_logical(valid, routine_name)

Uses

If not valid abort with error noting invalid spline and which method was invoked

Arguments

Type IntentOptional Attributes Name
logical, intent(in) :: valid
character(len=*), intent(in) :: routine_name

Contents

Source Code

handle_spline_error_logical

Source Code

  subroutine handle_spline_error_logical(valid, routine_name)
    use mp, only: mp_abort
    implicit none
    logical, intent(in) :: valid
    character(len = *), intent(in) :: routine_name
    if (.not. valid) call mp_abort('Attempt to use invalid spline in '//routine_name, .true.)
  end subroutine handle_spline_error_logical