source: XIOS/dev/dev_olga/src/interface/fortran_attr/iaxisgroup_attr.F90 @ 1280

Last change on this file since 1280 was 1158, checked in by oabramkina, 7 years ago

Two server levels: merging with trunk r1137.
There are bugs.
  • 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: 27.0 KB
RevLine 
[326]1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE iaxisgroup_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE iaxis
9  USE axisgroup_interface_attr
[581]10
[326]11CONTAINS
[581]12
[326]13  SUBROUTINE xios(set_axisgroup_attr)  &
[1158]14    ( axisgroup_id, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, label  &
15    , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit  &
16    , value )
[581]17
[326]18    IMPLICIT NONE
19      TYPE(txios(axisgroup))  :: axisgroup_hdl
20      CHARACTER(LEN=*), INTENT(IN) ::axisgroup_id
[546]21      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
[666]22      INTEGER  , OPTIONAL, INTENT(IN) :: begin
[609]23      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:,:)
[555]24      INTEGER  , OPTIONAL, INTENT(IN) :: data_begin
25      INTEGER  , OPTIONAL, INTENT(IN) :: data_index(:)
26      INTEGER  , OPTIONAL, INTENT(IN) :: data_n
[326]27      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
[817]28      INTEGER  , OPTIONAL, INTENT(IN) :: index(:)
[1158]29      CHARACTER(len=*) , OPTIONAL, INTENT(IN) :: label(:)
[326]30      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
[555]31      LOGICAL  , OPTIONAL, INTENT(IN) :: mask(:)
32      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
[666]33      INTEGER  , OPTIONAL, INTENT(IN) :: n
[779]34      INTEGER  , OPTIONAL, INTENT(IN) :: n_distributed_partition
[666]35      INTEGER  , OPTIONAL, INTENT(IN) :: n_glo
[326]36      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
[415]37      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive
[1158]38      INTEGER  , OPTIONAL, INTENT(IN) :: prec
[326]39      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
40      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
41      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:)
[581]42
[966]43      CALL xios(get_axisgroup_handle) &
44      (axisgroup_id,axisgroup_hdl)
[326]45      CALL xios(set_axisgroup_attr_hdl_)   &
[1158]46      ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, label  &
47      , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit  &
48      , value )
[581]49
[326]50  END SUBROUTINE xios(set_axisgroup_attr)
[581]51
[326]52  SUBROUTINE xios(set_axisgroup_attr_hdl)  &
[1158]53    ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, label  &
54    , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit  &
55    , value )
[581]56
[326]57    IMPLICIT NONE
58      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
[546]59      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
[666]60      INTEGER  , OPTIONAL, INTENT(IN) :: begin
[609]61      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:,:)
[555]62      INTEGER  , OPTIONAL, INTENT(IN) :: data_begin
63      INTEGER  , OPTIONAL, INTENT(IN) :: data_index(:)
64      INTEGER  , OPTIONAL, INTENT(IN) :: data_n
[326]65      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
[817]66      INTEGER  , OPTIONAL, INTENT(IN) :: index(:)
[1158]67      CHARACTER(len=*) , OPTIONAL, INTENT(IN) :: label(:)
[326]68      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
[555]69      LOGICAL  , OPTIONAL, INTENT(IN) :: mask(:)
70      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
[666]71      INTEGER  , OPTIONAL, INTENT(IN) :: n
[779]72      INTEGER  , OPTIONAL, INTENT(IN) :: n_distributed_partition
[666]73      INTEGER  , OPTIONAL, INTENT(IN) :: n_glo
[326]74      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
[415]75      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive
[1158]76      INTEGER  , OPTIONAL, INTENT(IN) :: prec
[326]77      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
78      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
79      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:)
[581]80
[326]81      CALL xios(set_axisgroup_attr_hdl_)  &
[1158]82      ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, label  &
83      , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit  &
84      , value )
[581]85
[326]86  END SUBROUTINE xios(set_axisgroup_attr_hdl)
[581]87
[326]88  SUBROUTINE xios(set_axisgroup_attr_hdl_)   &
[817]89    ( axisgroup_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, group_ref_, index_  &
[1158]90    , label_, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, prec_, standard_name_  &
[817]91    , unit_, value_ )
[581]92
[326]93    IMPLICIT NONE
94      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
[546]95      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_
[666]96      INTEGER  , OPTIONAL, INTENT(IN) :: begin_
[609]97      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_(:,:)
[555]98      INTEGER  , OPTIONAL, INTENT(IN) :: data_begin_
99      INTEGER  , OPTIONAL, INTENT(IN) :: data_index_(:)
100      INTEGER  , OPTIONAL, INTENT(IN) :: data_n_
[326]101      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
[817]102      INTEGER  , OPTIONAL, INTENT(IN) :: index_(:)
[1158]103      CHARACTER(len=*) , OPTIONAL, INTENT(IN) :: label_(:)
[326]104      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
[555]105      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_(:)
106      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:)
[666]107      INTEGER  , OPTIONAL, INTENT(IN) :: n_
[779]108      INTEGER  , OPTIONAL, INTENT(IN) :: n_distributed_partition_
[666]109      INTEGER  , OPTIONAL, INTENT(IN) :: n_glo_
[326]110      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
[415]111      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive_
[1158]112      INTEGER  , OPTIONAL, INTENT(IN) :: prec_
[326]113      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
114      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
115      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value_(:)
[581]116
[546]117      IF (PRESENT(axis_ref_)) THEN
[966]118        CALL cxios_set_axisgroup_axis_ref &
119      (axisgroup_hdl%daddr, axis_ref_, len(axis_ref_))
[546]120      ENDIF
[581]121
[666]122      IF (PRESENT(begin_)) THEN
[966]123        CALL cxios_set_axisgroup_begin &
124      (axisgroup_hdl%daddr, begin_)
[666]125      ENDIF
126
[609]127      IF (PRESENT(bounds_)) THEN
[966]128        CALL cxios_set_axisgroup_bounds &
129      (axisgroup_hdl%daddr, bounds_, SHAPE(bounds_))
[609]130      ENDIF
131
[555]132      IF (PRESENT(data_begin_)) THEN
[966]133        CALL cxios_set_axisgroup_data_begin &
134      (axisgroup_hdl%daddr, data_begin_)
[555]135      ENDIF
[581]136
[555]137      IF (PRESENT(data_index_)) THEN
[966]138        CALL cxios_set_axisgroup_data_index &
139      (axisgroup_hdl%daddr, data_index_, SHAPE(data_index_))
[555]140      ENDIF
[581]141
[555]142      IF (PRESENT(data_n_)) THEN
[966]143        CALL cxios_set_axisgroup_data_n &
144      (axisgroup_hdl%daddr, data_n_)
[555]145      ENDIF
[581]146
[326]147      IF (PRESENT(group_ref_)) THEN
[966]148        CALL cxios_set_axisgroup_group_ref &
149      (axisgroup_hdl%daddr, group_ref_, len(group_ref_))
[326]150      ENDIF
[581]151
[817]152      IF (PRESENT(index_)) THEN
[966]153        CALL cxios_set_axisgroup_index &
154      (axisgroup_hdl%daddr, index_, SHAPE(index_))
[817]155      ENDIF
156
[1158]157      IF (PRESENT(label_)) THEN
158        CALL cxios_set_axisgroup_label &
159      (axisgroup_hdl%daddr, label_, LEN(label_), LEN_TRIM(label_), SHAPE(label_))
160      ENDIF
161
[326]162      IF (PRESENT(long_name_)) THEN
[966]163        CALL cxios_set_axisgroup_long_name &
164      (axisgroup_hdl%daddr, long_name_, len(long_name_))
[326]165      ENDIF
[581]166
[555]167      IF (PRESENT(mask_)) THEN
[674]168        ALLOCATE(mask__tmp(SIZE(mask_,1)))
[581]169        mask__tmp = mask_
[966]170        CALL cxios_set_axisgroup_mask &
171      (axisgroup_hdl%daddr, mask__tmp, SHAPE(mask_))
[555]172      ENDIF
[581]173
[666]174      IF (PRESENT(n_)) THEN
[966]175        CALL cxios_set_axisgroup_n &
176      (axisgroup_hdl%daddr, n_)
[666]177      ENDIF
178
[779]179      IF (PRESENT(n_distributed_partition_)) THEN
[966]180        CALL cxios_set_axisgroup_n_distributed_partition &
181      (axisgroup_hdl%daddr, n_distributed_partition_)
[779]182      ENDIF
183
[666]184      IF (PRESENT(n_glo_)) THEN
[966]185        CALL cxios_set_axisgroup_n_glo &
186      (axisgroup_hdl%daddr, n_glo_)
[666]187      ENDIF
188
[326]189      IF (PRESENT(name_)) THEN
[966]190        CALL cxios_set_axisgroup_name &
191      (axisgroup_hdl%daddr, name_, len(name_))
[326]192      ENDIF
[581]193
[415]194      IF (PRESENT(positive_)) THEN
[966]195        CALL cxios_set_axisgroup_positive &
196      (axisgroup_hdl%daddr, positive_, len(positive_))
[415]197      ENDIF
[581]198
[1158]199      IF (PRESENT(prec_)) THEN
200        CALL cxios_set_axisgroup_prec &
201      (axisgroup_hdl%daddr, prec_)
202      ENDIF
203
[326]204      IF (PRESENT(standard_name_)) THEN
[966]205        CALL cxios_set_axisgroup_standard_name &
206      (axisgroup_hdl%daddr, standard_name_, len(standard_name_))
[326]207      ENDIF
[581]208
[326]209      IF (PRESENT(unit_)) THEN
[966]210        CALL cxios_set_axisgroup_unit &
211      (axisgroup_hdl%daddr, unit_, len(unit_))
[326]212      ENDIF
[581]213
[326]214      IF (PRESENT(value_)) THEN
[966]215        CALL cxios_set_axisgroup_value &
216      (axisgroup_hdl%daddr, value_, SHAPE(value_))
[326]217      ENDIF
[581]218
[326]219  END SUBROUTINE xios(set_axisgroup_attr_hdl_)
[581]220
[326]221  SUBROUTINE xios(get_axisgroup_attr)  &
[1158]222    ( axisgroup_id, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, label  &
223    , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit  &
224    , value )
[581]225
[326]226    IMPLICIT NONE
227      TYPE(txios(axisgroup))  :: axisgroup_hdl
228      CHARACTER(LEN=*), INTENT(IN) ::axisgroup_id
[546]229      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
[666]230      INTEGER  , OPTIONAL, INTENT(OUT) :: begin
[609]231      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:,:)
[555]232      INTEGER  , OPTIONAL, INTENT(OUT) :: data_begin
233      INTEGER  , OPTIONAL, INTENT(OUT) :: data_index(:)
234      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n
[326]235      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
[817]236      INTEGER  , OPTIONAL, INTENT(OUT) :: index(:)
[1158]237      CHARACTER(len=*) , OPTIONAL, INTENT(OUT) :: label(:)
[326]238      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
[555]239      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:)
240      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
[666]241      INTEGER  , OPTIONAL, INTENT(OUT) :: n
[779]242      INTEGER  , OPTIONAL, INTENT(OUT) :: n_distributed_partition
[666]243      INTEGER  , OPTIONAL, INTENT(OUT) :: n_glo
[326]244      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
[415]245      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive
[1158]246      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
[326]247      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
248      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
249      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:)
[581]250
[966]251      CALL xios(get_axisgroup_handle) &
252      (axisgroup_id,axisgroup_hdl)
[326]253      CALL xios(get_axisgroup_attr_hdl_)   &
[1158]254      ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, label  &
255      , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit  &
256      , value )
[581]257
[326]258  END SUBROUTINE xios(get_axisgroup_attr)
[581]259
[326]260  SUBROUTINE xios(get_axisgroup_attr_hdl)  &
[1158]261    ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, label  &
262    , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit  &
263    , value )
[581]264
[326]265    IMPLICIT NONE
266      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
[546]267      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
[666]268      INTEGER  , OPTIONAL, INTENT(OUT) :: begin
[609]269      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:,:)
[555]270      INTEGER  , OPTIONAL, INTENT(OUT) :: data_begin
271      INTEGER  , OPTIONAL, INTENT(OUT) :: data_index(:)
272      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n
[326]273      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
[817]274      INTEGER  , OPTIONAL, INTENT(OUT) :: index(:)
[1158]275      CHARACTER(len=*) , OPTIONAL, INTENT(OUT) :: label(:)
[326]276      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
[555]277      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:)
278      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
[666]279      INTEGER  , OPTIONAL, INTENT(OUT) :: n
[779]280      INTEGER  , OPTIONAL, INTENT(OUT) :: n_distributed_partition
[666]281      INTEGER  , OPTIONAL, INTENT(OUT) :: n_glo
[326]282      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
[415]283      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive
[1158]284      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
[326]285      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
286      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
287      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:)
[581]288
[326]289      CALL xios(get_axisgroup_attr_hdl_)  &
[1158]290      ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, label  &
291      , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit  &
292      , value )
[581]293
[326]294  END SUBROUTINE xios(get_axisgroup_attr_hdl)
[581]295
[326]296  SUBROUTINE xios(get_axisgroup_attr_hdl_)   &
[817]297    ( axisgroup_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, group_ref_, index_  &
[1158]298    , label_, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, prec_, standard_name_  &
[817]299    , unit_, value_ )
[581]300
[326]301    IMPLICIT NONE
302      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
[546]303      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_
[666]304      INTEGER  , OPTIONAL, INTENT(OUT) :: begin_
[609]305      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_(:,:)
[555]306      INTEGER  , OPTIONAL, INTENT(OUT) :: data_begin_
307      INTEGER  , OPTIONAL, INTENT(OUT) :: data_index_(:)
308      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n_
[326]309      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
[817]310      INTEGER  , OPTIONAL, INTENT(OUT) :: index_(:)
[1158]311      CHARACTER(len=*) , OPTIONAL, INTENT(OUT) :: label_(:)
[326]312      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
[555]313      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_(:)
314      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:)
[666]315      INTEGER  , OPTIONAL, INTENT(OUT) :: n_
[779]316      INTEGER  , OPTIONAL, INTENT(OUT) :: n_distributed_partition_
[666]317      INTEGER  , OPTIONAL, INTENT(OUT) :: n_glo_
[326]318      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
[415]319      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive_
[1158]320      INTEGER  , OPTIONAL, INTENT(OUT) :: prec_
[326]321      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
322      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
323      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value_(:)
[581]324
[546]325      IF (PRESENT(axis_ref_)) THEN
[966]326        CALL cxios_get_axisgroup_axis_ref &
327      (axisgroup_hdl%daddr, axis_ref_, len(axis_ref_))
[546]328      ENDIF
[581]329
[666]330      IF (PRESENT(begin_)) THEN
[966]331        CALL cxios_get_axisgroup_begin &
332      (axisgroup_hdl%daddr, begin_)
[666]333      ENDIF
334
[609]335      IF (PRESENT(bounds_)) THEN
[966]336        CALL cxios_get_axisgroup_bounds &
337      (axisgroup_hdl%daddr, bounds_, SHAPE(bounds_))
[609]338      ENDIF
339
[555]340      IF (PRESENT(data_begin_)) THEN
[966]341        CALL cxios_get_axisgroup_data_begin &
342      (axisgroup_hdl%daddr, data_begin_)
[555]343      ENDIF
[581]344
[555]345      IF (PRESENT(data_index_)) THEN
[966]346        CALL cxios_get_axisgroup_data_index &
347      (axisgroup_hdl%daddr, data_index_, SHAPE(data_index_))
[555]348      ENDIF
[581]349
[555]350      IF (PRESENT(data_n_)) THEN
[966]351        CALL cxios_get_axisgroup_data_n &
352      (axisgroup_hdl%daddr, data_n_)
[555]353      ENDIF
[581]354
[326]355      IF (PRESENT(group_ref_)) THEN
[966]356        CALL cxios_get_axisgroup_group_ref &
357      (axisgroup_hdl%daddr, group_ref_, len(group_ref_))
[326]358      ENDIF
[581]359
[817]360      IF (PRESENT(index_)) THEN
[966]361        CALL cxios_get_axisgroup_index &
362      (axisgroup_hdl%daddr, index_, SHAPE(index_))
[817]363      ENDIF
364
[1158]365      IF (PRESENT(label_)) THEN
366        CALL cxios_get_axisgroup_label &
367      (axisgroup_hdl%daddr, label_, LEN(label_), SHAPE(label_))
368      ENDIF
369
[326]370      IF (PRESENT(long_name_)) THEN
[966]371        CALL cxios_get_axisgroup_long_name &
372      (axisgroup_hdl%daddr, long_name_, len(long_name_))
[326]373      ENDIF
[581]374
[555]375      IF (PRESENT(mask_)) THEN
[674]376        ALLOCATE(mask__tmp(SIZE(mask_,1)))
[966]377        CALL cxios_get_axisgroup_mask &
378      (axisgroup_hdl%daddr, mask__tmp, SHAPE(mask_))
[581]379        mask_ = mask__tmp
[555]380      ENDIF
[581]381
[666]382      IF (PRESENT(n_)) THEN
[966]383        CALL cxios_get_axisgroup_n &
384      (axisgroup_hdl%daddr, n_)
[666]385      ENDIF
386
[779]387      IF (PRESENT(n_distributed_partition_)) THEN
[966]388        CALL cxios_get_axisgroup_n_distributed_partition &
389      (axisgroup_hdl%daddr, n_distributed_partition_)
[779]390      ENDIF
391
[666]392      IF (PRESENT(n_glo_)) THEN
[966]393        CALL cxios_get_axisgroup_n_glo &
394      (axisgroup_hdl%daddr, n_glo_)
[666]395      ENDIF
396
[326]397      IF (PRESENT(name_)) THEN
[966]398        CALL cxios_get_axisgroup_name &
399      (axisgroup_hdl%daddr, name_, len(name_))
[326]400      ENDIF
[581]401
[415]402      IF (PRESENT(positive_)) THEN
[966]403        CALL cxios_get_axisgroup_positive &
404      (axisgroup_hdl%daddr, positive_, len(positive_))
[415]405      ENDIF
[581]406
[1158]407      IF (PRESENT(prec_)) THEN
408        CALL cxios_get_axisgroup_prec &
409      (axisgroup_hdl%daddr, prec_)
410      ENDIF
411
[326]412      IF (PRESENT(standard_name_)) THEN
[966]413        CALL cxios_get_axisgroup_standard_name &
414      (axisgroup_hdl%daddr, standard_name_, len(standard_name_))
[326]415      ENDIF
[581]416
[326]417      IF (PRESENT(unit_)) THEN
[966]418        CALL cxios_get_axisgroup_unit &
419      (axisgroup_hdl%daddr, unit_, len(unit_))
[326]420      ENDIF
[581]421
[326]422      IF (PRESENT(value_)) THEN
[966]423        CALL cxios_get_axisgroup_value &
424      (axisgroup_hdl%daddr, value_, SHAPE(value_))
[326]425      ENDIF
[581]426
[326]427  END SUBROUTINE xios(get_axisgroup_attr_hdl_)
[581]428
[432]429  SUBROUTINE xios(is_defined_axisgroup_attr)  &
[1158]430    ( axisgroup_id, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, label  &
431    , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit  &
432    , value )
[581]433
[432]434    IMPLICIT NONE
435      TYPE(txios(axisgroup))  :: axisgroup_hdl
436      CHARACTER(LEN=*), INTENT(IN) ::axisgroup_id
[546]437      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
438      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
[666]439      LOGICAL, OPTIONAL, INTENT(OUT) :: begin
440      LOGICAL(KIND=C_BOOL) :: begin_tmp
[609]441      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds
442      LOGICAL(KIND=C_BOOL) :: bounds_tmp
[555]443      LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin
444      LOGICAL(KIND=C_BOOL) :: data_begin_tmp
445      LOGICAL, OPTIONAL, INTENT(OUT) :: data_index
446      LOGICAL(KIND=C_BOOL) :: data_index_tmp
447      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n
448      LOGICAL(KIND=C_BOOL) :: data_n_tmp
[432]449      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
450      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
[817]451      LOGICAL, OPTIONAL, INTENT(OUT) :: index
452      LOGICAL(KIND=C_BOOL) :: index_tmp
[1158]453      LOGICAL, OPTIONAL, INTENT(OUT) :: label
454      LOGICAL(KIND=C_BOOL) :: label_tmp
[432]455      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
456      LOGICAL(KIND=C_BOOL) :: long_name_tmp
[555]457      LOGICAL, OPTIONAL, INTENT(OUT) :: mask
458      LOGICAL(KIND=C_BOOL) :: mask_tmp
[666]459      LOGICAL, OPTIONAL, INTENT(OUT) :: n
460      LOGICAL(KIND=C_BOOL) :: n_tmp
[779]461      LOGICAL, OPTIONAL, INTENT(OUT) :: n_distributed_partition
462      LOGICAL(KIND=C_BOOL) :: n_distributed_partition_tmp
[666]463      LOGICAL, OPTIONAL, INTENT(OUT) :: n_glo
464      LOGICAL(KIND=C_BOOL) :: n_glo_tmp
[432]465      LOGICAL, OPTIONAL, INTENT(OUT) :: name
466      LOGICAL(KIND=C_BOOL) :: name_tmp
467      LOGICAL, OPTIONAL, INTENT(OUT) :: positive
468      LOGICAL(KIND=C_BOOL) :: positive_tmp
[1158]469      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
470      LOGICAL(KIND=C_BOOL) :: prec_tmp
[432]471      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
472      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
473      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
474      LOGICAL(KIND=C_BOOL) :: unit_tmp
475      LOGICAL, OPTIONAL, INTENT(OUT) :: value
476      LOGICAL(KIND=C_BOOL) :: value_tmp
[581]477
[966]478      CALL xios(get_axisgroup_handle) &
479      (axisgroup_id,axisgroup_hdl)
[432]480      CALL xios(is_defined_axisgroup_attr_hdl_)   &
[1158]481      ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, label  &
482      , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit  &
483      , value )
[581]484
[432]485  END SUBROUTINE xios(is_defined_axisgroup_attr)
[581]486
[432]487  SUBROUTINE xios(is_defined_axisgroup_attr_hdl)  &
[1158]488    ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, label  &
489    , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit  &
490    , value )
[581]491
[432]492    IMPLICIT NONE
493      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
[546]494      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
495      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
[666]496      LOGICAL, OPTIONAL, INTENT(OUT) :: begin
497      LOGICAL(KIND=C_BOOL) :: begin_tmp
[609]498      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds
499      LOGICAL(KIND=C_BOOL) :: bounds_tmp
[555]500      LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin
501      LOGICAL(KIND=C_BOOL) :: data_begin_tmp
502      LOGICAL, OPTIONAL, INTENT(OUT) :: data_index
503      LOGICAL(KIND=C_BOOL) :: data_index_tmp
504      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n
505      LOGICAL(KIND=C_BOOL) :: data_n_tmp
[432]506      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
507      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
[817]508      LOGICAL, OPTIONAL, INTENT(OUT) :: index
509      LOGICAL(KIND=C_BOOL) :: index_tmp
[1158]510      LOGICAL, OPTIONAL, INTENT(OUT) :: label
511      LOGICAL(KIND=C_BOOL) :: label_tmp
[432]512      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
513      LOGICAL(KIND=C_BOOL) :: long_name_tmp
[555]514      LOGICAL, OPTIONAL, INTENT(OUT) :: mask
515      LOGICAL(KIND=C_BOOL) :: mask_tmp
[666]516      LOGICAL, OPTIONAL, INTENT(OUT) :: n
517      LOGICAL(KIND=C_BOOL) :: n_tmp
[779]518      LOGICAL, OPTIONAL, INTENT(OUT) :: n_distributed_partition
519      LOGICAL(KIND=C_BOOL) :: n_distributed_partition_tmp
[666]520      LOGICAL, OPTIONAL, INTENT(OUT) :: n_glo
521      LOGICAL(KIND=C_BOOL) :: n_glo_tmp
[432]522      LOGICAL, OPTIONAL, INTENT(OUT) :: name
523      LOGICAL(KIND=C_BOOL) :: name_tmp
524      LOGICAL, OPTIONAL, INTENT(OUT) :: positive
525      LOGICAL(KIND=C_BOOL) :: positive_tmp
[1158]526      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
527      LOGICAL(KIND=C_BOOL) :: prec_tmp
[432]528      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
529      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
530      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
531      LOGICAL(KIND=C_BOOL) :: unit_tmp
532      LOGICAL, OPTIONAL, INTENT(OUT) :: value
533      LOGICAL(KIND=C_BOOL) :: value_tmp
[581]534
[432]535      CALL xios(is_defined_axisgroup_attr_hdl_)  &
[1158]536      ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, label  &
537      , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit  &
538      , value )
[581]539
[432]540  END SUBROUTINE xios(is_defined_axisgroup_attr_hdl)
[581]541
[432]542  SUBROUTINE xios(is_defined_axisgroup_attr_hdl_)   &
[817]543    ( axisgroup_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, group_ref_, index_  &
[1158]544    , label_, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, prec_, standard_name_  &
[817]545    , unit_, value_ )
[581]546
[432]547    IMPLICIT NONE
548      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
[546]549      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_
550      LOGICAL(KIND=C_BOOL) :: axis_ref__tmp
[666]551      LOGICAL, OPTIONAL, INTENT(OUT) :: begin_
552      LOGICAL(KIND=C_BOOL) :: begin__tmp
[609]553      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_
554      LOGICAL(KIND=C_BOOL) :: bounds__tmp
[555]555      LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin_
556      LOGICAL(KIND=C_BOOL) :: data_begin__tmp
557      LOGICAL, OPTIONAL, INTENT(OUT) :: data_index_
558      LOGICAL(KIND=C_BOOL) :: data_index__tmp
559      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_
560      LOGICAL(KIND=C_BOOL) :: data_n__tmp
[432]561      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
562      LOGICAL(KIND=C_BOOL) :: group_ref__tmp
[817]563      LOGICAL, OPTIONAL, INTENT(OUT) :: index_
564      LOGICAL(KIND=C_BOOL) :: index__tmp
[1158]565      LOGICAL, OPTIONAL, INTENT(OUT) :: label_
566      LOGICAL(KIND=C_BOOL) :: label__tmp
[432]567      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
568      LOGICAL(KIND=C_BOOL) :: long_name__tmp
[555]569      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_
570      LOGICAL(KIND=C_BOOL) :: mask__tmp
[666]571      LOGICAL, OPTIONAL, INTENT(OUT) :: n_
572      LOGICAL(KIND=C_BOOL) :: n__tmp
[779]573      LOGICAL, OPTIONAL, INTENT(OUT) :: n_distributed_partition_
574      LOGICAL(KIND=C_BOOL) :: n_distributed_partition__tmp
[666]575      LOGICAL, OPTIONAL, INTENT(OUT) :: n_glo_
576      LOGICAL(KIND=C_BOOL) :: n_glo__tmp
[432]577      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
578      LOGICAL(KIND=C_BOOL) :: name__tmp
579      LOGICAL, OPTIONAL, INTENT(OUT) :: positive_
580      LOGICAL(KIND=C_BOOL) :: positive__tmp
[1158]581      LOGICAL, OPTIONAL, INTENT(OUT) :: prec_
582      LOGICAL(KIND=C_BOOL) :: prec__tmp
[432]583      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
584      LOGICAL(KIND=C_BOOL) :: standard_name__tmp
585      LOGICAL, OPTIONAL, INTENT(OUT) :: unit_
586      LOGICAL(KIND=C_BOOL) :: unit__tmp
587      LOGICAL, OPTIONAL, INTENT(OUT) :: value_
588      LOGICAL(KIND=C_BOOL) :: value__tmp
[581]589
[546]590      IF (PRESENT(axis_ref_)) THEN
[966]591        axis_ref__tmp = cxios_is_defined_axisgroup_axis_ref &
592      (axisgroup_hdl%daddr)
[581]593        axis_ref_ = axis_ref__tmp
[546]594      ENDIF
[581]595
[666]596      IF (PRESENT(begin_)) THEN
[966]597        begin__tmp = cxios_is_defined_axisgroup_begin &
598      (axisgroup_hdl%daddr)
[666]599        begin_ = begin__tmp
600      ENDIF
601
[609]602      IF (PRESENT(bounds_)) THEN
[966]603        bounds__tmp = cxios_is_defined_axisgroup_bounds &
604      (axisgroup_hdl%daddr)
[609]605        bounds_ = bounds__tmp
606      ENDIF
607
[555]608      IF (PRESENT(data_begin_)) THEN
[966]609        data_begin__tmp = cxios_is_defined_axisgroup_data_begin &
610      (axisgroup_hdl%daddr)
[581]611        data_begin_ = data_begin__tmp
[555]612      ENDIF
[581]613
[555]614      IF (PRESENT(data_index_)) THEN
[966]615        data_index__tmp = cxios_is_defined_axisgroup_data_index &
616      (axisgroup_hdl%daddr)
[581]617        data_index_ = data_index__tmp
[555]618      ENDIF
[581]619
[555]620      IF (PRESENT(data_n_)) THEN
[966]621        data_n__tmp = cxios_is_defined_axisgroup_data_n &
622      (axisgroup_hdl%daddr)
[581]623        data_n_ = data_n__tmp
[555]624      ENDIF
[581]625
[432]626      IF (PRESENT(group_ref_)) THEN
[966]627        group_ref__tmp = cxios_is_defined_axisgroup_group_ref &
628      (axisgroup_hdl%daddr)
[581]629        group_ref_ = group_ref__tmp
[432]630      ENDIF
[581]631
[817]632      IF (PRESENT(index_)) THEN
[966]633        index__tmp = cxios_is_defined_axisgroup_index &
634      (axisgroup_hdl%daddr)
[817]635        index_ = index__tmp
636      ENDIF
637
[1158]638      IF (PRESENT(label_)) THEN
639        label__tmp = cxios_is_defined_axisgroup_label &
640      (axisgroup_hdl%daddr)
641        label_ = label__tmp
642      ENDIF
643
[432]644      IF (PRESENT(long_name_)) THEN
[966]645        long_name__tmp = cxios_is_defined_axisgroup_long_name &
646      (axisgroup_hdl%daddr)
[581]647        long_name_ = long_name__tmp
[432]648      ENDIF
[581]649
[555]650      IF (PRESENT(mask_)) THEN
[966]651        mask__tmp = cxios_is_defined_axisgroup_mask &
652      (axisgroup_hdl%daddr)
[581]653        mask_ = mask__tmp
[555]654      ENDIF
[581]655
[666]656      IF (PRESENT(n_)) THEN
[966]657        n__tmp = cxios_is_defined_axisgroup_n &
658      (axisgroup_hdl%daddr)
[666]659        n_ = n__tmp
660      ENDIF
661
[779]662      IF (PRESENT(n_distributed_partition_)) THEN
[966]663        n_distributed_partition__tmp = cxios_is_defined_axisgroup_n_distributed_partition &
664      (axisgroup_hdl%daddr)
[779]665        n_distributed_partition_ = n_distributed_partition__tmp
666      ENDIF
667
[666]668      IF (PRESENT(n_glo_)) THEN
[966]669        n_glo__tmp = cxios_is_defined_axisgroup_n_glo &
670      (axisgroup_hdl%daddr)
[666]671        n_glo_ = n_glo__tmp
672      ENDIF
673
[432]674      IF (PRESENT(name_)) THEN
[966]675        name__tmp = cxios_is_defined_axisgroup_name &
676      (axisgroup_hdl%daddr)
[581]677        name_ = name__tmp
[432]678      ENDIF
[581]679
[432]680      IF (PRESENT(positive_)) THEN
[966]681        positive__tmp = cxios_is_defined_axisgroup_positive &
682      (axisgroup_hdl%daddr)
[581]683        positive_ = positive__tmp
[432]684      ENDIF
[581]685
[1158]686      IF (PRESENT(prec_)) THEN
687        prec__tmp = cxios_is_defined_axisgroup_prec &
688      (axisgroup_hdl%daddr)
689        prec_ = prec__tmp
690      ENDIF
691
[432]692      IF (PRESENT(standard_name_)) THEN
[966]693        standard_name__tmp = cxios_is_defined_axisgroup_standard_name &
694      (axisgroup_hdl%daddr)
[581]695        standard_name_ = standard_name__tmp
[432]696      ENDIF
[581]697
[432]698      IF (PRESENT(unit_)) THEN
[966]699        unit__tmp = cxios_is_defined_axisgroup_unit &
700      (axisgroup_hdl%daddr)
[581]701        unit_ = unit__tmp
[432]702      ENDIF
[581]703
[432]704      IF (PRESENT(value_)) THEN
[966]705        value__tmp = cxios_is_defined_axisgroup_value &
706      (axisgroup_hdl%daddr)
[581]707        value_ = value__tmp
[432]708      ENDIF
[581]709
[432]710  END SUBROUTINE xios(is_defined_axisgroup_attr_hdl_)
[581]711
[326]712END MODULE iaxisgroup_attr
Note: See TracBrowser for help on using the repository browser.