Ignore:
Timestamp:
02/07/17 12:00:27 (7 years ago)
Author:
ymipsl
Message:

Generate fortran interface for new attributes from previous commit.

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r966 r1052  
    1414    ( filegroup_id, append, compression_level, convention, cyclic, description, enabled, format  & 
    1515    , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  & 
    16     , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix  & 
    17     , type ) 
     16    , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
     17    , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    1818 
    1919    IMPLICIT NONE 
    … …  
    4444      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter 
    4545      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name 
     46      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_format 
     47      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_name 
     48      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_units 
    4649      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries 
    4750      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix 
    4851      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
     52      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format 
     53      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name 
    4954 
    5055      CALL xios(get_filegroup_handle) & 
    … …  
    5358      ( filegroup_hdl, append, compression_level, convention, cyclic, description, enabled, format  & 
    5459      , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  & 
    55       , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix  & 
    56       , type ) 
     60      , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
     61      , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    5762 
    5863  END SUBROUTINE xios(set_filegroup_attr) 
    … …  
    6166    ( filegroup_hdl, append, compression_level, convention, cyclic, description, enabled, format  & 
    6267    , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  & 
    63     , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix  & 
    64     , type ) 
     68    , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
     69    , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    6570 
    6671    IMPLICIT NONE 
    … …  
    9095      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter 
    9196      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name 
     97      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_format 
     98      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_name 
     99      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_units 
    92100      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries 
    93101      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix 
    94102      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
     103      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format 
     104      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name 
    95105 
    96106      CALL xios(set_filegroup_attr_hdl_)  & 
    97107      ( filegroup_hdl, append, compression_level, convention, cyclic, description, enabled, format  & 
    98108      , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  & 
    99       , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix  & 
    100       , type ) 
     109      , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
     110      , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    101111 
    102112  END SUBROUTINE xios(set_filegroup_attr_hdl) 
    … …  
    106116    , group_ref_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_  & 
    107117    , record_offset_, split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_  & 
    108     , timeseries_, ts_prefix_, type_ ) 
     118    , time_stamp_format_, time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_  & 
     119    , uuid_name_ ) 
    109120 
    110121    IMPLICIT NONE 
    … …  
    134145      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_ 
    135146      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name_ 
     147      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_format_ 
     148      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_name_ 
     149      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_units_ 
    136150      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries_ 
    137151      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix_ 
    138152      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ 
     153      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format_ 
     154      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name_ 
    139155 
    140156      IF (PRESENT(append_)) THEN 
    … …  
    246262      ENDIF 
    247263 
     264      IF (PRESENT(time_stamp_format_)) THEN 
     265        CALL cxios_set_filegroup_time_stamp_format & 
     266      (filegroup_hdl%daddr, time_stamp_format_, len(time_stamp_format_)) 
     267      ENDIF 
     268 
     269      IF (PRESENT(time_stamp_name_)) THEN 
     270        CALL cxios_set_filegroup_time_stamp_name & 
     271      (filegroup_hdl%daddr, time_stamp_name_, len(time_stamp_name_)) 
     272      ENDIF 
     273 
     274      IF (PRESENT(time_units_)) THEN 
     275        CALL cxios_set_filegroup_time_units & 
     276      (filegroup_hdl%daddr, time_units_, len(time_units_)) 
     277      ENDIF 
     278 
    248279      IF (PRESENT(timeseries_)) THEN 
    249280        CALL cxios_set_filegroup_timeseries & 
    … …  
    261292      ENDIF 
    262293 
     294      IF (PRESENT(uuid_format_)) THEN 
     295        CALL cxios_set_filegroup_uuid_format & 
     296      (filegroup_hdl%daddr, uuid_format_, len(uuid_format_)) 
     297      ENDIF 
     298 
     299      IF (PRESENT(uuid_name_)) THEN 
     300        CALL cxios_set_filegroup_uuid_name & 
     301      (filegroup_hdl%daddr, uuid_name_, len(uuid_name_)) 
     302      ENDIF 
     303 
    263304  END SUBROUTINE xios(set_filegroup_attr_hdl_) 
    264305 
    … …  
    266307    ( filegroup_id, append, compression_level, convention, cyclic, description, enabled, format  & 
    267308    , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  & 
    268     , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix  & 
    269     , type ) 
     309    , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
     310    , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    270311 
    271312    IMPLICIT NONE 
    … …  
    296337      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter 
    297338      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name 
     339      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_format 
     340      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_name 
     341      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_units 
    298342      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries 
    299343      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix 
    300344      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
     345      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format 
     346      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name 
    301347 
    302348      CALL xios(get_filegroup_handle) & 
    … …  
    305351      ( filegroup_hdl, append, compression_level, convention, cyclic, description, enabled, format  & 
    306352      , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  & 
    307       , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix  & 
    308       , type ) 
     353      , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
     354      , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    309355 
    310356  END SUBROUTINE xios(get_filegroup_attr) 
    … …  
    313359    ( filegroup_hdl, append, compression_level, convention, cyclic, description, enabled, format  & 
    314360    , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  & 
    315     , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix  & 
    316     , type ) 
     361    , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
     362    , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    317363 
    318364    IMPLICIT NONE 
    … …  
    342388      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter 
    343389      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name 
     390      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_format 
     391      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_name 
     392      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_units 
    344393      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries 
    345394      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix 
    346395      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
     396      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format 
     397      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name 
    347398 
    348399      CALL xios(get_filegroup_attr_hdl_)  & 
    349400      ( filegroup_hdl, append, compression_level, convention, cyclic, description, enabled, format  & 
    350401      , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  & 
    351       , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix  & 
    352       , type ) 
     402      , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
     403      , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    353404 
    354405  END SUBROUTINE xios(get_filegroup_attr_hdl) 
    … …  
    358409    , group_ref_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_  & 
    359410    , record_offset_, split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_  & 
    360     , timeseries_, ts_prefix_, type_ ) 
     411    , time_stamp_format_, time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_  & 
     412    , uuid_name_ ) 
    361413 
    362414    IMPLICIT NONE 
    … …  
    386438      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_ 
    387439      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name_ 
     440      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_format_ 
     441      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_name_ 
     442      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_units_ 
    388443      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries_ 
    389444      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix_ 
    390445      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ 
     446      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format_ 
     447      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name_ 
    391448 
    392449      IF (PRESENT(append_)) THEN 
    … …  
    498555      ENDIF 
    499556 
     557      IF (PRESENT(time_stamp_format_)) THEN 
     558        CALL cxios_get_filegroup_time_stamp_format & 
     559      (filegroup_hdl%daddr, time_stamp_format_, len(time_stamp_format_)) 
     560      ENDIF 
     561 
     562      IF (PRESENT(time_stamp_name_)) THEN 
     563        CALL cxios_get_filegroup_time_stamp_name & 
     564      (filegroup_hdl%daddr, time_stamp_name_, len(time_stamp_name_)) 
     565      ENDIF 
     566 
     567      IF (PRESENT(time_units_)) THEN 
     568        CALL cxios_get_filegroup_time_units & 
     569      (filegroup_hdl%daddr, time_units_, len(time_units_)) 
     570      ENDIF 
     571 
    500572      IF (PRESENT(timeseries_)) THEN 
    501573        CALL cxios_get_filegroup_timeseries & 
    … …  
    513585      ENDIF 
    514586 
     587      IF (PRESENT(uuid_format_)) THEN 
     588        CALL cxios_get_filegroup_uuid_format & 
     589      (filegroup_hdl%daddr, uuid_format_, len(uuid_format_)) 
     590      ENDIF 
     591 
     592      IF (PRESENT(uuid_name_)) THEN 
     593        CALL cxios_get_filegroup_uuid_name & 
     594      (filegroup_hdl%daddr, uuid_name_, len(uuid_name_)) 
     595      ENDIF 
     596 
    515597  END SUBROUTINE xios(get_filegroup_attr_hdl_) 
    516598 
    … …  
    518600    ( filegroup_id, append, compression_level, convention, cyclic, description, enabled, format  & 
    519601    , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  & 
    520     , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix  & 
    521     , type ) 
     602    , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
     603    , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    522604 
    523605    IMPLICIT NONE 
    … …  
    566648      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name 
    567649      LOGICAL(KIND=C_BOOL) :: time_counter_name_tmp 
     650      LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_format 
     651      LOGICAL(KIND=C_BOOL) :: time_stamp_format_tmp 
     652      LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_name 
     653      LOGICAL(KIND=C_BOOL) :: time_stamp_name_tmp 
     654      LOGICAL, OPTIONAL, INTENT(OUT) :: time_units 
     655      LOGICAL(KIND=C_BOOL) :: time_units_tmp 
    568656      LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries 
    569657      LOGICAL(KIND=C_BOOL) :: timeseries_tmp 
    … …  
    572660      LOGICAL, OPTIONAL, INTENT(OUT) :: type 
    573661      LOGICAL(KIND=C_BOOL) :: type_tmp 
     662      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format 
     663      LOGICAL(KIND=C_BOOL) :: uuid_format_tmp 
     664      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name 
     665      LOGICAL(KIND=C_BOOL) :: uuid_name_tmp 
    574666 
    575667      CALL xios(get_filegroup_handle) & 
    … …  
    578670      ( filegroup_hdl, append, compression_level, convention, cyclic, description, enabled, format  & 
    579671      , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  & 
    580       , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix  & 
    581       , type ) 
     672      , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
     673      , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    582674 
    583675  END SUBROUTINE xios(is_defined_filegroup_attr) 
    … …  
    586678    ( filegroup_hdl, append, compression_level, convention, cyclic, description, enabled, format  & 
    587679    , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  & 
    588     , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix  & 
    589     , type ) 
     680    , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
     681    , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    590682 
    591683    IMPLICIT NONE 
    … …  
    633725      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name 
    634726      LOGICAL(KIND=C_BOOL) :: time_counter_name_tmp 
     727      LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_format 
     728      LOGICAL(KIND=C_BOOL) :: time_stamp_format_tmp 
     729      LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_name 
     730      LOGICAL(KIND=C_BOOL) :: time_stamp_name_tmp 
     731      LOGICAL, OPTIONAL, INTENT(OUT) :: time_units 
     732      LOGICAL(KIND=C_BOOL) :: time_units_tmp 
    635733      LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries 
    636734      LOGICAL(KIND=C_BOOL) :: timeseries_tmp 
    … …  
    639737      LOGICAL, OPTIONAL, INTENT(OUT) :: type 
    640738      LOGICAL(KIND=C_BOOL) :: type_tmp 
     739      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format 
     740      LOGICAL(KIND=C_BOOL) :: uuid_format_tmp 
     741      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name 
     742      LOGICAL(KIND=C_BOOL) :: uuid_name_tmp 
    641743 
    642744      CALL xios(is_defined_filegroup_attr_hdl_)  & 
    643745      ( filegroup_hdl, append, compression_level, convention, cyclic, description, enabled, format  & 
    644746      , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  & 
    645       , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix  & 
    646       , type ) 
     747      , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format  & 
     748      , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    647749 
    648750  END SUBROUTINE xios(is_defined_filegroup_attr_hdl) 
    … …  
    652754    , group_ref_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_  & 
    653755    , record_offset_, split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_  & 
    654     , timeseries_, ts_prefix_, type_ ) 
     756    , time_stamp_format_, time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_  & 
     757    , uuid_name_ ) 
    655758 
    656759    IMPLICIT NONE 
    … …  
    698801      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name_ 
    699802      LOGICAL(KIND=C_BOOL) :: time_counter_name__tmp 
     803      LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_format_ 
     804      LOGICAL(KIND=C_BOOL) :: time_stamp_format__tmp 
     805      LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_name_ 
     806      LOGICAL(KIND=C_BOOL) :: time_stamp_name__tmp 
     807      LOGICAL, OPTIONAL, INTENT(OUT) :: time_units_ 
     808      LOGICAL(KIND=C_BOOL) :: time_units__tmp 
    700809      LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries_ 
    701810      LOGICAL(KIND=C_BOOL) :: timeseries__tmp 
    … …  
    704813      LOGICAL, OPTIONAL, INTENT(OUT) :: type_ 
    705814      LOGICAL(KIND=C_BOOL) :: type__tmp 
     815      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format_ 
     816      LOGICAL(KIND=C_BOOL) :: uuid_format__tmp 
     817      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name_ 
     818      LOGICAL(KIND=C_BOOL) :: uuid_name__tmp 
    706819 
    707820      IF (PRESENT(append_)) THEN 
    … …  
    831944      ENDIF 
    832945 
     946      IF (PRESENT(time_stamp_format_)) THEN 
     947        time_stamp_format__tmp = cxios_is_defined_filegroup_time_stamp_format & 
     948      (filegroup_hdl%daddr) 
     949        time_stamp_format_ = time_stamp_format__tmp 
     950      ENDIF 
     951 
     952      IF (PRESENT(time_stamp_name_)) THEN 
     953        time_stamp_name__tmp = cxios_is_defined_filegroup_time_stamp_name & 
     954      (filegroup_hdl%daddr) 
     955        time_stamp_name_ = time_stamp_name__tmp 
     956      ENDIF 
     957 
     958      IF (PRESENT(time_units_)) THEN 
     959        time_units__tmp = cxios_is_defined_filegroup_time_units & 
     960      (filegroup_hdl%daddr) 
     961        time_units_ = time_units__tmp 
     962      ENDIF 
     963 
    833964      IF (PRESENT(timeseries_)) THEN 
    834965        timeseries__tmp = cxios_is_defined_filegroup_timeseries & 
    … …  
    849980      ENDIF 
    850981 
     982      IF (PRESENT(uuid_format_)) THEN 
     983        uuid_format__tmp = cxios_is_defined_filegroup_uuid_format & 
     984      (filegroup_hdl%daddr) 
     985        uuid_format_ = uuid_format__tmp 
     986      ENDIF 
     987 
     988      IF (PRESENT(uuid_name_)) THEN 
     989        uuid_name__tmp = cxios_is_defined_filegroup_uuid_name & 
     990      (filegroup_hdl%daddr) 
     991        uuid_name_ = uuid_name__tmp 
     992      ENDIF 
     993 
    851994  END SUBROUTINE xios(is_defined_filegroup_attr_hdl_) 
    852995 
Note: See TracChangeset for help on using the changeset viewer.