Ignore:
Timestamp:
02/11/15 16:47:47 (9 years ago)
Author:
mhnguyen
Message:

Updating some Fortran interface files

+) Update some Fortran interface files generated by generate_fortran_interface.exe

Test
+) No test

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS/trunk/src/interface/fortran_attr/iaxisgroup_attr.F90

    r546 r555  
    1212   
    1313  SUBROUTINE xios(set_axisgroup_attr)  & 
    14     ( axisgroup_id, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value  & 
    15     , zoom_begin, zoom_end, zoom_size ) 
     14    ( axisgroup_id, axis_ref, data_begin, data_index, data_n, group_ref, ibegin, long_name, mask  & 
     15    , name, ni, positive, size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size ) 
    1616     
    1717    IMPLICIT NONE 
    … …  
    1919      CHARACTER(LEN=*), INTENT(IN) ::axisgroup_id 
    2020      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref 
     21      INTEGER  , OPTIONAL, INTENT(IN) :: data_begin 
     22      INTEGER  , OPTIONAL, INTENT(IN) :: data_index(:) 
     23      INTEGER  , OPTIONAL, INTENT(IN) :: data_n 
    2124      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref 
     25      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin 
    2226      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name 
     27      LOGICAL  , OPTIONAL, INTENT(IN) :: mask(:) 
     28      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:) 
    2329      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 
     30      INTEGER  , OPTIONAL, INTENT(IN) :: ni 
    2431      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive 
    2532      INTEGER  , OPTIONAL, INTENT(IN) :: size 
    … …  
    3340      CALL xios(get_axisgroup_handle)(axisgroup_id,axisgroup_hdl) 
    3441      CALL xios(set_axisgroup_attr_hdl_)   & 
    35       ( axisgroup_hdl, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value  & 
    36       , zoom_begin, zoom_end, zoom_size ) 
     42      ( axisgroup_hdl, axis_ref, data_begin, data_index, data_n, group_ref, ibegin, long_name, mask  & 
     43      , name, ni, positive, size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size ) 
    3744     
    3845  END SUBROUTINE xios(set_axisgroup_attr) 
    3946   
    4047  SUBROUTINE xios(set_axisgroup_attr_hdl)  & 
    41     ( axisgroup_hdl, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value  & 
    42     , zoom_begin, zoom_end, zoom_size ) 
     48    ( axisgroup_hdl, axis_ref, data_begin, data_index, data_n, group_ref, ibegin, long_name, mask  & 
     49    , name, ni, positive, size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size ) 
    4350     
    4451    IMPLICIT NONE 
    4552      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl 
    4653      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref 
     54      INTEGER  , OPTIONAL, INTENT(IN) :: data_begin 
     55      INTEGER  , OPTIONAL, INTENT(IN) :: data_index(:) 
     56      INTEGER  , OPTIONAL, INTENT(IN) :: data_n 
    4757      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref 
     58      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin 
    4859      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name 
     60      LOGICAL  , OPTIONAL, INTENT(IN) :: mask(:) 
     61      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:) 
    4962      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 
     63      INTEGER  , OPTIONAL, INTENT(IN) :: ni 
    5064      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive 
    5165      INTEGER  , OPTIONAL, INTENT(IN) :: size 
    … …  
    5872       
    5973      CALL xios(set_axisgroup_attr_hdl_)  & 
    60       ( axisgroup_hdl, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value  & 
    61       , zoom_begin, zoom_end, zoom_size ) 
     74      ( axisgroup_hdl, axis_ref, data_begin, data_index, data_n, group_ref, ibegin, long_name, mask  & 
     75      , name, ni, positive, size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size ) 
    6276     
    6377  END SUBROUTINE xios(set_axisgroup_attr_hdl) 
    6478   
    6579  SUBROUTINE xios(set_axisgroup_attr_hdl_)   & 
    66     ( axisgroup_hdl, axis_ref_, group_ref_, long_name_, name_, positive_, size_, standard_name_  & 
    67     , unit_, value_, zoom_begin_, zoom_end_, zoom_size_ ) 
     80    ( axisgroup_hdl, axis_ref_, data_begin_, data_index_, data_n_, group_ref_, ibegin_, long_name_  & 
     81    , mask_, name_, ni_, positive_, size_, standard_name_, unit_, value_, zoom_begin_, zoom_end_  & 
     82    , zoom_size_ ) 
    6883     
    6984    IMPLICIT NONE 
    7085      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl 
    7186      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_ 
     87      INTEGER  , OPTIONAL, INTENT(IN) :: data_begin_ 
     88      INTEGER  , OPTIONAL, INTENT(IN) :: data_index_(:) 
     89      INTEGER  , OPTIONAL, INTENT(IN) :: data_n_ 
    7290      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_ 
     91      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin_ 
    7392      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_ 
     93      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_(:) 
     94      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:) 
    7495      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_ 
     96      INTEGER  , OPTIONAL, INTENT(IN) :: ni_ 
    7597      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive_ 
    7698      INTEGER  , OPTIONAL, INTENT(IN) :: size_ 
    … …  
    86108      ENDIF 
    87109       
     110      IF (PRESENT(data_begin_)) THEN 
     111        CALL cxios_set_axisgroup_data_begin(axisgroup_hdl%daddr, data_begin_) 
     112      ENDIF 
     113       
     114      IF (PRESENT(data_index_)) THEN 
     115        CALL cxios_set_axisgroup_data_index(axisgroup_hdl%daddr, data_index_,size(data_index_,1)) 
     116      ENDIF 
     117       
     118      IF (PRESENT(data_n_)) THEN 
     119        CALL cxios_set_axisgroup_data_n(axisgroup_hdl%daddr, data_n_) 
     120      ENDIF 
     121       
    88122      IF (PRESENT(group_ref_)) THEN 
    89123        CALL cxios_set_axisgroup_group_ref(axisgroup_hdl%daddr, group_ref_, len(group_ref_)) 
    90124      ENDIF 
    91125       
     126      IF (PRESENT(ibegin_)) THEN 
     127        CALL cxios_set_axisgroup_ibegin(axisgroup_hdl%daddr, ibegin_) 
     128      ENDIF 
     129       
    92130      IF (PRESENT(long_name_)) THEN 
    93131        CALL cxios_set_axisgroup_long_name(axisgroup_hdl%daddr, long_name_, len(long_name_)) 
    94132      ENDIF 
    95133       
     134      IF (PRESENT(mask_)) THEN 
     135        ALLOCATE(mask__tmp(size(mask_,1))) 
     136        mask__tmp=mask_ 
     137        CALL cxios_set_axisgroup_mask(axisgroup_hdl%daddr, mask__tmp,size(mask_,1)) 
     138      ENDIF 
     139       
    96140      IF (PRESENT(name_)) THEN 
    97141        CALL cxios_set_axisgroup_name(axisgroup_hdl%daddr, name_, len(name_)) 
    98142      ENDIF 
    99143       
     144      IF (PRESENT(ni_)) THEN 
     145        CALL cxios_set_axisgroup_ni(axisgroup_hdl%daddr, ni_) 
     146      ENDIF 
     147       
    100148      IF (PRESENT(positive_)) THEN 
    101149        CALL cxios_set_axisgroup_positive(axisgroup_hdl%daddr, positive_, len(positive_)) 
    … …  
    135183   
    136184  SUBROUTINE xios(get_axisgroup_attr)  & 
    137     ( axisgroup_id, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value  & 
    138     , zoom_begin, zoom_end, zoom_size ) 
     185    ( axisgroup_id, axis_ref, data_begin, data_index, data_n, group_ref, ibegin, long_name, mask  & 
     186    , name, ni, positive, size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size ) 
    139187     
    140188    IMPLICIT NONE 
    … …  
    142190      CHARACTER(LEN=*), INTENT(IN) ::axisgroup_id 
    143191      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref 
     192      INTEGER  , OPTIONAL, INTENT(OUT) :: data_begin 
     193      INTEGER  , OPTIONAL, INTENT(OUT) :: data_index(:) 
     194      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n 
    144195      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref 
     196      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin 
    145197      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name 
     198      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:) 
     199      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:) 
    146200      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 
     201      INTEGER  , OPTIONAL, INTENT(OUT) :: ni 
    147202      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive 
    148203      INTEGER  , OPTIONAL, INTENT(OUT) :: size 
    … …  
    156211      CALL xios(get_axisgroup_handle)(axisgroup_id,axisgroup_hdl) 
    157212      CALL xios(get_axisgroup_attr_hdl_)   & 
    158       ( axisgroup_hdl, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value  & 
    159       , zoom_begin, zoom_end, zoom_size ) 
     213      ( axisgroup_hdl, axis_ref, data_begin, data_index, data_n, group_ref, ibegin, long_name, mask  & 
     214      , name, ni, positive, size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size ) 
    160215     
    161216  END SUBROUTINE xios(get_axisgroup_attr) 
    162217   
    163218  SUBROUTINE xios(get_axisgroup_attr_hdl)  & 
    164     ( axisgroup_hdl, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value  & 
    165     , zoom_begin, zoom_end, zoom_size ) 
     219    ( axisgroup_hdl, axis_ref, data_begin, data_index, data_n, group_ref, ibegin, long_name, mask  & 
     220    , name, ni, positive, size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size ) 
    166221     
    167222    IMPLICIT NONE 
    168223      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl 
    169224      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref 
     225      INTEGER  , OPTIONAL, INTENT(OUT) :: data_begin 
     226      INTEGER  , OPTIONAL, INTENT(OUT) :: data_index(:) 
     227      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n 
    170228      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref 
     229      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin 
    171230      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name 
     231      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:) 
     232      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:) 
    172233      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 
     234      INTEGER  , OPTIONAL, INTENT(OUT) :: ni 
    173235      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive 
    174236      INTEGER  , OPTIONAL, INTENT(OUT) :: size 
    … …  
    181243       
    182244      CALL xios(get_axisgroup_attr_hdl_)  & 
    183       ( axisgroup_hdl, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value  & 
    184       , zoom_begin, zoom_end, zoom_size ) 
     245      ( axisgroup_hdl, axis_ref, data_begin, data_index, data_n, group_ref, ibegin, long_name, mask  & 
     246      , name, ni, positive, size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size ) 
    185247     
    186248  END SUBROUTINE xios(get_axisgroup_attr_hdl) 
    187249   
    188250  SUBROUTINE xios(get_axisgroup_attr_hdl_)   & 
    189     ( axisgroup_hdl, axis_ref_, group_ref_, long_name_, name_, positive_, size_, standard_name_  & 
    190     , unit_, value_, zoom_begin_, zoom_end_, zoom_size_ ) 
     251    ( axisgroup_hdl, axis_ref_, data_begin_, data_index_, data_n_, group_ref_, ibegin_, long_name_  & 
     252    , mask_, name_, ni_, positive_, size_, standard_name_, unit_, value_, zoom_begin_, zoom_end_  & 
     253    , zoom_size_ ) 
    191254     
    192255    IMPLICIT NONE 
    193256      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl 
    194257      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_ 
     258      INTEGER  , OPTIONAL, INTENT(OUT) :: data_begin_ 
     259      INTEGER  , OPTIONAL, INTENT(OUT) :: data_index_(:) 
     260      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n_ 
    195261      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_ 
     262      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin_ 
    196263      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_ 
     264      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_(:) 
     265      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:) 
    197266      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_ 
     267      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_ 
    198268      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive_ 
    199269      INTEGER  , OPTIONAL, INTENT(OUT) :: size_ 
    … …  
    209279      ENDIF 
    210280       
     281      IF (PRESENT(data_begin_)) THEN 
     282        CALL cxios_get_axisgroup_data_begin(axisgroup_hdl%daddr, data_begin_) 
     283      ENDIF 
     284       
     285      IF (PRESENT(data_index_)) THEN 
     286        CALL cxios_get_axisgroup_data_index(axisgroup_hdl%daddr, data_index_,size(data_index_,1)) 
     287      ENDIF 
     288       
     289      IF (PRESENT(data_n_)) THEN 
     290        CALL cxios_get_axisgroup_data_n(axisgroup_hdl%daddr, data_n_) 
     291      ENDIF 
     292       
    211293      IF (PRESENT(group_ref_)) THEN 
    212294        CALL cxios_get_axisgroup_group_ref(axisgroup_hdl%daddr, group_ref_, len(group_ref_)) 
    213295      ENDIF 
    214296       
     297      IF (PRESENT(ibegin_)) THEN 
     298        CALL cxios_get_axisgroup_ibegin(axisgroup_hdl%daddr, ibegin_) 
     299      ENDIF 
     300       
    215301      IF (PRESENT(long_name_)) THEN 
    216302        CALL cxios_get_axisgroup_long_name(axisgroup_hdl%daddr, long_name_, len(long_name_)) 
    217303      ENDIF 
    218304       
     305      IF (PRESENT(mask_)) THEN 
     306        ALLOCATE(mask__tmp(size(mask_,1))) 
     307        CALL cxios_get_axisgroup_mask(axisgroup_hdl%daddr, mask__tmp,size(mask_,1)) 
     308        mask_=mask__tmp_ 
     309      ENDIF 
     310       
    219311      IF (PRESENT(name_)) THEN 
    220312        CALL cxios_get_axisgroup_name(axisgroup_hdl%daddr, name_, len(name_)) 
    221313      ENDIF 
    222314       
     315      IF (PRESENT(ni_)) THEN 
     316        CALL cxios_get_axisgroup_ni(axisgroup_hdl%daddr, ni_) 
     317      ENDIF 
     318       
    223319      IF (PRESENT(positive_)) THEN 
    224320        CALL cxios_get_axisgroup_positive(axisgroup_hdl%daddr, positive_, len(positive_)) 
    … …  
    258354   
    259355  SUBROUTINE xios(is_defined_axisgroup_attr)  & 
    260     ( axisgroup_id, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value  & 
    261     , zoom_begin, zoom_end, zoom_size ) 
     356    ( axisgroup_id, axis_ref, data_begin, data_index, data_n, group_ref, ibegin, long_name, mask  & 
     357    , name, ni, positive, size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size ) 
    262358     
    263359    IMPLICIT NONE 
    … …  
    266362      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 
    267363      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 
     364      LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin 
     365      LOGICAL(KIND=C_BOOL) :: data_begin_tmp 
     366      LOGICAL, OPTIONAL, INTENT(OUT) :: data_index 
     367      LOGICAL(KIND=C_BOOL) :: data_index_tmp 
     368      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n 
     369      LOGICAL(KIND=C_BOOL) :: data_n_tmp 
    268370      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 
    269371      LOGICAL(KIND=C_BOOL) :: group_ref_tmp 
     372      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin 
     373      LOGICAL(KIND=C_BOOL) :: ibegin_tmp 
    270374      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 
    271375      LOGICAL(KIND=C_BOOL) :: long_name_tmp 
     376      LOGICAL, OPTIONAL, INTENT(OUT) :: mask 
     377      LOGICAL(KIND=C_BOOL) :: mask_tmp 
    272378      LOGICAL, OPTIONAL, INTENT(OUT) :: name 
    273379      LOGICAL(KIND=C_BOOL) :: name_tmp 
     380      LOGICAL, OPTIONAL, INTENT(OUT) :: ni 
     381      LOGICAL(KIND=C_BOOL) :: ni_tmp 
    274382      LOGICAL, OPTIONAL, INTENT(OUT) :: positive 
    275383      LOGICAL(KIND=C_BOOL) :: positive_tmp 
    … …  
    291399      CALL xios(get_axisgroup_handle)(axisgroup_id,axisgroup_hdl) 
    292400      CALL xios(is_defined_axisgroup_attr_hdl_)   & 
    293       ( axisgroup_hdl, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value  & 
    294       , zoom_begin, zoom_end, zoom_size ) 
     401      ( axisgroup_hdl, axis_ref, data_begin, data_index, data_n, group_ref, ibegin, long_name, mask  & 
     402      , name, ni, positive, size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size ) 
    295403     
    296404  END SUBROUTINE xios(is_defined_axisgroup_attr) 
    297405   
    298406  SUBROUTINE xios(is_defined_axisgroup_attr_hdl)  & 
    299     ( axisgroup_hdl, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value  & 
    300     , zoom_begin, zoom_end, zoom_size ) 
     407    ( axisgroup_hdl, axis_ref, data_begin, data_index, data_n, group_ref, ibegin, long_name, mask  & 
     408    , name, ni, positive, size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size ) 
    301409     
    302410    IMPLICIT NONE 
    … …  
    304412      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 
    305413      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 
     414      LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin 
     415      LOGICAL(KIND=C_BOOL) :: data_begin_tmp 
     416      LOGICAL, OPTIONAL, INTENT(OUT) :: data_index 
     417      LOGICAL(KIND=C_BOOL) :: data_index_tmp 
     418      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n 
     419      LOGICAL(KIND=C_BOOL) :: data_n_tmp 
    306420      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 
    307421      LOGICAL(KIND=C_BOOL) :: group_ref_tmp 
     422      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin 
     423      LOGICAL(KIND=C_BOOL) :: ibegin_tmp 
    308424      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 
    309425      LOGICAL(KIND=C_BOOL) :: long_name_tmp 
     426      LOGICAL, OPTIONAL, INTENT(OUT) :: mask 
     427      LOGICAL(KIND=C_BOOL) :: mask_tmp 
    310428      LOGICAL, OPTIONAL, INTENT(OUT) :: name 
    311429      LOGICAL(KIND=C_BOOL) :: name_tmp 
     430      LOGICAL, OPTIONAL, INTENT(OUT) :: ni 
     431      LOGICAL(KIND=C_BOOL) :: ni_tmp 
    312432      LOGICAL, OPTIONAL, INTENT(OUT) :: positive 
    313433      LOGICAL(KIND=C_BOOL) :: positive_tmp 
    … …  
    328448       
    329449      CALL xios(is_defined_axisgroup_attr_hdl_)  & 
    330       ( axisgroup_hdl, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value  & 
    331       , zoom_begin, zoom_end, zoom_size ) 
     450      ( axisgroup_hdl, axis_ref, data_begin, data_index, data_n, group_ref, ibegin, long_name, mask  & 
     451      , name, ni, positive, size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size ) 
    332452     
    333453  END SUBROUTINE xios(is_defined_axisgroup_attr_hdl) 
    334454   
    335455  SUBROUTINE xios(is_defined_axisgroup_attr_hdl_)   & 
    336     ( axisgroup_hdl, axis_ref_, group_ref_, long_name_, name_, positive_, size_, standard_name_  & 
    337     , unit_, value_, zoom_begin_, zoom_end_, zoom_size_ ) 
     456    ( axisgroup_hdl, axis_ref_, data_begin_, data_index_, data_n_, group_ref_, ibegin_, long_name_  & 
     457    , mask_, name_, ni_, positive_, size_, standard_name_, unit_, value_, zoom_begin_, zoom_end_  & 
     458    , zoom_size_ ) 
    338459     
    339460    IMPLICIT NONE 
    … …  
    341462      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_ 
    342463      LOGICAL(KIND=C_BOOL) :: axis_ref__tmp 
     464      LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin_ 
     465      LOGICAL(KIND=C_BOOL) :: data_begin__tmp 
     466      LOGICAL, OPTIONAL, INTENT(OUT) :: data_index_ 
     467      LOGICAL(KIND=C_BOOL) :: data_index__tmp 
     468      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_ 
     469      LOGICAL(KIND=C_BOOL) :: data_n__tmp 
    343470      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_ 
    344471      LOGICAL(KIND=C_BOOL) :: group_ref__tmp 
     472      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin_ 
     473      LOGICAL(KIND=C_BOOL) :: ibegin__tmp 
    345474      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_ 
    346475      LOGICAL(KIND=C_BOOL) :: long_name__tmp 
     476      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_ 
     477      LOGICAL(KIND=C_BOOL) :: mask__tmp 
    347478      LOGICAL, OPTIONAL, INTENT(OUT) :: name_ 
    348479      LOGICAL(KIND=C_BOOL) :: name__tmp 
     480      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_ 
     481      LOGICAL(KIND=C_BOOL) :: ni__tmp 
    349482      LOGICAL, OPTIONAL, INTENT(OUT) :: positive_ 
    350483      LOGICAL(KIND=C_BOOL) :: positive__tmp 
    … …  
    369502      ENDIF 
    370503       
     504      IF (PRESENT(data_begin_)) THEN 
     505        data_begin__tmp=cxios_is_defined_axisgroup_data_begin(axisgroup_hdl%daddr) 
     506        data_begin_=data_begin__tmp 
     507      ENDIF 
     508       
     509      IF (PRESENT(data_index_)) THEN 
     510        data_index__tmp=cxios_is_defined_axisgroup_data_index(axisgroup_hdl%daddr) 
     511        data_index_=data_index__tmp 
     512      ENDIF 
     513       
     514      IF (PRESENT(data_n_)) THEN 
     515        data_n__tmp=cxios_is_defined_axisgroup_data_n(axisgroup_hdl%daddr) 
     516        data_n_=data_n__tmp 
     517      ENDIF 
     518       
    371519      IF (PRESENT(group_ref_)) THEN 
    372520        group_ref__tmp=cxios_is_defined_axisgroup_group_ref(axisgroup_hdl%daddr) 
    … …  
    374522      ENDIF 
    375523       
     524      IF (PRESENT(ibegin_)) THEN 
     525        ibegin__tmp=cxios_is_defined_axisgroup_ibegin(axisgroup_hdl%daddr) 
     526        ibegin_=ibegin__tmp 
     527      ENDIF 
     528       
    376529      IF (PRESENT(long_name_)) THEN 
    377530        long_name__tmp=cxios_is_defined_axisgroup_long_name(axisgroup_hdl%daddr) 
    … …  
    379532      ENDIF 
    380533       
     534      IF (PRESENT(mask_)) THEN 
     535        mask__tmp=cxios_is_defined_axisgroup_mask(axisgroup_hdl%daddr) 
     536        mask_=mask__tmp 
     537      ENDIF 
     538       
    381539      IF (PRESENT(name_)) THEN 
    382540        name__tmp=cxios_is_defined_axisgroup_name(axisgroup_hdl%daddr) 
    … …  
    384542      ENDIF 
    385543       
     544      IF (PRESENT(ni_)) THEN 
     545        ni__tmp=cxios_is_defined_axisgroup_ni(axisgroup_hdl%daddr) 
     546        ni_=ni__tmp 
     547      ENDIF 
     548       
    386549      IF (PRESENT(positive_)) THEN 
    387550        positive__tmp=cxios_is_defined_axisgroup_positive(axisgroup_hdl%daddr) 
Note: See TracChangeset for help on using the changeset viewer.