Ignore:
Timestamp:
03/24/15 11:21:45 (9 years ago)
Author:
rlacroix
Message:

Fix the Fortran interface generation to avoid generating dead code that caused a timer not to be stopped.

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r538 r581  
    88  USE ifield 
    99  USE fieldgroup_interface_attr 
    10    
     10 
    1111CONTAINS 
    12    
     12 
    1313  SUBROUTINE xios(set_fieldgroup_attr)  & 
    1414    ( fieldgroup_id, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    1515    , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    1616    , scale_factor, standard_name, unit, valid_max, valid_min ) 
    17      
     17 
    1818    IMPLICIT NONE 
    1919      TYPE(txios(fieldgroup))  :: fieldgroup_hdl 
    … …  
    4242      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max 
    4343      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min 
    44        
     44 
    4545      CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl) 
    4646      CALL xios(set_fieldgroup_attr_hdl_)   & 
    … …  
    4848      , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    4949      , scale_factor, standard_name, unit, valid_max, valid_min ) 
    50      
     50 
    5151  END SUBROUTINE xios(set_fieldgroup_attr) 
    52    
     52 
    5353  SUBROUTINE xios(set_fieldgroup_attr_hdl)  & 
    5454    ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    5555    , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    5656    , scale_factor, standard_name, unit, valid_max, valid_min ) 
    57      
     57 
    5858    IMPLICIT NONE 
    5959      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl 
    … …  
    8181      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max 
    8282      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min 
    83        
     83 
    8484      CALL xios(set_fieldgroup_attr_hdl_)  & 
    8585      ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    8686      , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    8787      , scale_factor, standard_name, unit, valid_max, valid_min ) 
    88      
     88 
    8989  END SUBROUTINE xios(set_fieldgroup_attr_hdl) 
    90    
     90 
    9191  SUBROUTINE xios(set_fieldgroup_attr_hdl_)   & 
    9292    ( fieldgroup_hdl, add_offset_, axis_ref_, default_value_, detect_missing_value_, domain_ref_  & 
    9393    , enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, group_ref_, level_, long_name_, name_  & 
    9494    , operation_, prec_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_ ) 
    95      
     95 
    9696    IMPLICIT NONE 
    9797      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl 
    … …  
    119119      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max_ 
    120120      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min_ 
    121        
     121 
    122122      IF (PRESENT(add_offset_)) THEN 
    123123        CALL cxios_set_fieldgroup_add_offset(fieldgroup_hdl%daddr, add_offset_) 
    124124      ENDIF 
    125        
     125 
    126126      IF (PRESENT(axis_ref_)) THEN 
    127127        CALL cxios_set_fieldgroup_axis_ref(fieldgroup_hdl%daddr, axis_ref_, len(axis_ref_)) 
    128128      ENDIF 
    129        
     129 
    130130      IF (PRESENT(default_value_)) THEN 
    131131        CALL cxios_set_fieldgroup_default_value(fieldgroup_hdl%daddr, default_value_) 
    132132      ENDIF 
    133        
     133 
    134134      IF (PRESENT(detect_missing_value_)) THEN 
    135         detect_missing_value__tmp=detect_missing_value_ 
     135        detect_missing_value__tmp = detect_missing_value_ 
    136136        CALL cxios_set_fieldgroup_detect_missing_value(fieldgroup_hdl%daddr, detect_missing_value__tmp) 
    137137      ENDIF 
    138        
     138 
    139139      IF (PRESENT(domain_ref_)) THEN 
    140140        CALL cxios_set_fieldgroup_domain_ref(fieldgroup_hdl%daddr, domain_ref_, len(domain_ref_)) 
    141141      ENDIF 
    142        
     142 
    143143      IF (PRESENT(enabled_)) THEN 
    144         enabled__tmp=enabled_ 
     144        enabled__tmp = enabled_ 
    145145        CALL cxios_set_fieldgroup_enabled(fieldgroup_hdl%daddr, enabled__tmp) 
    146146      ENDIF 
    147        
     147 
    148148      IF (PRESENT(field_ref_)) THEN 
    149149        CALL cxios_set_fieldgroup_field_ref(fieldgroup_hdl%daddr, field_ref_, len(field_ref_)) 
    150150      ENDIF 
    151        
     151 
    152152      IF (PRESENT(freq_offset_)) THEN 
    153153        CALL cxios_set_fieldgroup_freq_offset(fieldgroup_hdl%daddr, freq_offset_) 
    154154      ENDIF 
    155        
     155 
    156156      IF (PRESENT(freq_op_)) THEN 
    157157        CALL cxios_set_fieldgroup_freq_op(fieldgroup_hdl%daddr, freq_op_) 
    158158      ENDIF 
    159        
     159 
    160160      IF (PRESENT(grid_ref_)) THEN 
    161161        CALL cxios_set_fieldgroup_grid_ref(fieldgroup_hdl%daddr, grid_ref_, len(grid_ref_)) 
    162162      ENDIF 
    163        
     163 
    164164      IF (PRESENT(group_ref_)) THEN 
    165165        CALL cxios_set_fieldgroup_group_ref(fieldgroup_hdl%daddr, group_ref_, len(group_ref_)) 
    166166      ENDIF 
    167        
     167 
    168168      IF (PRESENT(level_)) THEN 
    169169        CALL cxios_set_fieldgroup_level(fieldgroup_hdl%daddr, level_) 
    170170      ENDIF 
    171        
     171 
    172172      IF (PRESENT(long_name_)) THEN 
    173173        CALL cxios_set_fieldgroup_long_name(fieldgroup_hdl%daddr, long_name_, len(long_name_)) 
    174174      ENDIF 
    175        
     175 
    176176      IF (PRESENT(name_)) THEN 
    177177        CALL cxios_set_fieldgroup_name(fieldgroup_hdl%daddr, name_, len(name_)) 
    178178      ENDIF 
    179        
     179 
    180180      IF (PRESENT(operation_)) THEN 
    181181        CALL cxios_set_fieldgroup_operation(fieldgroup_hdl%daddr, operation_, len(operation_)) 
    182182      ENDIF 
    183        
     183 
    184184      IF (PRESENT(prec_)) THEN 
    185185        CALL cxios_set_fieldgroup_prec(fieldgroup_hdl%daddr, prec_) 
    186186      ENDIF 
    187        
     187 
    188188      IF (PRESENT(scale_factor_)) THEN 
    189189        CALL cxios_set_fieldgroup_scale_factor(fieldgroup_hdl%daddr, scale_factor_) 
    190190      ENDIF 
    191        
     191 
    192192      IF (PRESENT(standard_name_)) THEN 
    193193        CALL cxios_set_fieldgroup_standard_name(fieldgroup_hdl%daddr, standard_name_, len(standard_name_)) 
    194194      ENDIF 
    195        
     195 
    196196      IF (PRESENT(unit_)) THEN 
    197197        CALL cxios_set_fieldgroup_unit(fieldgroup_hdl%daddr, unit_, len(unit_)) 
    198198      ENDIF 
    199        
     199 
    200200      IF (PRESENT(valid_max_)) THEN 
    201201        CALL cxios_set_fieldgroup_valid_max(fieldgroup_hdl%daddr, valid_max_) 
    202202      ENDIF 
    203        
     203 
    204204      IF (PRESENT(valid_min_)) THEN 
    205205        CALL cxios_set_fieldgroup_valid_min(fieldgroup_hdl%daddr, valid_min_) 
    206206      ENDIF 
    207        
    208        
    209      
     207 
    210208  END SUBROUTINE xios(set_fieldgroup_attr_hdl_) 
    211    
     209 
    212210  SUBROUTINE xios(get_fieldgroup_attr)  & 
    213211    ( fieldgroup_id, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    214212    , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    215213    , scale_factor, standard_name, unit, valid_max, valid_min ) 
    216      
     214 
    217215    IMPLICIT NONE 
    218216      TYPE(txios(fieldgroup))  :: fieldgroup_hdl 
    … …  
    241239      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max 
    242240      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min 
    243        
     241 
    244242      CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl) 
    245243      CALL xios(get_fieldgroup_attr_hdl_)   & 
    … …  
    247245      , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    248246      , scale_factor, standard_name, unit, valid_max, valid_min ) 
    249      
     247 
    250248  END SUBROUTINE xios(get_fieldgroup_attr) 
    251    
     249 
    252250  SUBROUTINE xios(get_fieldgroup_attr_hdl)  & 
    253251    ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    254252    , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    255253    , scale_factor, standard_name, unit, valid_max, valid_min ) 
    256      
     254 
    257255    IMPLICIT NONE 
    258256      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl 
    … …  
    280278      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max 
    281279      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min 
    282        
     280 
    283281      CALL xios(get_fieldgroup_attr_hdl_)  & 
    284282      ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    285283      , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    286284      , scale_factor, standard_name, unit, valid_max, valid_min ) 
    287      
     285 
    288286  END SUBROUTINE xios(get_fieldgroup_attr_hdl) 
    289    
     287 
    290288  SUBROUTINE xios(get_fieldgroup_attr_hdl_)   & 
    291289    ( fieldgroup_hdl, add_offset_, axis_ref_, default_value_, detect_missing_value_, domain_ref_  & 
    292290    , enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, group_ref_, level_, long_name_, name_  & 
    293291    , operation_, prec_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_ ) 
    294      
     292 
    295293    IMPLICIT NONE 
    296294      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl 
    … …  
    318316      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max_ 
    319317      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min_ 
    320        
     318 
    321319      IF (PRESENT(add_offset_)) THEN 
    322320        CALL cxios_get_fieldgroup_add_offset(fieldgroup_hdl%daddr, add_offset_) 
    323321      ENDIF 
    324        
     322 
    325323      IF (PRESENT(axis_ref_)) THEN 
    326324        CALL cxios_get_fieldgroup_axis_ref(fieldgroup_hdl%daddr, axis_ref_, len(axis_ref_)) 
    327325      ENDIF 
    328        
     326 
    329327      IF (PRESENT(default_value_)) THEN 
    330328        CALL cxios_get_fieldgroup_default_value(fieldgroup_hdl%daddr, default_value_) 
    331329      ENDIF 
    332        
     330 
    333331      IF (PRESENT(detect_missing_value_)) THEN 
    334332        CALL cxios_get_fieldgroup_detect_missing_value(fieldgroup_hdl%daddr, detect_missing_value__tmp) 
    335         detect_missing_value_=detect_missing_value__tmp 
    336       ENDIF 
    337        
     333        detect_missing_value_ = detect_missing_value__tmp 
     334      ENDIF 
     335 
    338336      IF (PRESENT(domain_ref_)) THEN 
    339337        CALL cxios_get_fieldgroup_domain_ref(fieldgroup_hdl%daddr, domain_ref_, len(domain_ref_)) 
    340338      ENDIF 
    341        
     339 
    342340      IF (PRESENT(enabled_)) THEN 
    343341        CALL cxios_get_fieldgroup_enabled(fieldgroup_hdl%daddr, enabled__tmp) 
    344         enabled_=enabled__tmp 
    345       ENDIF 
    346        
     342        enabled_ = enabled__tmp 
     343      ENDIF 
     344 
    347345      IF (PRESENT(field_ref_)) THEN 
    348346        CALL cxios_get_fieldgroup_field_ref(fieldgroup_hdl%daddr, field_ref_, len(field_ref_)) 
    349347      ENDIF 
    350        
     348 
    351349      IF (PRESENT(freq_offset_)) THEN 
    352350        CALL cxios_get_fieldgroup_freq_offset(fieldgroup_hdl%daddr, freq_offset_) 
    353351      ENDIF 
    354        
     352 
    355353      IF (PRESENT(freq_op_)) THEN 
    356354        CALL cxios_get_fieldgroup_freq_op(fieldgroup_hdl%daddr, freq_op_) 
    357355      ENDIF 
    358        
     356 
    359357      IF (PRESENT(grid_ref_)) THEN 
    360358        CALL cxios_get_fieldgroup_grid_ref(fieldgroup_hdl%daddr, grid_ref_, len(grid_ref_)) 
    361359      ENDIF 
    362        
     360 
    363361      IF (PRESENT(group_ref_)) THEN 
    364362        CALL cxios_get_fieldgroup_group_ref(fieldgroup_hdl%daddr, group_ref_, len(group_ref_)) 
    365363      ENDIF 
    366        
     364 
    367365      IF (PRESENT(level_)) THEN 
    368366        CALL cxios_get_fieldgroup_level(fieldgroup_hdl%daddr, level_) 
    369367      ENDIF 
    370        
     368 
    371369      IF (PRESENT(long_name_)) THEN 
    372370        CALL cxios_get_fieldgroup_long_name(fieldgroup_hdl%daddr, long_name_, len(long_name_)) 
    373371      ENDIF 
    374        
     372 
    375373      IF (PRESENT(name_)) THEN 
    376374        CALL cxios_get_fieldgroup_name(fieldgroup_hdl%daddr, name_, len(name_)) 
    377375      ENDIF 
    378        
     376 
    379377      IF (PRESENT(operation_)) THEN 
    380378        CALL cxios_get_fieldgroup_operation(fieldgroup_hdl%daddr, operation_, len(operation_)) 
    381379      ENDIF 
    382        
     380 
    383381      IF (PRESENT(prec_)) THEN 
    384382        CALL cxios_get_fieldgroup_prec(fieldgroup_hdl%daddr, prec_) 
    385383      ENDIF 
    386        
     384 
    387385      IF (PRESENT(scale_factor_)) THEN 
    388386        CALL cxios_get_fieldgroup_scale_factor(fieldgroup_hdl%daddr, scale_factor_) 
    389387      ENDIF 
    390        
     388 
    391389      IF (PRESENT(standard_name_)) THEN 
    392390        CALL cxios_get_fieldgroup_standard_name(fieldgroup_hdl%daddr, standard_name_, len(standard_name_)) 
    393391      ENDIF 
    394        
     392 
    395393      IF (PRESENT(unit_)) THEN 
    396394        CALL cxios_get_fieldgroup_unit(fieldgroup_hdl%daddr, unit_, len(unit_)) 
    397395      ENDIF 
    398        
     396 
    399397      IF (PRESENT(valid_max_)) THEN 
    400398        CALL cxios_get_fieldgroup_valid_max(fieldgroup_hdl%daddr, valid_max_) 
    401399      ENDIF 
    402        
     400 
    403401      IF (PRESENT(valid_min_)) THEN 
    404402        CALL cxios_get_fieldgroup_valid_min(fieldgroup_hdl%daddr, valid_min_) 
    405403      ENDIF 
    406        
    407        
    408      
     404 
    409405  END SUBROUTINE xios(get_fieldgroup_attr_hdl_) 
    410    
     406 
    411407  SUBROUTINE xios(is_defined_fieldgroup_attr)  & 
    412408    ( fieldgroup_id, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    413409    , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    414410    , scale_factor, standard_name, unit, valid_max, valid_min ) 
    415      
     411 
    416412    IMPLICIT NONE 
    417413      TYPE(txios(fieldgroup))  :: fieldgroup_hdl 
    … …  
    459455      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min 
    460456      LOGICAL(KIND=C_BOOL) :: valid_min_tmp 
    461        
     457 
    462458      CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl) 
    463459      CALL xios(is_defined_fieldgroup_attr_hdl_)   & 
    … …  
    465461      , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    466462      , scale_factor, standard_name, unit, valid_max, valid_min ) 
    467      
     463 
    468464  END SUBROUTINE xios(is_defined_fieldgroup_attr) 
    469    
     465 
    470466  SUBROUTINE xios(is_defined_fieldgroup_attr_hdl)  & 
    471467    ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    472468    , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    473469    , scale_factor, standard_name, unit, valid_max, valid_min ) 
    474      
     470 
    475471    IMPLICIT NONE 
    476472      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl 
    … …  
    517513      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min 
    518514      LOGICAL(KIND=C_BOOL) :: valid_min_tmp 
    519        
     515 
    520516      CALL xios(is_defined_fieldgroup_attr_hdl_)  & 
    521517      ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  & 
    522518      , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  & 
    523519      , scale_factor, standard_name, unit, valid_max, valid_min ) 
    524      
     520 
    525521  END SUBROUTINE xios(is_defined_fieldgroup_attr_hdl) 
    526    
     522 
    527523  SUBROUTINE xios(is_defined_fieldgroup_attr_hdl_)   & 
    528524    ( fieldgroup_hdl, add_offset_, axis_ref_, default_value_, detect_missing_value_, domain_ref_  & 
    529525    , enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, group_ref_, level_, long_name_, name_  & 
    530526    , operation_, prec_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_ ) 
    531      
     527 
    532528    IMPLICIT NONE 
    533529      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl 
    … …  
    574570      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min_ 
    575571      LOGICAL(KIND=C_BOOL) :: valid_min__tmp 
    576        
     572 
    577573      IF (PRESENT(add_offset_)) THEN 
    578         add_offset__tmp=cxios_is_defined_fieldgroup_add_offset(fieldgroup_hdl%daddr) 
    579         add_offset_=add_offset__tmp 
    580       ENDIF 
    581        
     574        add_offset__tmp = cxios_is_defined_fieldgroup_add_offset(fieldgroup_hdl%daddr) 
     575        add_offset_ = add_offset__tmp 
     576      ENDIF 
     577 
    582578      IF (PRESENT(axis_ref_)) THEN 
    583         axis_ref__tmp=cxios_is_defined_fieldgroup_axis_ref(fieldgroup_hdl%daddr) 
    584         axis_ref_=axis_ref__tmp 
    585       ENDIF 
    586        
     579        axis_ref__tmp = cxios_is_defined_fieldgroup_axis_ref(fieldgroup_hdl%daddr) 
     580        axis_ref_ = axis_ref__tmp 
     581      ENDIF 
     582 
    587583      IF (PRESENT(default_value_)) THEN 
    588         default_value__tmp=cxios_is_defined_fieldgroup_default_value(fieldgroup_hdl%daddr) 
    589         default_value_=default_value__tmp 
    590       ENDIF 
    591        
     584        default_value__tmp = cxios_is_defined_fieldgroup_default_value(fieldgroup_hdl%daddr) 
     585        default_value_ = default_value__tmp 
     586      ENDIF 
     587 
    592588      IF (PRESENT(detect_missing_value_)) THEN 
    593         detect_missing_value__tmp=cxios_is_defined_fieldgroup_detect_missing_value(fieldgroup_hdl%daddr) 
    594         detect_missing_value_=detect_missing_value__tmp 
    595       ENDIF 
    596        
     589        detect_missing_value__tmp = cxios_is_defined_fieldgroup_detect_missing_value(fieldgroup_hdl%daddr) 
     590        detect_missing_value_ = detect_missing_value__tmp 
     591      ENDIF 
     592 
    597593      IF (PRESENT(domain_ref_)) THEN 
    598         domain_ref__tmp=cxios_is_defined_fieldgroup_domain_ref(fieldgroup_hdl%daddr) 
    599         domain_ref_=domain_ref__tmp 
    600       ENDIF 
    601        
     594        domain_ref__tmp = cxios_is_defined_fieldgroup_domain_ref(fieldgroup_hdl%daddr) 
     595        domain_ref_ = domain_ref__tmp 
     596      ENDIF 
     597 
    602598      IF (PRESENT(enabled_)) THEN 
    603         enabled__tmp=cxios_is_defined_fieldgroup_enabled(fieldgroup_hdl%daddr) 
    604         enabled_=enabled__tmp 
    605       ENDIF 
    606        
     599        enabled__tmp = cxios_is_defined_fieldgroup_enabled(fieldgroup_hdl%daddr) 
     600        enabled_ = enabled__tmp 
     601      ENDIF 
     602 
    607603      IF (PRESENT(field_ref_)) THEN 
    608         field_ref__tmp=cxios_is_defined_fieldgroup_field_ref(fieldgroup_hdl%daddr) 
    609         field_ref_=field_ref__tmp 
    610       ENDIF 
    611        
     604        field_ref__tmp = cxios_is_defined_fieldgroup_field_ref(fieldgroup_hdl%daddr) 
     605        field_ref_ = field_ref__tmp 
     606      ENDIF 
     607 
    612608      IF (PRESENT(freq_offset_)) THEN 
    613         freq_offset__tmp=cxios_is_defined_fieldgroup_freq_offset(fieldgroup_hdl%daddr) 
    614         freq_offset_=freq_offset__tmp 
    615       ENDIF 
    616        
     609        freq_offset__tmp = cxios_is_defined_fieldgroup_freq_offset(fieldgroup_hdl%daddr) 
     610        freq_offset_ = freq_offset__tmp 
     611      ENDIF 
     612 
    617613      IF (PRESENT(freq_op_)) THEN 
    618         freq_op__tmp=cxios_is_defined_fieldgroup_freq_op(fieldgroup_hdl%daddr) 
    619         freq_op_=freq_op__tmp 
    620       ENDIF 
    621        
     614        freq_op__tmp = cxios_is_defined_fieldgroup_freq_op(fieldgroup_hdl%daddr) 
     615        freq_op_ = freq_op__tmp 
     616      ENDIF 
     617 
    622618      IF (PRESENT(grid_ref_)) THEN 
    623         grid_ref__tmp=cxios_is_defined_fieldgroup_grid_ref(fieldgroup_hdl%daddr) 
    624         grid_ref_=grid_ref__tmp 
    625       ENDIF 
    626        
     619        grid_ref__tmp = cxios_is_defined_fieldgroup_grid_ref(fieldgroup_hdl%daddr) 
     620        grid_ref_ = grid_ref__tmp 
     621      ENDIF 
     622 
    627623      IF (PRESENT(group_ref_)) THEN 
    628         group_ref__tmp=cxios_is_defined_fieldgroup_group_ref(fieldgroup_hdl%daddr) 
    629         group_ref_=group_ref__tmp 
    630       ENDIF 
    631        
     624        group_ref__tmp = cxios_is_defined_fieldgroup_group_ref(fieldgroup_hdl%daddr) 
     625        group_ref_ = group_ref__tmp 
     626      ENDIF 
     627 
    632628      IF (PRESENT(level_)) THEN 
    633         level__tmp=cxios_is_defined_fieldgroup_level(fieldgroup_hdl%daddr) 
    634         level_=level__tmp 
    635       ENDIF 
    636        
     629        level__tmp = cxios_is_defined_fieldgroup_level(fieldgroup_hdl%daddr) 
     630        level_ = level__tmp 
     631      ENDIF 
     632 
    637633      IF (PRESENT(long_name_)) THEN 
    638         long_name__tmp=cxios_is_defined_fieldgroup_long_name(fieldgroup_hdl%daddr) 
    639         long_name_=long_name__tmp 
    640       ENDIF 
    641        
     634        long_name__tmp = cxios_is_defined_fieldgroup_long_name(fieldgroup_hdl%daddr) 
     635        long_name_ = long_name__tmp 
     636      ENDIF 
     637 
    642638      IF (PRESENT(name_)) THEN 
    643         name__tmp=cxios_is_defined_fieldgroup_name(fieldgroup_hdl%daddr) 
    644         name_=name__tmp 
    645       ENDIF 
    646        
     639        name__tmp = cxios_is_defined_fieldgroup_name(fieldgroup_hdl%daddr) 
     640        name_ = name__tmp 
     641      ENDIF 
     642 
    647643      IF (PRESENT(operation_)) THEN 
    648         operation__tmp=cxios_is_defined_fieldgroup_operation(fieldgroup_hdl%daddr) 
    649         operation_=operation__tmp 
    650       ENDIF 
    651        
     644        operation__tmp = cxios_is_defined_fieldgroup_operation(fieldgroup_hdl%daddr) 
     645        operation_ = operation__tmp 
     646      ENDIF 
     647 
    652648      IF (PRESENT(prec_)) THEN 
    653         prec__tmp=cxios_is_defined_fieldgroup_prec(fieldgroup_hdl%daddr) 
    654         prec_=prec__tmp 
    655       ENDIF 
    656        
     649        prec__tmp = cxios_is_defined_fieldgroup_prec(fieldgroup_hdl%daddr) 
     650        prec_ = prec__tmp 
     651      ENDIF 
     652 
    657653      IF (PRESENT(scale_factor_)) THEN 
    658         scale_factor__tmp=cxios_is_defined_fieldgroup_scale_factor(fieldgroup_hdl%daddr) 
    659         scale_factor_=scale_factor__tmp 
    660       ENDIF 
    661        
     654        scale_factor__tmp = cxios_is_defined_fieldgroup_scale_factor(fieldgroup_hdl%daddr) 
     655        scale_factor_ = scale_factor__tmp 
     656      ENDIF 
     657 
    662658      IF (PRESENT(standard_name_)) THEN 
    663         standard_name__tmp=cxios_is_defined_fieldgroup_standard_name(fieldgroup_hdl%daddr) 
    664         standard_name_=standard_name__tmp 
    665       ENDIF 
    666        
     659        standard_name__tmp = cxios_is_defined_fieldgroup_standard_name(fieldgroup_hdl%daddr) 
     660        standard_name_ = standard_name__tmp 
     661      ENDIF 
     662 
    667663      IF (PRESENT(unit_)) THEN 
    668         unit__tmp=cxios_is_defined_fieldgroup_unit(fieldgroup_hdl%daddr) 
    669         unit_=unit__tmp 
    670       ENDIF 
    671        
     664        unit__tmp = cxios_is_defined_fieldgroup_unit(fieldgroup_hdl%daddr) 
     665        unit_ = unit__tmp 
     666      ENDIF 
     667 
    672668      IF (PRESENT(valid_max_)) THEN 
    673         valid_max__tmp=cxios_is_defined_fieldgroup_valid_max(fieldgroup_hdl%daddr) 
    674         valid_max_=valid_max__tmp 
    675       ENDIF 
    676        
     669        valid_max__tmp = cxios_is_defined_fieldgroup_valid_max(fieldgroup_hdl%daddr) 
     670        valid_max_ = valid_max__tmp 
     671      ENDIF 
     672 
    677673      IF (PRESENT(valid_min_)) THEN 
    678         valid_min__tmp=cxios_is_defined_fieldgroup_valid_min(fieldgroup_hdl%daddr) 
    679         valid_min_=valid_min__tmp 
    680       ENDIF 
    681        
    682        
    683      
     674        valid_min__tmp = cxios_is_defined_fieldgroup_valid_min(fieldgroup_hdl%daddr) 
     675        valid_min_ = valid_min__tmp 
     676      ENDIF 
     677 
    684678  END SUBROUTINE xios(is_defined_fieldgroup_attr_hdl_) 
    685    
     679 
    686680END MODULE ifieldgroup_attr 
Note: See TracChangeset for help on using the changeset viewer.