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

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