Changeset 276 for XMLIO_V2/dev/dev_rv/src/xmlio/fortran/filegroup_interface.f90

Timestamp:

09/18/11 23:56:48 (13 years ago)

Author:

hozdoba

Message:

Corrections de bugs

File:

• XMLIO_V2/dev/dev_rv/src/xmlio/fortran/filegroup_interface.f90 (modified) (1 diff)

XMLIO_V2/dev/dev_rv/src/xmlio/fortran/filegroup_interface.f90

@@ -17 +17 @@
          INTEGER  (kind = C_INT)     , VALUE        :: description_size
       END SUBROUTINE xios_set_filegroup_description
+      
+      SUBROUTINE xios_set_filegroup_name_suffix(filegroup_hdl, name_suffix ,name_suffix_size) BIND(C)
+         USE ISO_C_BINDING
+         INTEGER  (kind = C_INTPTR_T), VALUE        :: filegroup_hdl
+         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name_suffix
+         INTEGER  (kind = C_INT)     , VALUE        :: name_suffix_size
+      END SUBROUTINE xios_set_filegroup_name_suffix
 
       SUBROUTINE xios_set_filegroup_output_freq(filegroup_hdl, output_freq ,output_freq_size) BIND(C)