pFIO_Constants.F90 Source File

module pFIO_ConstantsMod
   implicit none
   private

   ! Type/kinds
   public :: pFIO_INT32, pFIO_INT64
   public :: pFIO_REAL32, pFIO_REAL64
   public :: pFIO_LOGICAL
   public :: pFIO_CHAR
   public :: pFIO_STRING
   public :: pFIO_UNSUPPORTED_TYPE

   ! Misc
   public :: pFIO_UNLIMITED

   ! Return codes
   public :: pFIO_SUCCESS
   public :: pFIO_DIMENSION_NOT_FOUND
   public :: pFIO_ATTRIBUTE_NOT_FOUND
   public :: pFIO_ILLEGAL_DIMENSION_INDEX
   public :: pFIO_ILLEGAL_DIMENSIONS_FORMAT
   public :: pFIO_UNDEFINED_DIMENSION

   ! IO modes
   public :: pFIO_WRITE
   public :: pFIO_READ
   public :: pFIO_CLOBBER
   public :: pFIO_NOCLOBBER
   public :: pFIO_s_tag
   public :: pFIO_m_w_tag
   public :: pFIO_w_m_tag

   public :: pFIO_DIMENSION_SEPARATOR

   enum, bind(C)
      enumerator :: pFIO_INT32, pFIO_INT64
      enumerator :: pFIO_REAL32, pFIO_REAL64
      enumerator :: pFIO_LOGICAL
      enumerator :: pFIO_CHAR
      enumerator :: pFIO_STRING
      enumerator :: pFIO_UNSUPPORTED_TYPE
   end enum


   enum, bind(C)
      enumerator :: pFIO_SUCCESS = 0
      enumerator :: pFIO_DIMENSION_NOT_FOUND
      enumerator :: pFIO_ATTRIBUTE_NOT_FOUND
      enumerator :: pFIO_ILLEGAL_DIMENSION_INDEX
      enumerator :: pFIO_ILLEGAL_DIMENSIONS_FORMAT
      enumerator :: pFIO_UNDEFINED_DIMENSION
   end enum
      
   character, parameter :: pFIO_DIMENSION_SEPARATOR = ','

   integer, parameter :: pFIO_UNLIMITED = 1 - huge(1)

   enum, bind(C)
      enumerator :: pFIO_READ
      enumerator :: pFIO_WRITE
   end enum

   enum, bind(C)
      enumerator :: pFIO_CLOBBER
      enumerator :: pFIO_NOCLOBBER
   end enum

   integer, parameter :: pFIO_s_tag   = 9999
   integer, parameter :: pFIO_m_w_tag = 8888
   integer, parameter :: pFIO_w_m_tag = 7777
   

end module pFIO_ConstantsMod