source: XIOS/dev/branch_yushan_merged/src/interface/fortran_attr/icontext_attr.F90 @ 1205

Last change on this file since 1205 was 966, checked in by mhnguyen, 7 years ago

Reducing length of line of auto-generate Fortran interface

+) Break line into smaller ones to make sure each line is not longer than 132 character

Test
+) Local with gcc4.8
+) Compilation passed

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