source: XMLIO_V2/dev/dev_rv/src4/xmlio/fortran/filegroup_interface.f90 @ 242

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

Ajout d'une partie d'Interface fortran pour la version 4

File size: 1.8 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)                    :: 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)                    :: description_size
18      END SUBROUTINE xios_set_filegroup_description
19
20      SUBROUTINE xios_set_filegroup_output_freq(filegroup_hdl, output_freq ,output_freq_size) BIND(C)
21         USE ISO_C_BINDING
22         INTEGER  (kind = C_INTPTR_T), VALUE        :: filegroup_hdl
23         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: output_freq
24         INTEGER  (kind = C_INT)                    :: output_freq_size
25      END SUBROUTINE xios_set_filegroup_output_freq
26
27      SUBROUTINE xios_set_filegroup_output_level(filegroup_hdl, output_level) BIND(C)
28         USE ISO_C_BINDING
29         INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
30         INTEGER (kind = C_INT)             :: output_level
31      END SUBROUTINE xios_set_filegroup_output_level
32
33      SUBROUTINE xios_set_filegroup_enabled(filegroup_hdl, enabled) BIND(C)
34         USE ISO_C_BINDING
35         INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
36         LOGICAL (kind = C_BOOL)            :: enabled
37      END SUBROUTINE xios_set_filegroup_enabled
38   
39   END INTERFACE
40   
41END MODULE FILEGROUP_INTERFACE
Note: See TracBrowser for help on using the repository browser.