source: XMLIO_V2/dev/dev_rv/src4/xmlio/fortran/gridgroup_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.7 KB
Line 
1MODULE GRIDGROUP_INTERFACE
2   USE, INTRINSIC :: ISO_C_BINDING
3     
4   INTERFACE ! Ne pas appeler directement/Interface FORTRAN 2003 <-> C99
5     
6      SUBROUTINE xios_set_gridgroup_name(gridgroup_hdl, name, name_size) BIND(C)
7         USE ISO_C_BINDING
8         INTEGER (kind = C_INTPTR_T), VALUE        :: gridgroup_hdl
9         CHARACTER(kind = C_CHAR)   , DIMENSION(*) :: name
10         INTEGER (kind = C_INT)                    :: name_size
11      END SUBROUTINE xios_set_gridgroup_name
12
13      SUBROUTINE xios_set_gridgroup_description(gridgroup_hdl, description, description_size) BIND(C)
14         USE ISO_C_BINDING
15         INTEGER (kind = C_INTPTR_T), VALUE        :: gridgroup_hdl
16         CHARACTER(kind = C_CHAR)   , DIMENSION(*) :: description
17         INTEGER (kind = C_INT)                    :: description_size
18      END SUBROUTINE xios_set_gridgroup_description
19
20      SUBROUTINE xios_set_gridgroup_domain_ref(gridgroup_hdl, domain_ref, domain_ref_size) BIND(C)
21         USE ISO_C_BINDING
22         INTEGER (kind = C_INTPTR_T), VALUE        :: gridgroup_hdl
23         CHARACTER(kind = C_CHAR)   , DIMENSION(*) :: domain_ref
24         INTEGER (kind = C_INT)                    :: domain_ref_size
25      END SUBROUTINE xios_set_gridgroup_domain_ref
26
27      SUBROUTINE xios_set_gridgroup_axis_ref(gridgroup_hdl, axis_ref, axis_ref_size) BIND(C)
28         USE ISO_C_BINDING
29         INTEGER  (kind = C_INTPTR_T), VALUE        :: gridgroup_hdl
30         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_ref
31         INTEGER  (kind = C_INT)                    :: axis_ref_size
32      END SUBROUTINE xios_set_gridgroup_axis_ref
33     
34   END INTERFACE
35     
36END MODULE GRIDGROUP_INTERFACE
Note: See TracBrowser for help on using the repository browser.