source: XMLIO_V2/dev/dev_rv/src4/xmlio/fortran/axisgroup_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: 2.6 KB
Line 
1MODULE AXISGROUP_INTERFACE
2   USE, INTRINSIC :: ISO_C_BINDING
3     
4   INTERFACE ! Ne pas appeler directement/Interface FORTRAN 2003 <-> C99
5     
6      SUBROUTINE xios_set_axisgroup_name(axisgroup_hdl, name, name_size) BIND(C)
7         USE ISO_C_BINDING
8         INTEGER  (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
9         CHARACTER(kind = C_CHAR)   , DIMENSION(*) :: name
10         INTEGER  (kind = C_INT)                   :: name_size
11      END SUBROUTINE xios_set_axisgroup_name
12
13      SUBROUTINE xios_set_axisgroup_standard_name(axisgroup_hdl, standard_name, standard_name_size) BIND(C)
14         USE ISO_C_BINDING
15         INTEGER  (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
16         CHARACTER(kind = C_CHAR)   , DIMENSION(*) :: standard_name
17         INTEGER  (kind = C_INT)                   :: standard_name_size
18      END SUBROUTINE xios_set_axisgroup_standard_name
19
20      SUBROUTINE xios_set_axisgroup_long_name(axisgroup_hdl, long_name, long_name_size) BIND(C)
21         USE ISO_C_BINDING
22         INTEGER  (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
23         CHARACTER(kind = C_CHAR)   , DIMENSION(*) :: long_name
24         INTEGER  (kind = C_INT)                   :: long_name_size
25      END SUBROUTINE xios_set_axisgroup_long_name
26
27      SUBROUTINE xios_set_axisgroup_unit(axisgroup_hdl, unit, unit_size) BIND(C)
28         USE ISO_C_BINDING
29         INTEGER  (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
30         CHARACTER(kind = C_CHAR)   , DIMENSION(*) :: unit
31         INTEGER  (kind = C_INT)                   :: unit_size
32      END SUBROUTINE xios_set_axisgroup_unit
33
34      SUBROUTINE xios_set_axisgroup_size(axisgroup_hdl, size) BIND(C)
35         USE ISO_C_BINDING
36         INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
37         INTEGER (kind = C_INT)             :: size
38      END SUBROUTINE xios_set_axisgroup_size
39
40      SUBROUTINE xios_set_axisgroup_zvalue(axisgroup_hdl, zvalue, zvalue_extent1) BIND(C)
41         USE ISO_C_BINDING
42         INTEGER (kind = C_INTPTR_T), VALUE        :: axisgroup_hdl
43         REAL    (kind = C_DOUBLE)  , DIMENSION(*) :: zvalue
44         INTEGER (kind = C_INT)                    :: zvalue_extent1
45      END SUBROUTINE xios_set_axisgroup_zvalue
46 
47      SUBROUTINE xios_axisgroup_handle_create(ret, idt, idt_size) BIND(C)
48         import C_CHAR, C_INTPTR_T, C_INT
49         INTEGER  (kind = C_INTPTR_T)               :: ret
50         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt
51         INTEGER  (kind = C_INT)     , VALUE        :: idt_size
52      END SUBROUTINE xios_axisgroup_handle_create
53     
54   END INTERFACE
55     
56END MODULE AXISGROUP_INTERFACE
Note: See TracBrowser for help on using the repository browser.