check Subroutine

  1. off_error_object.f90
  2. off_error_object
  3. check

private subroutine check(self, message, is_severe)

Check error status.

If errors occurred, a warn is printed.

Arguments

Type IntentOptional AttributesName
class(error_object), intent(inout) :: self

Error object.
character(len=*), intent(in), optional :: message

Error message.
logical, intent(in), optional :: is_severe

Enable severe error.

Calls

proc~~check~~CallsGraph proc~check check str str proc~check->str
Help

Source Code

check

Source Code

   subroutine check(self, message, is_severe)
   !< Check error status.
   !<
   !< If errors occurred, a warn is printed.
   class(error_object), intent(inout)        :: self       !< Error object.
   character(*),        intent(in), optional :: message    !< Error message.
   logical,             intent(in), optional :: is_severe  !< Enable severe error.
   logical                                   :: is_severe_ !< Enable severe error, local variable.

   if (self%status /= 0) then
      is_severe_ = .false. ; if (present(is_severe)) is_severe_ = is_severe
      if (present(message)) then
         self%message = 'error ['//trim(str(self%status))//']: '//message
      else
         self%message = 'error ['//trim(str(self%status))//']'
      endif
      write(stderr, '(A)') self%message
      if (is_severe_) stop
   endif
   endsubroutine check

All Procedures

adim_assign_adim allocate_blocks block_assign_block block_d_assign_block_d cell_assign_cell cells_number cells_number check cli_parse cli_parse cli_parse close compute_extents compute_faces_metrics compute_metrics compute_metrics compute_reference_values compute_space_operator compute_volumes correct_metrics cp create_linspace description description description description description description description description description destroy destroy destroy destroy destroy destroy destroy destroy destroy destroy destroy destroy destroy destroy destroy err_assign_err face_assign_face file_assign_file free_assign_free grid_d_assign_grid_d initialize initialize initialize initialize initialize initialize initialize initialize initialize initialize initialize initialize initialize initialize initialize initialize_unix initialize_windows integrate interpolate_at_nodes iolength iolength iopos_block_nodes is_the_end load_file_grid load_file_name_from_file load_file_parameters load_from_file load_from_file load_from_file load_from_file load_from_file load_from_file load_from_file load_grid_dimensions_from_file load_input_files load_nodes_from_file load_nodes_from_file mkdir node_assign_node node_to_center nodes_number nodes_number nullify_normals open os_assign_os parse_command_line_interface progress rm save_file_grid save_file_grid save_file_grid_tec save_file_grid_vtk save_file_name_into_file save_file_parameters save_grid_dimensions_into_file save_into_file save_into_file save_into_file save_into_file save_into_file save_into_file save_into_file save_nodes_into_file save_nodes_into_file set_command_line_interface set_stop solver_assign_solver time_assign_time update