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

Last change on this file since 657 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
RevLine 
[326]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
[581]10
[326]11CONTAINS
[581]12
[326]13  SUBROUTINE xios(set_context_attr)  &
[549]14    ( context_id, output_dir )
[581]15
[326]16    IMPLICIT NONE
17      TYPE(txios(context))  :: context_hdl
18      CHARACTER(LEN=*), INTENT(IN) ::context_id
19      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_dir
[581]20
[326]21      CALL xios(get_context_handle)(context_id,context_hdl)
22      CALL xios(set_context_attr_hdl_)   &
[549]23      ( context_hdl, output_dir )
[581]24
[326]25  END SUBROUTINE xios(set_context_attr)
[581]26
[326]27  SUBROUTINE xios(set_context_attr_hdl)  &
[549]28    ( context_hdl, output_dir )
[581]29
[326]30    IMPLICIT NONE
31      TYPE(txios(context)) , INTENT(IN) :: context_hdl
32      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_dir
[581]33
[326]34      CALL xios(set_context_attr_hdl_)  &
[549]35      ( context_hdl, output_dir )
[581]36
[326]37  END SUBROUTINE xios(set_context_attr_hdl)
[581]38
[326]39  SUBROUTINE xios(set_context_attr_hdl_)   &
[549]40    ( context_hdl, output_dir_ )
[581]41
[326]42    IMPLICIT NONE
43      TYPE(txios(context)) , INTENT(IN) :: context_hdl
44      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_dir_
[581]45
[326]46      IF (PRESENT(output_dir_)) THEN
47        CALL cxios_set_context_output_dir(context_hdl%daddr, output_dir_, len(output_dir_))
48      ENDIF
[581]49
[326]50  END SUBROUTINE xios(set_context_attr_hdl_)
[581]51
[326]52  SUBROUTINE xios(get_context_attr)  &
[549]53    ( context_id, output_dir )
[581]54
[326]55    IMPLICIT NONE
56      TYPE(txios(context))  :: context_hdl
57      CHARACTER(LEN=*), INTENT(IN) ::context_id
58      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir
[581]59
[326]60      CALL xios(get_context_handle)(context_id,context_hdl)
61      CALL xios(get_context_attr_hdl_)   &
[549]62      ( context_hdl, output_dir )
[581]63
[326]64  END SUBROUTINE xios(get_context_attr)
[581]65
[326]66  SUBROUTINE xios(get_context_attr_hdl)  &
[549]67    ( context_hdl, output_dir )
[581]68
[326]69    IMPLICIT NONE
70      TYPE(txios(context)) , INTENT(IN) :: context_hdl
71      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir
[581]72
[326]73      CALL xios(get_context_attr_hdl_)  &
[549]74      ( context_hdl, output_dir )
[581]75
[326]76  END SUBROUTINE xios(get_context_attr_hdl)
[581]77
[326]78  SUBROUTINE xios(get_context_attr_hdl_)   &
[549]79    ( context_hdl, output_dir_ )
[581]80
[326]81    IMPLICIT NONE
82      TYPE(txios(context)) , INTENT(IN) :: context_hdl
83      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir_
[581]84
[326]85      IF (PRESENT(output_dir_)) THEN
86        CALL cxios_get_context_output_dir(context_hdl%daddr, output_dir_, len(output_dir_))
87      ENDIF
[581]88
[326]89  END SUBROUTINE xios(get_context_attr_hdl_)
[581]90
[432]91  SUBROUTINE xios(is_defined_context_attr)  &
[549]92    ( context_id, output_dir )
[581]93
[432]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
[581]99
[432]100      CALL xios(get_context_handle)(context_id,context_hdl)
101      CALL xios(is_defined_context_attr_hdl_)   &
[549]102      ( context_hdl, output_dir )
[581]103
[432]104  END SUBROUTINE xios(is_defined_context_attr)
[581]105
[432]106  SUBROUTINE xios(is_defined_context_attr_hdl)  &
[549]107    ( context_hdl, output_dir )
[581]108
[432]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
[581]113
[432]114      CALL xios(is_defined_context_attr_hdl_)  &
[549]115      ( context_hdl, output_dir )
[581]116
[432]117  END SUBROUTINE xios(is_defined_context_attr_hdl)
[581]118
[432]119  SUBROUTINE xios(is_defined_context_attr_hdl_)   &
[549]120    ( context_hdl, output_dir_ )
[581]121
[432]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
[581]126
[432]127      IF (PRESENT(output_dir_)) THEN
[581]128        output_dir__tmp = cxios_is_defined_context_output_dir(context_hdl%daddr)
129        output_dir_ = output_dir__tmp
[432]130      ENDIF
[581]131
[432]132  END SUBROUTINE xios(is_defined_context_attr_hdl_)
[581]133
[326]134END MODULE icontext_attr
Note: See TracBrowser for help on using the repository browser.