source: XMLIO_V2/dev/common/src/xmlio/fortran/filegroup_interface.f90 @ 275

Last change on this file since 275 was 275, checked in by hozdoba, 10 years ago

Diverses corrections

File size: 2.6 KB
Line 
1MODULE FILEGROUP_INTERFACE
2   USE, INTRINSIC :: ISO_C_BINDING
3   
4   INTERFACE ! Ne pas appeler directement/Interface FORTRAN 2003 <-> C99
5   
6      SUBROUTINE xios_set_filegroup_name(filegroup_hdl, name ,name_size) BIND(C)
7         USE ISO_C_BINDING
8         INTEGER  (kind = C_INTPTR_T), VALUE        :: filegroup_hdl
9         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
10         INTEGER  (kind = C_INT)     , VALUE        :: name_size
11      END SUBROUTINE xios_set_filegroup_name
12
13      SUBROUTINE xios_set_filegroup_description(filegroup_hdl, description ,description_size) BIND(C)
14         USE ISO_C_BINDING
15         INTEGER  (kind = C_INTPTR_T), VALUE        :: filegroup_hdl
16         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: description
17         INTEGER  (kind = C_INT)     , VALUE        :: description_size
18      END SUBROUTINE xios_set_filegroup_description
19     
20      SUBROUTINE xios_set_filegroup_name_suffix(filegroup_hdl, name_suffix ,name_suffix_size) BIND(C)
21         USE ISO_C_BINDING
22         INTEGER  (kind = C_INTPTR_T), VALUE        :: filegroup_hdl
23         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name_suffix
24         INTEGER  (kind = C_INT)     , VALUE        :: name_suffix_size
25      END SUBROUTINE xios_set_filegroup_name_suffix
26
27      SUBROUTINE xios_set_filegroup_output_freq(filegroup_hdl, output_freq ,output_freq_size) BIND(C)
28         USE ISO_C_BINDING
29         INTEGER  (kind = C_INTPTR_T), VALUE        :: filegroup_hdl
30         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: output_freq
31         INTEGER  (kind = C_INT)     , VALUE        :: output_freq_size
32      END SUBROUTINE xios_set_filegroup_output_freq
33
34      SUBROUTINE xios_set_filegroup_output_level(filegroup_hdl, output_level) BIND(C)
35         USE ISO_C_BINDING
36         INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
37         INTEGER (kind = C_INT)     , VALUE :: output_level
38      END SUBROUTINE xios_set_filegroup_output_level
39
40      SUBROUTINE xios_set_filegroup_enabled(filegroup_hdl, enabled) BIND(C)
41         USE ISO_C_BINDING
42         INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
43         LOGICAL (kind = C_BOOL)    , VALUE :: enabled
44      END SUBROUTINE xios_set_filegroup_enabled
45     
46      SUBROUTINE xios_filegroup_handle_create(ret, idt, idt_size) BIND(C)
47         USE ISO_C_BINDING
48         INTEGER  (kind = C_INTPTR_T)               :: ret
49         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt
50         INTEGER  (kind = C_INT)     , VALUE        :: idt_size
51      END SUBROUTINE xios_filegroup_handle_create
52
53   END INTERFACE
54   
55END MODULE FILEGROUP_INTERFACE
Note: See TracBrowser for help on using the repository browser.