source: XMLIO_V2/dev/common/src/xmlio/fortran/context_interface.f90 @ 286

Last change on this file since 286 was 286, checked in by ymipsl, 12 years ago

reprise en main de la version de H. Ozdoba. Correction de différentes erreurs de conception et bug.
Version NEMO operationnel en client/server, interoperabilita avec OASIS, reconstition de fichiers via netcdf4/HDF5

YM

File size: 2.8 KB
Line 
1MODULE CONTEXT_INTERFACE
2   USE, INTRINSIC :: ISO_C_BINDING
3     
4   INTERFACE ! Ne pas appeler directement/Interface FORTRAN 2003 <-> C99
5     
6      SUBROUTINE cxios_set_context_calendar_type(context_hdl, calendar_type ,calendar_type_size) BIND(C)
7         USE ISO_C_BINDING
8         INTEGER  (kind = C_INTPTR_T), VALUE        :: context_hdl
9         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: calendar_type
10         INTEGER  (kind = C_INT)     , VALUE        :: calendar_type_size
11      END SUBROUTINE cxios_set_context_calendar_type
12
13      SUBROUTINE cxios_set_context_start_date(context_hdl, start_date ,start_date_size) BIND(C)
14         USE ISO_C_BINDING
15         INTEGER  (kind = C_INTPTR_T), VALUE        :: context_hdl
16         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: start_date
17         INTEGER  (kind = C_INT)     , VALUE        :: start_date_size
18      END SUBROUTINE cxios_set_context_start_date
19
20      SUBROUTINE cxios_set_context_output_dir(context_hdl, output_dir ,output_dir_size) BIND(C)
21         USE ISO_C_BINDING
22         INTEGER  (kind = C_INTPTR_T), VALUE        :: context_hdl
23         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: output_dir
24         INTEGER  (kind = C_INT)     , VALUE        :: output_dir_size
25      END SUBROUTINE cxios_set_context_output_dir
26     
27      SUBROUTINE cxios_context_handle_create(ret, idt, idt_size) BIND(C)
28         import C_CHAR, C_INTPTR_T, C_INT
29         INTEGER  (kind = C_INTPTR_T)               :: ret
30         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt
31         INTEGER  (kind = C_INT)     , VALUE        :: idt_size
32      END SUBROUTINE cxios_context_handle_create
33     
34      SUBROUTINE cxios_context_set_current(context, withswap) BIND(C)
35         import C_BOOL, C_INT, C_INTPTR_T
36         INTEGER (kind = C_INTPTR_T), VALUE :: context
37         LOGICAL (kind = C_BOOL)    , VALUE :: withswap
38      END SUBROUTINE cxios_context_set_current
39
40      SUBROUTINE cxios_context_create(context, context_id, context_id_size, calendar_type, &
41                                     year, month, day, hour, minute, second) BIND(C)
42         USE ISO_C_BINDING
43         INTEGER  (kind = C_INTPTR_T)               :: context
44         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: context_id
45         INTEGER  (kind = C_INT)     , VALUE        :: context_id_size
46         INTEGER  (kind = C_INT)     , VALUE        :: calendar_type, year, month, day, hour, minute, second
47      END SUBROUTINE cxios_context_create
48
49      SUBROUTINE cxios_context_valid_id(ret, idt, idt_size) BIND(C)
50         USE ISO_C_BINDING
51         LOGICAL  (kind = C_BOOL)                   :: ret
52         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt
53         INTEGER  (kind = C_INT)     , VALUE        :: idt_size
54      END SUBROUTINE cxios_context_valid_id
55
56   END INTERFACE
57     
58END MODULE CONTEXT_INTERFACE
Note: See TracBrowser for help on using the repository browser.