Ignore:
Timestamp:
06/18/18 20:32:55 (6 years ago)
Author:
yushan
Message:

branch_openmp merged with trunk r1544

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS/dev/branch_openmp/src/interface/fortran_attr/iscalargroup_attr.F90

    r1052 r1545  
    1212 
    1313  SUBROUTINE xios(set_scalargroup_attr)  & 
    14     ( scalargroup_id, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value ) 
     14    ( scalargroup_id, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name  & 
     15    , positive, prec, scalar_ref, standard_name, unit, value ) 
    1516 
    1617    IMPLICIT NONE 
    1718      TYPE(txios(scalargroup))  :: scalargroup_hdl 
    1819      CHARACTER(LEN=*), INTENT(IN) ::scalargroup_id 
     20      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_type 
     21      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:) 
     22      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name 
     23      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 
    1924      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref 
     25      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: label 
    2026      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name 
    2127      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 
     28      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive 
    2229      INTEGER  , OPTIONAL, INTENT(IN) :: prec 
    2330      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref 
    … …  
    2936      (scalargroup_id,scalargroup_hdl) 
    3037      CALL xios(set_scalargroup_attr_hdl_)   & 
    31       ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value  & 
    32       ) 
     38      ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name  & 
     39      , positive, prec, scalar_ref, standard_name, unit, value ) 
    3340 
    3441  END SUBROUTINE xios(set_scalargroup_attr) 
    3542 
    3643  SUBROUTINE xios(set_scalargroup_attr_hdl)  & 
    37     ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value  & 
    38     ) 
     44    ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name  & 
     45    , positive, prec, scalar_ref, standard_name, unit, value ) 
    3946 
    4047    IMPLICIT NONE 
    4148      TYPE(txios(scalargroup)) , INTENT(IN) :: scalargroup_hdl 
     49      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_type 
     50      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:) 
     51      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name 
     52      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment 
    4253      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref 
     54      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: label 
    4355      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name 
    4456      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 
     57      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive 
    4558      INTEGER  , OPTIONAL, INTENT(IN) :: prec 
    4659      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref 
    … …  
    5063 
    5164      CALL xios(set_scalargroup_attr_hdl_)  & 
    52       ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value  & 
    53       ) 
     65      ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name  & 
     66      , positive, prec, scalar_ref, standard_name, unit, value ) 
    5467 
    5568  END SUBROUTINE xios(set_scalargroup_attr_hdl) 
    5669 
    5770  SUBROUTINE xios(set_scalargroup_attr_hdl_)   & 
    58     ( scalargroup_hdl, group_ref_, long_name_, name_, prec_, scalar_ref_, standard_name_, unit_  & 
    59     , value_ ) 
     71    ( scalargroup_hdl, axis_type_, bounds_, bounds_name_, comment_, group_ref_, label_, long_name_  & 
     72    , name_, positive_, prec_, scalar_ref_, standard_name_, unit_, value_ ) 
    6073 
    6174    IMPLICIT NONE 
    6275      TYPE(txios(scalargroup)) , INTENT(IN) :: scalargroup_hdl 
     76      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_type_ 
     77      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_(:) 
     78      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name_ 
     79      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_ 
    6380      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_ 
     81      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: label_ 
    6482      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_ 
    6583      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_ 
     84      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive_ 
    6685      INTEGER  , OPTIONAL, INTENT(IN) :: prec_ 
    6786      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref_ 
    … …  
    7089      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value_ 
    7190 
     91      IF (PRESENT(axis_type_)) THEN 
     92        CALL cxios_set_scalargroup_axis_type & 
     93      (scalargroup_hdl%daddr, axis_type_, len(axis_type_)) 
     94      ENDIF 
     95 
     96      IF (PRESENT(bounds_)) THEN 
     97        CALL cxios_set_scalargroup_bounds & 
     98      (scalargroup_hdl%daddr, bounds_, SHAPE(bounds_)) 
     99      ENDIF 
     100 
     101      IF (PRESENT(bounds_name_)) THEN 
     102        CALL cxios_set_scalargroup_bounds_name & 
     103      (scalargroup_hdl%daddr, bounds_name_, len(bounds_name_)) 
     104      ENDIF 
     105 
     106      IF (PRESENT(comment_)) THEN 
     107        CALL cxios_set_scalargroup_comment & 
     108      (scalargroup_hdl%daddr, comment_, len(comment_)) 
     109      ENDIF 
     110 
    72111      IF (PRESENT(group_ref_)) THEN 
    73112        CALL cxios_set_scalargroup_group_ref & 
    … …  
    75114      ENDIF 
    76115 
     116      IF (PRESENT(label_)) THEN 
     117        CALL cxios_set_scalargroup_label & 
     118      (scalargroup_hdl%daddr, label_, len(label_)) 
     119      ENDIF 
     120 
    77121      IF (PRESENT(long_name_)) THEN 
    78122        CALL cxios_set_scalargroup_long_name & 
    … …  
    85129      ENDIF 
    86130 
     131      IF (PRESENT(positive_)) THEN 
     132        CALL cxios_set_scalargroup_positive & 
     133      (scalargroup_hdl%daddr, positive_, len(positive_)) 
     134      ENDIF 
     135 
    87136      IF (PRESENT(prec_)) THEN 
    88137        CALL cxios_set_scalargroup_prec & 
    … …  
    113162 
    114163  SUBROUTINE xios(get_scalargroup_attr)  & 
    115     ( scalargroup_id, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value ) 
     164    ( scalargroup_id, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name  & 
     165    , positive, prec, scalar_ref, standard_name, unit, value ) 
    116166 
    117167    IMPLICIT NONE 
    118168      TYPE(txios(scalargroup))  :: scalargroup_hdl 
    119169      CHARACTER(LEN=*), INTENT(IN) ::scalargroup_id 
     170      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_type 
     171      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:) 
     172      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name 
     173      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 
    120174      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref 
     175      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: label 
    121176      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name 
    122177      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 
     178      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive 
    123179      INTEGER  , OPTIONAL, INTENT(OUT) :: prec 
    124180      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref 
    … …  
    130186      (scalargroup_id,scalargroup_hdl) 
    131187      CALL xios(get_scalargroup_attr_hdl_)   & 
    132       ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value  & 
    133       ) 
     188      ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name  & 
     189      , positive, prec, scalar_ref, standard_name, unit, value ) 
    134190 
    135191  END SUBROUTINE xios(get_scalargroup_attr) 
    136192 
    137193  SUBROUTINE xios(get_scalargroup_attr_hdl)  & 
    138     ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value  & 
    139     ) 
     194    ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name  & 
     195    , positive, prec, scalar_ref, standard_name, unit, value ) 
    140196 
    141197    IMPLICIT NONE 
    142198      TYPE(txios(scalargroup)) , INTENT(IN) :: scalargroup_hdl 
     199      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_type 
     200      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:) 
     201      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name 
     202      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment 
    143203      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref 
     204      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: label 
    144205      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name 
    145206      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 
     207      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive 
    146208      INTEGER  , OPTIONAL, INTENT(OUT) :: prec 
    147209      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref 
    … …  
    151213 
    152214      CALL xios(get_scalargroup_attr_hdl_)  & 
    153       ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value  & 
    154       ) 
     215      ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name  & 
     216      , positive, prec, scalar_ref, standard_name, unit, value ) 
    155217 
    156218  END SUBROUTINE xios(get_scalargroup_attr_hdl) 
    157219 
    158220  SUBROUTINE xios(get_scalargroup_attr_hdl_)   & 
    159     ( scalargroup_hdl, group_ref_, long_name_, name_, prec_, scalar_ref_, standard_name_, unit_  & 
    160     , value_ ) 
     221    ( scalargroup_hdl, axis_type_, bounds_, bounds_name_, comment_, group_ref_, label_, long_name_  & 
     222    , name_, positive_, prec_, scalar_ref_, standard_name_, unit_, value_ ) 
    161223 
    162224    IMPLICIT NONE 
    163225      TYPE(txios(scalargroup)) , INTENT(IN) :: scalargroup_hdl 
     226      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_type_ 
     227      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_(:) 
     228      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name_ 
     229      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_ 
    164230      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_ 
     231      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: label_ 
    165232      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_ 
    166233      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_ 
     234      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive_ 
    167235      INTEGER  , OPTIONAL, INTENT(OUT) :: prec_ 
    168236      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref_ 
    … …  
    171239      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value_ 
    172240 
     241      IF (PRESENT(axis_type_)) THEN 
     242        CALL cxios_get_scalargroup_axis_type & 
     243      (scalargroup_hdl%daddr, axis_type_, len(axis_type_)) 
     244      ENDIF 
     245 
     246      IF (PRESENT(bounds_)) THEN 
     247        CALL cxios_get_scalargroup_bounds & 
     248      (scalargroup_hdl%daddr, bounds_, SHAPE(bounds_)) 
     249      ENDIF 
     250 
     251      IF (PRESENT(bounds_name_)) THEN 
     252        CALL cxios_get_scalargroup_bounds_name & 
     253      (scalargroup_hdl%daddr, bounds_name_, len(bounds_name_)) 
     254      ENDIF 
     255 
     256      IF (PRESENT(comment_)) THEN 
     257        CALL cxios_get_scalargroup_comment & 
     258      (scalargroup_hdl%daddr, comment_, len(comment_)) 
     259      ENDIF 
     260 
    173261      IF (PRESENT(group_ref_)) THEN 
    174262        CALL cxios_get_scalargroup_group_ref & 
    … …  
    176264      ENDIF 
    177265 
     266      IF (PRESENT(label_)) THEN 
     267        CALL cxios_get_scalargroup_label & 
     268      (scalargroup_hdl%daddr, label_, len(label_)) 
     269      ENDIF 
     270 
    178271      IF (PRESENT(long_name_)) THEN 
    179272        CALL cxios_get_scalargroup_long_name & 
    … …  
    186279      ENDIF 
    187280 
     281      IF (PRESENT(positive_)) THEN 
     282        CALL cxios_get_scalargroup_positive & 
     283      (scalargroup_hdl%daddr, positive_, len(positive_)) 
     284      ENDIF 
     285 
    188286      IF (PRESENT(prec_)) THEN 
    189287        CALL cxios_get_scalargroup_prec & 
    … …  
    214312 
    215313  SUBROUTINE xios(is_defined_scalargroup_attr)  & 
    216     ( scalargroup_id, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value ) 
     314    ( scalargroup_id, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name  & 
     315    , positive, prec, scalar_ref, standard_name, unit, value ) 
    217316 
    218317    IMPLICIT NONE 
    219318      TYPE(txios(scalargroup))  :: scalargroup_hdl 
    220319      CHARACTER(LEN=*), INTENT(IN) ::scalargroup_id 
     320      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_type 
     321      LOGICAL(KIND=C_BOOL) :: axis_type_tmp 
     322      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds 
     323      LOGICAL(KIND=C_BOOL) :: bounds_tmp 
     324      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name 
     325      LOGICAL(KIND=C_BOOL) :: bounds_name_tmp 
     326      LOGICAL, OPTIONAL, INTENT(OUT) :: comment 
     327      LOGICAL(KIND=C_BOOL) :: comment_tmp 
    221328      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 
    222329      LOGICAL(KIND=C_BOOL) :: group_ref_tmp 
     330      LOGICAL, OPTIONAL, INTENT(OUT) :: label 
     331      LOGICAL(KIND=C_BOOL) :: label_tmp 
    223332      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 
    224333      LOGICAL(KIND=C_BOOL) :: long_name_tmp 
    225334      LOGICAL, OPTIONAL, INTENT(OUT) :: name 
    226335      LOGICAL(KIND=C_BOOL) :: name_tmp 
     336      LOGICAL, OPTIONAL, INTENT(OUT) :: positive 
     337      LOGICAL(KIND=C_BOOL) :: positive_tmp 
    227338      LOGICAL, OPTIONAL, INTENT(OUT) :: prec 
    228339      LOGICAL(KIND=C_BOOL) :: prec_tmp 
    … …  
    239350      (scalargroup_id,scalargroup_hdl) 
    240351      CALL xios(is_defined_scalargroup_attr_hdl_)   & 
    241       ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value  & 
    242       ) 
     352      ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name  & 
     353      , positive, prec, scalar_ref, standard_name, unit, value ) 
    243354 
    244355  END SUBROUTINE xios(is_defined_scalargroup_attr) 
    245356 
    246357  SUBROUTINE xios(is_defined_scalargroup_attr_hdl)  & 
    247     ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value  & 
    248     ) 
     358    ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name  & 
     359    , positive, prec, scalar_ref, standard_name, unit, value ) 
    249360 
    250361    IMPLICIT NONE 
    251362      TYPE(txios(scalargroup)) , INTENT(IN) :: scalargroup_hdl 
     363      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_type 
     364      LOGICAL(KIND=C_BOOL) :: axis_type_tmp 
     365      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds 
     366      LOGICAL(KIND=C_BOOL) :: bounds_tmp 
     367      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name 
     368      LOGICAL(KIND=C_BOOL) :: bounds_name_tmp 
     369      LOGICAL, OPTIONAL, INTENT(OUT) :: comment 
     370      LOGICAL(KIND=C_BOOL) :: comment_tmp 
    252371      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 
    253372      LOGICAL(KIND=C_BOOL) :: group_ref_tmp 
     373      LOGICAL, OPTIONAL, INTENT(OUT) :: label 
     374      LOGICAL(KIND=C_BOOL) :: label_tmp 
    254375      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 
    255376      LOGICAL(KIND=C_BOOL) :: long_name_tmp 
    256377      LOGICAL, OPTIONAL, INTENT(OUT) :: name 
    257378      LOGICAL(KIND=C_BOOL) :: name_tmp 
     379      LOGICAL, OPTIONAL, INTENT(OUT) :: positive 
     380      LOGICAL(KIND=C_BOOL) :: positive_tmp 
    258381      LOGICAL, OPTIONAL, INTENT(OUT) :: prec 
    259382      LOGICAL(KIND=C_BOOL) :: prec_tmp 
    … …  
    268391 
    269392      CALL xios(is_defined_scalargroup_attr_hdl_)  & 
    270       ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value  & 
    271       ) 
     393      ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name  & 
     394      , positive, prec, scalar_ref, standard_name, unit, value ) 
    272395 
    273396  END SUBROUTINE xios(is_defined_scalargroup_attr_hdl) 
    274397 
    275398  SUBROUTINE xios(is_defined_scalargroup_attr_hdl_)   & 
    276     ( scalargroup_hdl, group_ref_, long_name_, name_, prec_, scalar_ref_, standard_name_, unit_  & 
    277     , value_ ) 
     399    ( scalargroup_hdl, axis_type_, bounds_, bounds_name_, comment_, group_ref_, label_, long_name_  & 
     400    , name_, positive_, prec_, scalar_ref_, standard_name_, unit_, value_ ) 
    278401 
    279402    IMPLICIT NONE 
    280403      TYPE(txios(scalargroup)) , INTENT(IN) :: scalargroup_hdl 
     404      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_type_ 
     405      LOGICAL(KIND=C_BOOL) :: axis_type__tmp 
     406      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_ 
     407      LOGICAL(KIND=C_BOOL) :: bounds__tmp 
     408      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name_ 
     409      LOGICAL(KIND=C_BOOL) :: bounds_name__tmp 
     410      LOGICAL, OPTIONAL, INTENT(OUT) :: comment_ 
     411      LOGICAL(KIND=C_BOOL) :: comment__tmp 
    281412      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_ 
    282413      LOGICAL(KIND=C_BOOL) :: group_ref__tmp 
     414      LOGICAL, OPTIONAL, INTENT(OUT) :: label_ 
     415      LOGICAL(KIND=C_BOOL) :: label__tmp 
    283416      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_ 
    284417      LOGICAL(KIND=C_BOOL) :: long_name__tmp 
    285418      LOGICAL, OPTIONAL, INTENT(OUT) :: name_ 
    286419      LOGICAL(KIND=C_BOOL) :: name__tmp 
     420      LOGICAL, OPTIONAL, INTENT(OUT) :: positive_ 
     421      LOGICAL(KIND=C_BOOL) :: positive__tmp 
    287422      LOGICAL, OPTIONAL, INTENT(OUT) :: prec_ 
    288423      LOGICAL(KIND=C_BOOL) :: prec__tmp 
    … …  
    296431      LOGICAL(KIND=C_BOOL) :: value__tmp 
    297432 
     433      IF (PRESENT(axis_type_)) THEN 
     434        axis_type__tmp = cxios_is_defined_scalargroup_axis_type & 
     435      (scalargroup_hdl%daddr) 
     436        axis_type_ = axis_type__tmp 
     437      ENDIF 
     438 
     439      IF (PRESENT(bounds_)) THEN 
     440        bounds__tmp = cxios_is_defined_scalargroup_bounds & 
     441      (scalargroup_hdl%daddr) 
     442        bounds_ = bounds__tmp 
     443      ENDIF 
     444 
     445      IF (PRESENT(bounds_name_)) THEN 
     446        bounds_name__tmp = cxios_is_defined_scalargroup_bounds_name & 
     447      (scalargroup_hdl%daddr) 
     448        bounds_name_ = bounds_name__tmp 
     449      ENDIF 
     450 
     451      IF (PRESENT(comment_)) THEN 
     452        comment__tmp = cxios_is_defined_scalargroup_comment & 
     453      (scalargroup_hdl%daddr) 
     454        comment_ = comment__tmp 
     455      ENDIF 
     456 
    298457      IF (PRESENT(group_ref_)) THEN 
    299458        group_ref__tmp = cxios_is_defined_scalargroup_group_ref & 
    … …  
    302461      ENDIF 
    303462 
     463      IF (PRESENT(label_)) THEN 
     464        label__tmp = cxios_is_defined_scalargroup_label & 
     465      (scalargroup_hdl%daddr) 
     466        label_ = label__tmp 
     467      ENDIF 
     468 
    304469      IF (PRESENT(long_name_)) THEN 
    305470        long_name__tmp = cxios_is_defined_scalargroup_long_name & 
    … …  
    314479      ENDIF 
    315480 
     481      IF (PRESENT(positive_)) THEN 
     482        positive__tmp = cxios_is_defined_scalargroup_positive & 
     483      (scalargroup_hdl%daddr) 
     484        positive_ = positive__tmp 
     485      ENDIF 
     486 
    316487      IF (PRESENT(prec_)) THEN 
    317488        prec__tmp = cxios_is_defined_scalargroup_prec & 
Note: See TracChangeset for help on using the changeset viewer.