MODULE FILE_INTERFACE
   USE, INTRINSIC :: ISO_C_BINDING
   
   INTERFACE ! Ne pas appeler directement/Interface FORTRAN 2003 <-> C99
   
      SUBROUTINE xios_set_file_name(file_hdl, name, name_size) BIND(C)
         USE ISO_C_BINDING
         INTEGER  (kind = C_INTPTR_T), VALUE       :: file_hdl
         CHARACTER(kind = C_CHAR)   , DIMENSION(*) :: name
         INTEGER  (kind = C_INT)                   :: name_size
      END SUBROUTINE xios_set_file_name

      SUBROUTINE xios_set_file_description(file_hdl, description, description_size) BIND(C)
         USE ISO_C_BINDING
         INTEGER  (kind = C_INTPTR_T), VALUE       :: file_hdl
         CHARACTER(kind = C_CHAR)   , DIMENSION(*) :: description
         INTEGER  (kind = C_INT)                   :: description_size
      END SUBROUTINE xios_set_file_description

      SUBROUTINE xios_set_file_output_freq(file_hdl, output_freq, output_freq_size) BIND(C)
         USE ISO_C_BINDING
         INTEGER  (kind = C_INTPTR_T), VALUE        :: file_hdl
         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: output_freq
         INTEGER  (kind = C_INT)                    :: output_freq_size
      END SUBROUTINE xios_set_file_output_freq

      SUBROUTINE xios_set_file_output_level(file_hdl, output_level) BIND(C)
         USE ISO_C_BINDING
         INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
         INTEGER (kind = C_INT)             :: output_level
      END SUBROUTINE xios_set_file_output_level

      SUBROUTINE xios_set_file_enabled(file_hdl, enabled) BIND(C)
         USE ISO_C_BINDING
         INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
         LOGICAL (kind = C_BOOL)            :: enabled
      END SUBROUTINE xios_set_file_enabled
   
   END INTERFACE
   
END MODULE FILE_INTERFACE