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

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