source: XIOS/trunk/src/interface/fortran_attr/icontext_attr.F90 @ 581

Last change on this file since 581 was 581, checked in by rlacroix, 9 years ago

Fix the Fortran interface generation to avoid generating dead code that caused a timer not to be stopped.
  • 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.0 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
11CONTAINS
12
13  SUBROUTINE xios(set_context_attr)  &
14    ( context_id, output_dir )
15
16    IMPLICIT NONE
17      TYPE(txios(context))  :: context_hdl
18      CHARACTER(LEN=*), INTENT(IN) ::context_id
19      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_dir
20
21      CALL xios(get_context_handle)(context_id,context_hdl)
22      CALL xios(set_context_attr_hdl_)   &
23      ( context_hdl, output_dir )
24
25  END SUBROUTINE xios(set_context_attr)
26
27  SUBROUTINE xios(set_context_attr_hdl)  &
28    ( context_hdl, output_dir )
29
30    IMPLICIT NONE
31      TYPE(txios(context)) , INTENT(IN) :: context_hdl
32      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_dir
33
34      CALL xios(set_context_attr_hdl_)  &
35      ( context_hdl, output_dir )
36
37  END SUBROUTINE xios(set_context_attr_hdl)
38
39  SUBROUTINE xios(set_context_attr_hdl_)   &
40    ( context_hdl, output_dir_ )
41
42    IMPLICIT NONE
43      TYPE(txios(context)) , INTENT(IN) :: context_hdl
44      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_dir_
45
46      IF (PRESENT(output_dir_)) THEN
47        CALL cxios_set_context_output_dir(context_hdl%daddr, output_dir_, len(output_dir_))
48      ENDIF
49
50  END SUBROUTINE xios(set_context_attr_hdl_)
51
52  SUBROUTINE xios(get_context_attr)  &
53    ( context_id, output_dir )
54
55    IMPLICIT NONE
56      TYPE(txios(context))  :: context_hdl
57      CHARACTER(LEN=*), INTENT(IN) ::context_id
58      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir
59
60      CALL xios(get_context_handle)(context_id,context_hdl)
61      CALL xios(get_context_attr_hdl_)   &
62      ( context_hdl, output_dir )
63
64  END SUBROUTINE xios(get_context_attr)
65
66  SUBROUTINE xios(get_context_attr_hdl)  &
67    ( context_hdl, output_dir )
68
69    IMPLICIT NONE
70      TYPE(txios(context)) , INTENT(IN) :: context_hdl
71      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir
72
73      CALL xios(get_context_attr_hdl_)  &
74      ( context_hdl, output_dir )
75
76  END SUBROUTINE xios(get_context_attr_hdl)
77
78  SUBROUTINE xios(get_context_attr_hdl_)   &
79    ( context_hdl, output_dir_ )
80
81    IMPLICIT NONE
82      TYPE(txios(context)) , INTENT(IN) :: context_hdl
83      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir_
84
85      IF (PRESENT(output_dir_)) THEN
86        CALL cxios_get_context_output_dir(context_hdl%daddr, output_dir_, len(output_dir_))
87      ENDIF
88
89  END SUBROUTINE xios(get_context_attr_hdl_)
90
91  SUBROUTINE xios(is_defined_context_attr)  &
92    ( context_id, output_dir )
93
94    IMPLICIT NONE
95      TYPE(txios(context))  :: context_hdl
96      CHARACTER(LEN=*), INTENT(IN) ::context_id
97      LOGICAL, OPTIONAL, INTENT(OUT) :: output_dir
98      LOGICAL(KIND=C_BOOL) :: output_dir_tmp
99
100      CALL xios(get_context_handle)(context_id,context_hdl)
101      CALL xios(is_defined_context_attr_hdl_)   &
102      ( context_hdl, output_dir )
103
104  END SUBROUTINE xios(is_defined_context_attr)
105
106  SUBROUTINE xios(is_defined_context_attr_hdl)  &
107    ( context_hdl, output_dir )
108
109    IMPLICIT NONE
110      TYPE(txios(context)) , INTENT(IN) :: context_hdl
111      LOGICAL, OPTIONAL, INTENT(OUT) :: output_dir
112      LOGICAL(KIND=C_BOOL) :: output_dir_tmp
113
114      CALL xios(is_defined_context_attr_hdl_)  &
115      ( context_hdl, output_dir )
116
117  END SUBROUTINE xios(is_defined_context_attr_hdl)
118
119  SUBROUTINE xios(is_defined_context_attr_hdl_)   &
120    ( context_hdl, output_dir_ )
121
122    IMPLICIT NONE
123      TYPE(txios(context)) , INTENT(IN) :: context_hdl
124      LOGICAL, OPTIONAL, INTENT(OUT) :: output_dir_
125      LOGICAL(KIND=C_BOOL) :: output_dir__tmp
126
127      IF (PRESENT(output_dir_)) THEN
128        output_dir__tmp = cxios_is_defined_context_output_dir(context_hdl%daddr)
129        output_dir_ = output_dir__tmp
130      ENDIF
131
132  END SUBROUTINE xios(is_defined_context_attr_hdl_)
133
134END MODULE icontext_attr
Note: See TracBrowser for help on using the repository browser.