source: XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/icontext_attr.F90 @ 2338

Last change on this file since 2338 was 1941, checked in by ymipsl, 4 years ago

XIOS coupling : Update fortran interface
YM
  • 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.7 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)  &
[1941]14    ( context_id, attached_mode, output_dir )
[581]15
[326]16    IMPLICIT NONE
17      TYPE(txios(context))  :: context_hdl
18      CHARACTER(LEN=*), INTENT(IN) ::context_id
[1941]19      LOGICAL  , OPTIONAL, INTENT(IN) :: attached_mode
20      LOGICAL (KIND=C_BOOL) :: attached_mode_tmp
[326]21      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_dir
[581]22
[966]23      CALL xios(get_context_handle) &
24      (context_id,context_hdl)
[326]25      CALL xios(set_context_attr_hdl_)   &
[1941]26      ( context_hdl, attached_mode, output_dir )
[581]27
[326]28  END SUBROUTINE xios(set_context_attr)
[581]29
[326]30  SUBROUTINE xios(set_context_attr_hdl)  &
[1941]31    ( context_hdl, attached_mode, output_dir )
[581]32
[326]33    IMPLICIT NONE
34      TYPE(txios(context)) , INTENT(IN) :: context_hdl
[1941]35      LOGICAL  , OPTIONAL, INTENT(IN) :: attached_mode
36      LOGICAL (KIND=C_BOOL) :: attached_mode_tmp
[326]37      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_dir
[581]38
[326]39      CALL xios(set_context_attr_hdl_)  &
[1941]40      ( context_hdl, attached_mode, output_dir )
[581]41
[326]42  END SUBROUTINE xios(set_context_attr_hdl)
[581]43
[326]44  SUBROUTINE xios(set_context_attr_hdl_)   &
[1941]45    ( context_hdl, attached_mode_, output_dir_ )
[581]46
[326]47    IMPLICIT NONE
48      TYPE(txios(context)) , INTENT(IN) :: context_hdl
[1941]49      LOGICAL  , OPTIONAL, INTENT(IN) :: attached_mode_
50      LOGICAL (KIND=C_BOOL) :: attached_mode__tmp
[326]51      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_dir_
[581]52
[1941]53      IF (PRESENT(attached_mode_)) THEN
54        attached_mode__tmp = attached_mode_
55        CALL cxios_set_context_attached_mode &
56      (context_hdl%daddr, attached_mode__tmp)
57      ENDIF
58
[326]59      IF (PRESENT(output_dir_)) THEN
[966]60        CALL cxios_set_context_output_dir &
61      (context_hdl%daddr, output_dir_, len(output_dir_))
[326]62      ENDIF
[581]63
[326]64  END SUBROUTINE xios(set_context_attr_hdl_)
[581]65
[326]66  SUBROUTINE xios(get_context_attr)  &
[1941]67    ( context_id, attached_mode, output_dir )
[581]68
[326]69    IMPLICIT NONE
70      TYPE(txios(context))  :: context_hdl
71      CHARACTER(LEN=*), INTENT(IN) ::context_id
[1941]72      LOGICAL  , OPTIONAL, INTENT(OUT) :: attached_mode
73      LOGICAL (KIND=C_BOOL) :: attached_mode_tmp
[326]74      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir
[581]75
[966]76      CALL xios(get_context_handle) &
77      (context_id,context_hdl)
[326]78      CALL xios(get_context_attr_hdl_)   &
[1941]79      ( context_hdl, attached_mode, output_dir )
[581]80
[326]81  END SUBROUTINE xios(get_context_attr)
[581]82
[326]83  SUBROUTINE xios(get_context_attr_hdl)  &
[1941]84    ( context_hdl, attached_mode, output_dir )
[581]85
[326]86    IMPLICIT NONE
87      TYPE(txios(context)) , INTENT(IN) :: context_hdl
[1941]88      LOGICAL  , OPTIONAL, INTENT(OUT) :: attached_mode
89      LOGICAL (KIND=C_BOOL) :: attached_mode_tmp
[326]90      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir
[581]91
[326]92      CALL xios(get_context_attr_hdl_)  &
[1941]93      ( context_hdl, attached_mode, output_dir )
[581]94
[326]95  END SUBROUTINE xios(get_context_attr_hdl)
[581]96
[326]97  SUBROUTINE xios(get_context_attr_hdl_)   &
[1941]98    ( context_hdl, attached_mode_, output_dir_ )
[581]99
[326]100    IMPLICIT NONE
101      TYPE(txios(context)) , INTENT(IN) :: context_hdl
[1941]102      LOGICAL  , OPTIONAL, INTENT(OUT) :: attached_mode_
103      LOGICAL (KIND=C_BOOL) :: attached_mode__tmp
[326]104      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir_
[581]105
[1941]106      IF (PRESENT(attached_mode_)) THEN
107        CALL cxios_get_context_attached_mode &
108      (context_hdl%daddr, attached_mode__tmp)
109        attached_mode_ = attached_mode__tmp
110      ENDIF
111
[326]112      IF (PRESENT(output_dir_)) THEN
[966]113        CALL cxios_get_context_output_dir &
114      (context_hdl%daddr, output_dir_, len(output_dir_))
[326]115      ENDIF
[581]116
[326]117  END SUBROUTINE xios(get_context_attr_hdl_)
[581]118
[432]119  SUBROUTINE xios(is_defined_context_attr)  &
[1941]120    ( context_id, attached_mode, output_dir )
[581]121
[432]122    IMPLICIT NONE
123      TYPE(txios(context))  :: context_hdl
124      CHARACTER(LEN=*), INTENT(IN) ::context_id
[1941]125      LOGICAL, OPTIONAL, INTENT(OUT) :: attached_mode
126      LOGICAL(KIND=C_BOOL) :: attached_mode_tmp
[432]127      LOGICAL, OPTIONAL, INTENT(OUT) :: output_dir
128      LOGICAL(KIND=C_BOOL) :: output_dir_tmp
[581]129
[966]130      CALL xios(get_context_handle) &
131      (context_id,context_hdl)
[432]132      CALL xios(is_defined_context_attr_hdl_)   &
[1941]133      ( context_hdl, attached_mode, output_dir )
[581]134
[432]135  END SUBROUTINE xios(is_defined_context_attr)
[581]136
[432]137  SUBROUTINE xios(is_defined_context_attr_hdl)  &
[1941]138    ( context_hdl, attached_mode, output_dir )
[581]139
[432]140    IMPLICIT NONE
141      TYPE(txios(context)) , INTENT(IN) :: context_hdl
[1941]142      LOGICAL, OPTIONAL, INTENT(OUT) :: attached_mode
143      LOGICAL(KIND=C_BOOL) :: attached_mode_tmp
[432]144      LOGICAL, OPTIONAL, INTENT(OUT) :: output_dir
145      LOGICAL(KIND=C_BOOL) :: output_dir_tmp
[581]146
[432]147      CALL xios(is_defined_context_attr_hdl_)  &
[1941]148      ( context_hdl, attached_mode, output_dir )
[581]149
[432]150  END SUBROUTINE xios(is_defined_context_attr_hdl)
[581]151
[432]152  SUBROUTINE xios(is_defined_context_attr_hdl_)   &
[1941]153    ( context_hdl, attached_mode_, output_dir_ )
[581]154
[432]155    IMPLICIT NONE
156      TYPE(txios(context)) , INTENT(IN) :: context_hdl
[1941]157      LOGICAL, OPTIONAL, INTENT(OUT) :: attached_mode_
158      LOGICAL(KIND=C_BOOL) :: attached_mode__tmp
[432]159      LOGICAL, OPTIONAL, INTENT(OUT) :: output_dir_
160      LOGICAL(KIND=C_BOOL) :: output_dir__tmp
[581]161
[1941]162      IF (PRESENT(attached_mode_)) THEN
163        attached_mode__tmp = cxios_is_defined_context_attached_mode &
164      (context_hdl%daddr)
165        attached_mode_ = attached_mode__tmp
166      ENDIF
167
[432]168      IF (PRESENT(output_dir_)) THEN
[966]169        output_dir__tmp = cxios_is_defined_context_output_dir &
170      (context_hdl%daddr)
[581]171        output_dir_ = output_dir__tmp
[432]172      ENDIF
[581]173
[432]174  END SUBROUTINE xios(is_defined_context_attr_hdl_)
[581]175
[326]176END MODULE icontext_attr
Note: See TracBrowser for help on using the repository browser.