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

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

Add licence copyright to all file ond directory src using the command :
svn propset -R copyright -F header_licence src

XIOS is now officialy under CeCILL licence

YM
  • Property copyright set to
    Software name : XIOS (Xml I/O Server)
    http://forge.ipsl.jussieu.fr/ioserver
    Creation date : January 2009
    Licence : CeCCIL version2
    see license file in root directory : Licence_CeCILL_V2-en.txt
    or http://www.cecill.info/licences/Licence_CeCILL_V2-en.html
    Holder : CEA/LSCE (Laboratoire des Sciences du CLimat et de l'Environnement)
    CNRS/IPSL (Institut Pierre Simon Laplace)
    Project Manager : Yann Meurdesoif
    yann.meurdesoif@cea.fr
File size: 5.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    FUNCTION cxios_is_defined_context_calendar_type(context_hdl ) BIND(C)
26      USE ISO_C_BINDING
27      LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_calendar_type
28      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
29    END FUNCTION cxios_is_defined_context_calendar_type
30   
31   
32    SUBROUTINE cxios_set_context_output_dir(context_hdl, output_dir, output_dir_size) BIND(C)
33      USE ISO_C_BINDING
34      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
35      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: output_dir
36      INTEGER  (kind = C_INT)     , VALUE        :: output_dir_size
37    END SUBROUTINE cxios_set_context_output_dir
38   
39    SUBROUTINE cxios_get_context_output_dir(context_hdl, output_dir, output_dir_size) BIND(C)
40      USE ISO_C_BINDING
41      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
42      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: output_dir
43      INTEGER  (kind = C_INT)     , VALUE        :: output_dir_size
44    END SUBROUTINE cxios_get_context_output_dir
45   
46    FUNCTION cxios_is_defined_context_output_dir(context_hdl ) BIND(C)
47      USE ISO_C_BINDING
48      LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_output_dir
49      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
50    END FUNCTION cxios_is_defined_context_output_dir
51   
52   
53    SUBROUTINE cxios_set_context_start_date(context_hdl, start_date, start_date_size) BIND(C)
54      USE ISO_C_BINDING
55      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
56      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: start_date
57      INTEGER  (kind = C_INT)     , VALUE        :: start_date_size
58    END SUBROUTINE cxios_set_context_start_date
59   
60    SUBROUTINE cxios_get_context_start_date(context_hdl, start_date, start_date_size) BIND(C)
61      USE ISO_C_BINDING
62      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
63      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: start_date
64      INTEGER  (kind = C_INT)     , VALUE        :: start_date_size
65    END SUBROUTINE cxios_get_context_start_date
66   
67    FUNCTION cxios_is_defined_context_start_date(context_hdl ) BIND(C)
68      USE ISO_C_BINDING
69      LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_start_date
70      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
71    END FUNCTION cxios_is_defined_context_start_date
72   
73   
74    SUBROUTINE cxios_set_context_time_origin(context_hdl, time_origin, time_origin_size) BIND(C)
75      USE ISO_C_BINDING
76      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
77      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_origin
78      INTEGER  (kind = C_INT)     , VALUE        :: time_origin_size
79    END SUBROUTINE cxios_set_context_time_origin
80   
81    SUBROUTINE cxios_get_context_time_origin(context_hdl, time_origin, time_origin_size) BIND(C)
82      USE ISO_C_BINDING
83      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
84      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_origin
85      INTEGER  (kind = C_INT)     , VALUE        :: time_origin_size
86    END SUBROUTINE cxios_get_context_time_origin
87   
88    FUNCTION cxios_is_defined_context_time_origin(context_hdl ) BIND(C)
89      USE ISO_C_BINDING
90      LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_time_origin
91      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
92    END FUNCTION cxios_is_defined_context_time_origin
93   
94   
95    SUBROUTINE cxios_set_context_timestep(context_hdl, timestep, timestep_size) BIND(C)
96      USE ISO_C_BINDING
97      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
98      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: timestep
99      INTEGER  (kind = C_INT)     , VALUE        :: timestep_size
100    END SUBROUTINE cxios_set_context_timestep
101   
102    SUBROUTINE cxios_get_context_timestep(context_hdl, timestep, timestep_size) BIND(C)
103      USE ISO_C_BINDING
104      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
105      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: timestep
106      INTEGER  (kind = C_INT)     , VALUE        :: timestep_size
107    END SUBROUTINE cxios_get_context_timestep
108   
109    FUNCTION cxios_is_defined_context_timestep(context_hdl ) BIND(C)
110      USE ISO_C_BINDING
111      LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_timestep
112      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
113    END FUNCTION cxios_is_defined_context_timestep
114   
115   
116    END INTERFACE
117 
118END MODULE context_interface_attr
Note: See TracBrowser for help on using the repository browser.