source: XIOS/trunk/src/interface/fortran_attr/ivariable_attr.F90 @ 1040

Last change on this file since 1040 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: 5.0 KB
RevLine 
[472]1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE ivariable_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE ivariable
9  USE variable_interface_attr
[581]10
[472]11CONTAINS
[581]12
[472]13  SUBROUTINE xios(set_variable_attr)  &
14    ( variable_id, name, type )
[581]15
[472]16    IMPLICIT NONE
17      TYPE(txios(variable))  :: variable_hdl
18      CHARACTER(LEN=*), INTENT(IN) ::variable_id
19      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
20      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
[581]21
[966]22      CALL xios(get_variable_handle) &
23      (variable_id,variable_hdl)
[472]24      CALL xios(set_variable_attr_hdl_)   &
25      ( variable_hdl, name, type )
[581]26
[472]27  END SUBROUTINE xios(set_variable_attr)
[581]28
[472]29  SUBROUTINE xios(set_variable_attr_hdl)  &
30    ( variable_hdl, name, type )
[581]31
[472]32    IMPLICIT NONE
33      TYPE(txios(variable)) , INTENT(IN) :: variable_hdl
34      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
35      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
[581]36
[472]37      CALL xios(set_variable_attr_hdl_)  &
38      ( variable_hdl, name, type )
[581]39
[472]40  END SUBROUTINE xios(set_variable_attr_hdl)
[581]41
[472]42  SUBROUTINE xios(set_variable_attr_hdl_)   &
43    ( variable_hdl, name_, type_ )
[581]44
[472]45    IMPLICIT NONE
46      TYPE(txios(variable)) , INTENT(IN) :: variable_hdl
47      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
48      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
[581]49
[472]50      IF (PRESENT(name_)) THEN
[966]51        CALL cxios_set_variable_name &
52      (variable_hdl%daddr, name_, len(name_))
[472]53      ENDIF
[581]54
[472]55      IF (PRESENT(type_)) THEN
[966]56        CALL cxios_set_variable_type &
57      (variable_hdl%daddr, type_, len(type_))
[472]58      ENDIF
[581]59
[472]60  END SUBROUTINE xios(set_variable_attr_hdl_)
[581]61
[472]62  SUBROUTINE xios(get_variable_attr)  &
63    ( variable_id, name, type )
[581]64
[472]65    IMPLICIT NONE
66      TYPE(txios(variable))  :: variable_hdl
67      CHARACTER(LEN=*), INTENT(IN) ::variable_id
68      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
69      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
[581]70
[966]71      CALL xios(get_variable_handle) &
72      (variable_id,variable_hdl)
[472]73      CALL xios(get_variable_attr_hdl_)   &
74      ( variable_hdl, name, type )
[581]75
[472]76  END SUBROUTINE xios(get_variable_attr)
[581]77
[472]78  SUBROUTINE xios(get_variable_attr_hdl)  &
79    ( variable_hdl, name, type )
[581]80
[472]81    IMPLICIT NONE
82      TYPE(txios(variable)) , INTENT(IN) :: variable_hdl
83      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
84      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
[581]85
[472]86      CALL xios(get_variable_attr_hdl_)  &
87      ( variable_hdl, name, type )
[581]88
[472]89  END SUBROUTINE xios(get_variable_attr_hdl)
[581]90
[472]91  SUBROUTINE xios(get_variable_attr_hdl_)   &
92    ( variable_hdl, name_, type_ )
[581]93
[472]94    IMPLICIT NONE
95      TYPE(txios(variable)) , INTENT(IN) :: variable_hdl
96      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
97      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
[581]98
[472]99      IF (PRESENT(name_)) THEN
[966]100        CALL cxios_get_variable_name &
101      (variable_hdl%daddr, name_, len(name_))
[472]102      ENDIF
[581]103
[472]104      IF (PRESENT(type_)) THEN
[966]105        CALL cxios_get_variable_type &
106      (variable_hdl%daddr, type_, len(type_))
[472]107      ENDIF
[581]108
[472]109  END SUBROUTINE xios(get_variable_attr_hdl_)
[581]110
[472]111  SUBROUTINE xios(is_defined_variable_attr)  &
112    ( variable_id, name, type )
[581]113
[472]114    IMPLICIT NONE
115      TYPE(txios(variable))  :: variable_hdl
116      CHARACTER(LEN=*), INTENT(IN) ::variable_id
117      LOGICAL, OPTIONAL, INTENT(OUT) :: name
118      LOGICAL(KIND=C_BOOL) :: name_tmp
119      LOGICAL, OPTIONAL, INTENT(OUT) :: type
120      LOGICAL(KIND=C_BOOL) :: type_tmp
[581]121
[966]122      CALL xios(get_variable_handle) &
123      (variable_id,variable_hdl)
[472]124      CALL xios(is_defined_variable_attr_hdl_)   &
125      ( variable_hdl, name, type )
[581]126
[472]127  END SUBROUTINE xios(is_defined_variable_attr)
[581]128
[472]129  SUBROUTINE xios(is_defined_variable_attr_hdl)  &
130    ( variable_hdl, name, type )
[581]131
[472]132    IMPLICIT NONE
133      TYPE(txios(variable)) , INTENT(IN) :: variable_hdl
134      LOGICAL, OPTIONAL, INTENT(OUT) :: name
135      LOGICAL(KIND=C_BOOL) :: name_tmp
136      LOGICAL, OPTIONAL, INTENT(OUT) :: type
137      LOGICAL(KIND=C_BOOL) :: type_tmp
[581]138
[472]139      CALL xios(is_defined_variable_attr_hdl_)  &
140      ( variable_hdl, name, type )
[581]141
[472]142  END SUBROUTINE xios(is_defined_variable_attr_hdl)
[581]143
[472]144  SUBROUTINE xios(is_defined_variable_attr_hdl_)   &
145    ( variable_hdl, name_, type_ )
[581]146
[472]147    IMPLICIT NONE
148      TYPE(txios(variable)) , INTENT(IN) :: variable_hdl
149      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
150      LOGICAL(KIND=C_BOOL) :: name__tmp
151      LOGICAL, OPTIONAL, INTENT(OUT) :: type_
152      LOGICAL(KIND=C_BOOL) :: type__tmp
[581]153
[472]154      IF (PRESENT(name_)) THEN
[966]155        name__tmp = cxios_is_defined_variable_name &
156      (variable_hdl%daddr)
[581]157        name_ = name__tmp
[472]158      ENDIF
[581]159
[472]160      IF (PRESENT(type_)) THEN
[966]161        type__tmp = cxios_is_defined_variable_type &
162      (variable_hdl%daddr)
[581]163        type_ = type__tmp
[472]164      ENDIF
[581]165
[472]166  END SUBROUTINE xios(is_defined_variable_attr_hdl_)
[581]167
[472]168END MODULE ivariable_attr
Note: See TracBrowser for help on using the repository browser.