write_error.f

Go to the documentation of this file.

!              **********************
      CHARACTER(LEN=200) FUNCTION write_error
!              **********************
!
     &(ierr)
!
!***********************************************************************
! BIEF   V6P3                                   21/08/2010
!***********************************************************************
!
!brief    Returns the string equivalent of the error code
!+
!
!history  Y AUDOUIN (LNHE)
!+        11/05/2015
!+        V7P0
!+
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| IERR           |-->| ERROR VALUE
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE declarations_special
      IMPLICIT NONE
!
      INTEGER, INTENT(IN) :: ierr
!
!-----------------------------------------------------------------------
!
      SELECT CASE(ierr)
      CASE(uncontrolled_err)
        write_error = 'UNCONTROLLED_ERR'
      CASE(unknown_elt_type_err)
        write_error = 'UNKNOWN_ELT_TYPE_ERR'
      CASE(hermes_record_unknown_err)
        write_error = 'HERMES_RECORD_UNKNOWN_ERR'
      CASE(hermes_var_unknown_err)
        write_error = 'HERMES_VAR_UNKNOWN_ERR'
      CASE(hermes_file_id_already_in_use_err)
        write_error = 'HERMES_FILE_ID_ALREADY_IN_USE_ERR'
      CASE(hermes_file_not_opened_err)
        write_error = 'HERMES_FILE_NOT_OPENED_ERR'
      CASE(hermes_max_file_err)
        write_error = 'HERMES_MAX_FILE_ERR'
      CASE(hermes_wrong_array_size_err)
        write_error = 'HERMES_WRONG_ARRAY_SIZE_ERR'
      CASE(hermes_med_not_loaded_err)
        write_error = 'HERMES_MED_NOT_LOADED_ERR'
      CASE(hermes_unknown_element_type_err)
        write_error = 'HERMES_UNKNOWN_ELEMENT_TYPE_ERR'
      CASE(hermes_wrong_element_type_err)
        write_error = 'HERMES_WRONG_ELEMENT_TYPE_ERR'
      CASE(hermes_unknown_group_err)
        write_error = 'HERMES_UNKNOWN_GROUP_ERR'
      CASE(hermes_wrong_hdf_format_err)
        write_error = 'HERMES_WRONG_HDF_FORMAT_ERR'
      CASE(hermes_wrong_med_format_err)
        write_error = 'HERMES_WRONG_MED_FORMAT_ERR'
      CASE(hermes_wrong_med_version_err)
        write_error = 'HERMES_WRONG_MED_VERSION_ERR'
      CASE(hermes_wrong_axe_err)
        write_error = 'HERMES_WRONG_AXE_ERR'
      CASE(hermes_unknown_bnd_condition)
        write_error = 'HERMES_UNKNOWN_BND_CONDITION'
      CASE(hermes_two_diff_liq_bnd_err)
        write_error =
     &       'ERROR IN BOUNDARY CONDITIONS TWO LIQUID BOUNDARIES '//
     &       'WITH DIFFERENT TYPE ARE NEXT TO EACH OTHER'
      CASE(hermes_bnd_point_not_found_err)
        write_error = 'HERMES_BND_POINT_NOT_FOUND_ERR'
      CASE(hermes_invalid_open_mode_err)
        write_error = 'HERMES_INVALID_OPEN_MODE_ERR'
      CASE(hermes_invalid_serafin_file)
        write_error = 'HERMES_INVALID_SERAFIN_FILE'
      CASE(hermes_wrong_size)
        write_error = 'HERMES_WRONG_SIZE'
      CASE(hermes_vtk_not_loaded_err)
        write_error = 'HERMES_VTK_NOT_LOADED_ERR'
      CASE(hermes_cgns_not_loaded_err)
        write_error = 'HERMES_CGNS_NOT_LOADED_ERR'
      CASE(hermes_write_only_err)
        write_error = 'HERMES_WRITE_ONLY_ERR'
      CASE DEFAULT
        write_error = 'UNKNOWN ERROR'
      END SELECT
!
!-----------------------------------------------------------------------
!
      END FUNCTION write_error