status_codes.F90

! Status values for udunits2 procedures
! The values are the same as the udunits2 utStatus C enum
module ud2f_status_codes

   implicit none

   enum, bind(c)
       enumerator :: &
       UT_SUCCESS = 0, & ! Success
       UT_BAD_ARG, & ! An argument violates the function's contract
       UT_EXISTS, & ! Unit, prefix, or identifier already exists
       UT_NO_UNIT, & ! No such unit exists
       UT_OS, & ! Operating-system error. See "errno".
       UT_NOT_SAME_SYSTEM, & ! The units belong to different unit-systems
       UT_MEANINGLESS, & ! The operation on the unit(s) is meaningless
       UT_NO_SECOND, & ! The unit-system doesn't have a unit named "second"
       UT_VISIT_ERROR, & ! An error occurred while visiting a unit
       UT_CANT_FORMAT, & ! A unit can't be formatted in the desired manner
       UT_SYNTAX, & ! string unit representation contains syntax error
       UT_UNKNOWN, & ! string unit representation contains unknown word
       UT_OPEN_ARG, & ! Can't open argument-specified unit database
       UT_OPEN_ENV, & ! Can't open environment-specified unit database
       UT_OPEN_DEFAULT, & ! Can't open installed, default, unit database
       UT_PARSE_ERROR ! Error parsing unit specification
   end enum
   integer, parameter :: ut_status = kind(UT_SUCCESS)

   enum, bind(c)
      enumerator :: &
           UTF_DUPLICATE_INITIALIZATION = 100, &
           UTF_CONVERTER_NOT_INITIALIZED, &
           UTF_NOT_INITIALIZED, &
           UTF_INITIALIZATION_FAILURE
      
   end enum

end module ud2f_status_codes