fail Subroutine

private pure subroutine fail(err, message)

Set err to ERROR_VALIDATION with message, when err is present.

Arguments

Type IntentOptional Attributes Name
type(error_t), intent(out), optional :: err
character(len=*), intent(in) :: message

Human-readable description of the violation

Calls

proc~~fail~3~~CallsGraph proc~fail~3 fail proc~error_set error_t%error_set proc~fail~3->proc~error_set

Called by

proc~~fail~3~~CalledByGraph proc~fail~3 fail proc~csr_build_from_coo csr_t%csr_build_from_coo proc~csr_build_from_coo->proc~fail~3 proc~csr_is_valid csr_t%csr_is_valid proc~csr_is_valid->proc~fail~3 proc~csr_matvec csr_t%csr_matvec proc~csr_matvec->proc~fail~3 proc~csr_matvec->proc~csr_is_valid proc~csr_row_slice csr_t%csr_row_slice proc~csr_row_slice->proc~fail~3 proc~csr_row_slice->proc~csr_is_valid proc~check_graph check_graph proc~check_graph->proc~csr_is_valid proc~csr_transpose csr_t%csr_transpose proc~csr_transpose->proc~csr_is_valid proc~a_star a_star proc~a_star->proc~check_graph proc~bfs bfs proc~bfs->proc~check_graph proc~connected_components connected_components proc~connected_components->proc~check_graph proc~dijkstra dijkstra proc~dijkstra->proc~check_graph proc~path_cost path_cost proc~path_cost->proc~check_graph

Source Code

   pure subroutine fail(err, message)
      !! Set `err` to `ERROR_VALIDATION` with `message`, when `err` is present.
      type(error_t), intent(out), optional :: err
      character(len=*), intent(in) :: message
         !! Human-readable description of the violation

      if (present(err)) call err%set(ERROR_VALIDATION, message)
   end subroutine fail