source: XIOS/trunk/src/interface/fortran_attr/context_interface_attr.f90 @ 326

Last change on this file since 326 was 326, checked in by ymipsl, 10 years ago

port to gfortran/g++

YM

File size: 3.3 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4
5MODULE context_interface_attr
6  USE, INTRINSIC :: ISO_C_BINDING
7 
8  INTERFACE ! Do not call directly / interface FORTRAN 2003 <-> C99
9   
10   
11    SUBROUTINE cxios_set_context_calendar_type(context_hdl, calendar_type, calendar_type_size) BIND(C)
12      USE ISO_C_BINDING
13      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
14      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: calendar_type
15      INTEGER  (kind = C_INT)     , VALUE        :: calendar_type_size
16    END SUBROUTINE cxios_set_context_calendar_type
17   
18    SUBROUTINE cxios_get_context_calendar_type(context_hdl, calendar_type, calendar_type_size) BIND(C)
19      USE ISO_C_BINDING
20      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
21      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: calendar_type
22      INTEGER  (kind = C_INT)     , VALUE        :: calendar_type_size
23    END SUBROUTINE cxios_get_context_calendar_type
24   
25   
26    SUBROUTINE cxios_set_context_output_dir(context_hdl, output_dir, output_dir_size) BIND(C)
27      USE ISO_C_BINDING
28      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
29      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: output_dir
30      INTEGER  (kind = C_INT)     , VALUE        :: output_dir_size
31    END SUBROUTINE cxios_set_context_output_dir
32   
33    SUBROUTINE cxios_get_context_output_dir(context_hdl, output_dir, output_dir_size) BIND(C)
34      USE ISO_C_BINDING
35      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
36      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: output_dir
37      INTEGER  (kind = C_INT)     , VALUE        :: output_dir_size
38    END SUBROUTINE cxios_get_context_output_dir
39   
40   
41    SUBROUTINE cxios_set_context_start_date(context_hdl, start_date, start_date_size) BIND(C)
42      USE ISO_C_BINDING
43      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
44      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: start_date
45      INTEGER  (kind = C_INT)     , VALUE        :: start_date_size
46    END SUBROUTINE cxios_set_context_start_date
47   
48    SUBROUTINE cxios_get_context_start_date(context_hdl, start_date, start_date_size) BIND(C)
49      USE ISO_C_BINDING
50      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
51      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: start_date
52      INTEGER  (kind = C_INT)     , VALUE        :: start_date_size
53    END SUBROUTINE cxios_get_context_start_date
54   
55   
56    SUBROUTINE cxios_set_context_timestep(context_hdl, timestep, timestep_size) BIND(C)
57      USE ISO_C_BINDING
58      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
59      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: timestep
60      INTEGER  (kind = C_INT)     , VALUE        :: timestep_size
61    END SUBROUTINE cxios_set_context_timestep
62   
63    SUBROUTINE cxios_get_context_timestep(context_hdl, timestep, timestep_size) BIND(C)
64      USE ISO_C_BINDING
65      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
66      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: timestep
67      INTEGER  (kind = C_INT)     , VALUE        :: timestep_size
68    END SUBROUTINE cxios_get_context_timestep
69   
70   
71    END INTERFACE
72 
73END MODULE context_interface_attr
Note: See TracBrowser for help on using the repository browser.