source: XIOS/trunk/src/interface/fortran_attr/ivariablegroup_attr.F90 @ 1005

Last change on this file since 1005 was 966, checked in by mhnguyen, 8 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: 6.7 KB
RevLine 
[472]1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE ivariablegroup_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE ivariable
9  USE variablegroup_interface_attr
[581]10
[472]11CONTAINS
[581]12
[472]13  SUBROUTINE xios(set_variablegroup_attr)  &
14    ( variablegroup_id, group_ref, name, type )
[581]15
[472]16    IMPLICIT NONE
17      TYPE(txios(variablegroup))  :: variablegroup_hdl
18      CHARACTER(LEN=*), INTENT(IN) ::variablegroup_id
19      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
20      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
21      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
[581]22
[966]23      CALL xios(get_variablegroup_handle) &
24      (variablegroup_id,variablegroup_hdl)
[472]25      CALL xios(set_variablegroup_attr_hdl_)   &
26      ( variablegroup_hdl, group_ref, name, type )
[581]27
[472]28  END SUBROUTINE xios(set_variablegroup_attr)
[581]29
[472]30  SUBROUTINE xios(set_variablegroup_attr_hdl)  &
31    ( variablegroup_hdl, group_ref, name, type )
[581]32
[472]33    IMPLICIT NONE
34      TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl
35      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
36      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
37      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
[581]38
[472]39      CALL xios(set_variablegroup_attr_hdl_)  &
40      ( variablegroup_hdl, group_ref, name, type )
[581]41
[472]42  END SUBROUTINE xios(set_variablegroup_attr_hdl)
[581]43
[472]44  SUBROUTINE xios(set_variablegroup_attr_hdl_)   &
45    ( variablegroup_hdl, group_ref_, name_, type_ )
[581]46
[472]47    IMPLICIT NONE
48      TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl
49      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
50      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
51      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
[581]52
[472]53      IF (PRESENT(group_ref_)) THEN
[966]54        CALL cxios_set_variablegroup_group_ref &
55      (variablegroup_hdl%daddr, group_ref_, len(group_ref_))
[472]56      ENDIF
[581]57
[472]58      IF (PRESENT(name_)) THEN
[966]59        CALL cxios_set_variablegroup_name &
60      (variablegroup_hdl%daddr, name_, len(name_))
[472]61      ENDIF
[581]62
[472]63      IF (PRESENT(type_)) THEN
[966]64        CALL cxios_set_variablegroup_type &
65      (variablegroup_hdl%daddr, type_, len(type_))
[472]66      ENDIF
[581]67
[472]68  END SUBROUTINE xios(set_variablegroup_attr_hdl_)
[581]69
[472]70  SUBROUTINE xios(get_variablegroup_attr)  &
71    ( variablegroup_id, group_ref, name, type )
[581]72
[472]73    IMPLICIT NONE
74      TYPE(txios(variablegroup))  :: variablegroup_hdl
75      CHARACTER(LEN=*), INTENT(IN) ::variablegroup_id
76      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
77      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
78      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
[581]79
[966]80      CALL xios(get_variablegroup_handle) &
81      (variablegroup_id,variablegroup_hdl)
[472]82      CALL xios(get_variablegroup_attr_hdl_)   &
83      ( variablegroup_hdl, group_ref, name, type )
[581]84
[472]85  END SUBROUTINE xios(get_variablegroup_attr)
[581]86
[472]87  SUBROUTINE xios(get_variablegroup_attr_hdl)  &
88    ( variablegroup_hdl, group_ref, name, type )
[581]89
[472]90    IMPLICIT NONE
91      TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl
92      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
93      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
94      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
[581]95
[472]96      CALL xios(get_variablegroup_attr_hdl_)  &
97      ( variablegroup_hdl, group_ref, name, type )
[581]98
[472]99  END SUBROUTINE xios(get_variablegroup_attr_hdl)
[581]100
[472]101  SUBROUTINE xios(get_variablegroup_attr_hdl_)   &
102    ( variablegroup_hdl, group_ref_, name_, type_ )
[581]103
[472]104    IMPLICIT NONE
105      TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl
106      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
107      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
108      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
[581]109
[472]110      IF (PRESENT(group_ref_)) THEN
[966]111        CALL cxios_get_variablegroup_group_ref &
112      (variablegroup_hdl%daddr, group_ref_, len(group_ref_))
[472]113      ENDIF
[581]114
[472]115      IF (PRESENT(name_)) THEN
[966]116        CALL cxios_get_variablegroup_name &
117      (variablegroup_hdl%daddr, name_, len(name_))
[472]118      ENDIF
[581]119
[472]120      IF (PRESENT(type_)) THEN
[966]121        CALL cxios_get_variablegroup_type &
122      (variablegroup_hdl%daddr, type_, len(type_))
[472]123      ENDIF
[581]124
[472]125  END SUBROUTINE xios(get_variablegroup_attr_hdl_)
[581]126
[472]127  SUBROUTINE xios(is_defined_variablegroup_attr)  &
128    ( variablegroup_id, group_ref, name, type )
[581]129
[472]130    IMPLICIT NONE
131      TYPE(txios(variablegroup))  :: variablegroup_hdl
132      CHARACTER(LEN=*), INTENT(IN) ::variablegroup_id
133      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
134      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
135      LOGICAL, OPTIONAL, INTENT(OUT) :: name
136      LOGICAL(KIND=C_BOOL) :: name_tmp
137      LOGICAL, OPTIONAL, INTENT(OUT) :: type
138      LOGICAL(KIND=C_BOOL) :: type_tmp
[581]139
[966]140      CALL xios(get_variablegroup_handle) &
141      (variablegroup_id,variablegroup_hdl)
[472]142      CALL xios(is_defined_variablegroup_attr_hdl_)   &
143      ( variablegroup_hdl, group_ref, name, type )
[581]144
[472]145  END SUBROUTINE xios(is_defined_variablegroup_attr)
[581]146
[472]147  SUBROUTINE xios(is_defined_variablegroup_attr_hdl)  &
148    ( variablegroup_hdl, group_ref, name, type )
[581]149
[472]150    IMPLICIT NONE
151      TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl
152      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
153      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
154      LOGICAL, OPTIONAL, INTENT(OUT) :: name
155      LOGICAL(KIND=C_BOOL) :: name_tmp
156      LOGICAL, OPTIONAL, INTENT(OUT) :: type
157      LOGICAL(KIND=C_BOOL) :: type_tmp
[581]158
[472]159      CALL xios(is_defined_variablegroup_attr_hdl_)  &
160      ( variablegroup_hdl, group_ref, name, type )
[581]161
[472]162  END SUBROUTINE xios(is_defined_variablegroup_attr_hdl)
[581]163
[472]164  SUBROUTINE xios(is_defined_variablegroup_attr_hdl_)   &
165    ( variablegroup_hdl, group_ref_, name_, type_ )
[581]166
[472]167    IMPLICIT NONE
168      TYPE(txios(variablegroup)) , INTENT(IN) :: variablegroup_hdl
169      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
170      LOGICAL(KIND=C_BOOL) :: group_ref__tmp
171      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
172      LOGICAL(KIND=C_BOOL) :: name__tmp
173      LOGICAL, OPTIONAL, INTENT(OUT) :: type_
174      LOGICAL(KIND=C_BOOL) :: type__tmp
[581]175
[472]176      IF (PRESENT(group_ref_)) THEN
[966]177        group_ref__tmp = cxios_is_defined_variablegroup_group_ref &
178      (variablegroup_hdl%daddr)
[581]179        group_ref_ = group_ref__tmp
[472]180      ENDIF
[581]181
[472]182      IF (PRESENT(name_)) THEN
[966]183        name__tmp = cxios_is_defined_variablegroup_name &
184      (variablegroup_hdl%daddr)
[581]185        name_ = name__tmp
[472]186      ENDIF
[581]187
[472]188      IF (PRESENT(type_)) THEN
[966]189        type__tmp = cxios_is_defined_variablegroup_type &
190      (variablegroup_hdl%daddr)
[581]191        type_ = type__tmp
[472]192      ENDIF
[581]193
[472]194  END SUBROUTINE xios(is_defined_variablegroup_attr_hdl_)
[581]195
[472]196END MODULE ivariablegroup_attr
Note: See TracBrowser for help on using the repository browser.