source: XIOS2/trunk/src/interface/fortran_attr/icontext_attr.F90

Last change on this file was 2623, checked in by jderouillat, 7 months ago

Modify fortran-C interfaces to manage logical-bool conversion, the optimizations of OneAPI could produce bugs regarding the logical-bool encodings.
  • 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: 4.1 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE icontext_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE icontext
9  USE context_interface_attr
10  USE LOGICAL_BOOL_CONVERSION
11
12CONTAINS
13
14  SUBROUTINE xios(set_context_attr)  &
15    ( context_id, output_dir )
16
17    IMPLICIT NONE
18      TYPE(txios(context))  :: context_hdl
19      CHARACTER(LEN=*), INTENT(IN) ::context_id
20      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_dir
21
22      CALL xios(get_context_handle) &
23      (context_id,context_hdl)
24      CALL xios(set_context_attr_hdl_)   &
25      ( context_hdl, output_dir )
26
27  END SUBROUTINE xios(set_context_attr)
28
29  SUBROUTINE xios(set_context_attr_hdl)  &
30    ( context_hdl, output_dir )
31
32    IMPLICIT NONE
33      TYPE(txios(context)) , INTENT(IN) :: context_hdl
34      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_dir
35
36      CALL xios(set_context_attr_hdl_)  &
37      ( context_hdl, output_dir )
38
39  END SUBROUTINE xios(set_context_attr_hdl)
40
41  SUBROUTINE xios(set_context_attr_hdl_)   &
42    ( context_hdl, output_dir_ )
43
44    IMPLICIT NONE
45      TYPE(txios(context)) , INTENT(IN) :: context_hdl
46      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_dir_
47
48      IF (PRESENT(output_dir_)) THEN
49        CALL cxios_set_context_output_dir &
50      (context_hdl%daddr, output_dir_, len(output_dir_))
51      ENDIF
52
53  END SUBROUTINE xios(set_context_attr_hdl_)
54
55  SUBROUTINE xios(get_context_attr)  &
56    ( context_id, output_dir )
57
58    IMPLICIT NONE
59      TYPE(txios(context))  :: context_hdl
60      CHARACTER(LEN=*), INTENT(IN) ::context_id
61      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir
62
63      CALL xios(get_context_handle) &
64      (context_id,context_hdl)
65      CALL xios(get_context_attr_hdl_)   &
66      ( context_hdl, output_dir )
67
68  END SUBROUTINE xios(get_context_attr)
69
70  SUBROUTINE xios(get_context_attr_hdl)  &
71    ( context_hdl, output_dir )
72
73    IMPLICIT NONE
74      TYPE(txios(context)) , INTENT(IN) :: context_hdl
75      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir
76
77      CALL xios(get_context_attr_hdl_)  &
78      ( context_hdl, output_dir )
79
80  END SUBROUTINE xios(get_context_attr_hdl)
81
82  SUBROUTINE xios(get_context_attr_hdl_)   &
83    ( context_hdl, output_dir_ )
84
85    IMPLICIT NONE
86      TYPE(txios(context)) , INTENT(IN) :: context_hdl
87      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir_
88
89      IF (PRESENT(output_dir_)) THEN
90        CALL cxios_get_context_output_dir &
91      (context_hdl%daddr, output_dir_, len(output_dir_))
92      ENDIF
93
94  END SUBROUTINE xios(get_context_attr_hdl_)
95
96  SUBROUTINE xios(is_defined_context_attr)  &
97    ( context_id, output_dir )
98
99    IMPLICIT NONE
100      TYPE(txios(context))  :: context_hdl
101      CHARACTER(LEN=*), INTENT(IN) ::context_id
102      LOGICAL, OPTIONAL, INTENT(OUT) :: output_dir
103      LOGICAL(KIND=C_BOOL) :: output_dir_tmp
104
105      CALL xios(get_context_handle) &
106      (context_id,context_hdl)
107      CALL xios(is_defined_context_attr_hdl_)   &
108      ( context_hdl, output_dir )
109
110  END SUBROUTINE xios(is_defined_context_attr)
111
112  SUBROUTINE xios(is_defined_context_attr_hdl)  &
113    ( context_hdl, output_dir )
114
115    IMPLICIT NONE
116      TYPE(txios(context)) , INTENT(IN) :: context_hdl
117      LOGICAL, OPTIONAL, INTENT(OUT) :: output_dir
118      LOGICAL(KIND=C_BOOL) :: output_dir_tmp
119
120      CALL xios(is_defined_context_attr_hdl_)  &
121      ( context_hdl, output_dir )
122
123  END SUBROUTINE xios(is_defined_context_attr_hdl)
124
125  SUBROUTINE xios(is_defined_context_attr_hdl_)   &
126    ( context_hdl, output_dir_ )
127
128    IMPLICIT NONE
129      TYPE(txios(context)) , INTENT(IN) :: context_hdl
130      LOGICAL, OPTIONAL, INTENT(OUT) :: output_dir_
131      LOGICAL(KIND=C_BOOL) :: output_dir__tmp
132
133      IF (PRESENT(output_dir_)) THEN
134        output_dir__tmp = cxios_is_defined_context_output_dir &
135      (context_hdl%daddr)
136        output_dir_ = output_dir__tmp
137      ENDIF
138
139  END SUBROUTINE xios(is_defined_context_attr_hdl_)
140
141END MODULE icontext_attr
Note: See TracBrowser for help on using the repository browser.