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/ifile_attr.F90

    r966 r1052  
    1414    ( file_id, append, compression_level, convention, cyclic, description, enabled, format, min_digits  & 
    1515    , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq  & 
    16     , split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type  & 
    17     ) 
     16    , split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  & 
     17    , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    1818 
    1919    IMPLICIT NONE 
    … …  
    4343      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter 
    4444      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name 
     45      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_format 
     46      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_name 
     47      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_units 
    4548      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries 
    4649      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix 
    4750      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
     51      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format 
     52      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name 
    4853 
    4954      CALL xios(get_file_handle) & 
    … …  
    5257      ( file_hdl, append, compression_level, convention, cyclic, description, enabled, format, min_digits  & 
    5358      , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq  & 
    54       , split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type  & 
    55       ) 
     59      , split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  & 
     60      , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    5661 
    5762  END SUBROUTINE xios(set_file_attr) 
    … …  
    6065    ( file_hdl, append, compression_level, convention, cyclic, description, enabled, format, min_digits  & 
    6166    , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq  & 
    62     , split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type  & 
    63     ) 
     67    , split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  & 
     68    , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    6469 
    6570    IMPLICIT NONE 
    … …  
    8893      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter 
    8994      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name 
     95      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_format 
     96      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_name 
     97      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_units 
    9098      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries 
    9199      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix 
    92100      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
     101      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format 
     102      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name 
    93103 
    94104      CALL xios(set_file_attr_hdl_)  & 
    95105      ( file_hdl, append, compression_level, convention, cyclic, description, enabled, format, min_digits  & 
    96106      , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq  & 
    97       , split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type  & 
    98       ) 
     107      , split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  & 
     108      , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    99109 
    100110  END SUBROUTINE xios(set_file_attr_hdl) 
    … …  
    103113    ( file_hdl, append_, compression_level_, convention_, cyclic_, description_, enabled_, format_  & 
    104114    , min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, record_offset_  & 
    105     , split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_, timeseries_  & 
    106     , ts_prefix_, type_ ) 
     115    , split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_, time_stamp_format_  & 
     116    , time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_, uuid_name_ ) 
    107117 
    108118    IMPLICIT NONE 
    … …  
    131141      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_ 
    132142      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name_ 
     143      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_format_ 
     144      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_name_ 
     145      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_units_ 
    133146      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries_ 
    134147      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix_ 
    135148      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ 
     149      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format_ 
     150      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name_ 
    136151 
    137152      IF (PRESENT(append_)) THEN 
    … …  
    238253      ENDIF 
    239254 
     255      IF (PRESENT(time_stamp_format_)) THEN 
     256        CALL cxios_set_file_time_stamp_format & 
     257      (file_hdl%daddr, time_stamp_format_, len(time_stamp_format_)) 
     258      ENDIF 
     259 
     260      IF (PRESENT(time_stamp_name_)) THEN 
     261        CALL cxios_set_file_time_stamp_name & 
     262      (file_hdl%daddr, time_stamp_name_, len(time_stamp_name_)) 
     263      ENDIF 
     264 
     265      IF (PRESENT(time_units_)) THEN 
     266        CALL cxios_set_file_time_units & 
     267      (file_hdl%daddr, time_units_, len(time_units_)) 
     268      ENDIF 
     269 
    240270      IF (PRESENT(timeseries_)) THEN 
    241271        CALL cxios_set_file_timeseries & 
    … …  
    253283      ENDIF 
    254284 
     285      IF (PRESENT(uuid_format_)) THEN 
     286        CALL cxios_set_file_uuid_format & 
     287      (file_hdl%daddr, uuid_format_, len(uuid_format_)) 
     288      ENDIF 
     289 
     290      IF (PRESENT(uuid_name_)) THEN 
     291        CALL cxios_set_file_uuid_name & 
     292      (file_hdl%daddr, uuid_name_, len(uuid_name_)) 
     293      ENDIF 
     294 
    255295  END SUBROUTINE xios(set_file_attr_hdl_) 
    256296 
    … …  
    258298    ( file_id, append, compression_level, convention, cyclic, description, enabled, format, min_digits  & 
    259299    , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq  & 
    260     , split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type  & 
    261     ) 
     300    , split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  & 
     301    , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    262302 
    263303    IMPLICIT NONE 
    … …  
    287327      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter 
    288328      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name 
     329      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_format 
     330      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_name 
     331      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_units 
    289332      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries 
    290333      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix 
    291334      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
     335      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format 
     336      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name 
    292337 
    293338      CALL xios(get_file_handle) & 
    … …  
    296341      ( file_hdl, append, compression_level, convention, cyclic, description, enabled, format, min_digits  & 
    297342      , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq  & 
    298       , split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type  & 
    299       ) 
     343      , split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  & 
     344      , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    300345 
    301346  END SUBROUTINE xios(get_file_attr) 
    … …  
    304349    ( file_hdl, append, compression_level, convention, cyclic, description, enabled, format, min_digits  & 
    305350    , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq  & 
    306     , split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type  & 
    307     ) 
     351    , split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  & 
     352    , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    308353 
    309354    IMPLICIT NONE 
    … …  
    332377      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter 
    333378      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name 
     379      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_format 
     380      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_name 
     381      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_units 
    334382      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries 
    335383      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix 
    336384      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
     385      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format 
     386      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name 
    337387 
    338388      CALL xios(get_file_attr_hdl_)  & 
    339389      ( file_hdl, append, compression_level, convention, cyclic, description, enabled, format, min_digits  & 
    340390      , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq  & 
    341       , split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type  & 
    342       ) 
     391      , split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  & 
     392      , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    343393 
    344394  END SUBROUTINE xios(get_file_attr_hdl) 
    … …  
    347397    ( file_hdl, append_, compression_level_, convention_, cyclic_, description_, enabled_, format_  & 
    348398    , min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, record_offset_  & 
    349     , split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_, timeseries_  & 
    350     , ts_prefix_, type_ ) 
     399    , split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_, time_stamp_format_  & 
     400    , time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_, uuid_name_ ) 
    351401 
    352402    IMPLICIT NONE 
    … …  
    375425      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_ 
    376426      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name_ 
     427      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_format_ 
     428      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_name_ 
     429      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_units_ 
    377430      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries_ 
    378431      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix_ 
    379432      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ 
     433      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format_ 
     434      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name_ 
    380435 
    381436      IF (PRESENT(append_)) THEN 
    … …  
    482537      ENDIF 
    483538 
     539      IF (PRESENT(time_stamp_format_)) THEN 
     540        CALL cxios_get_file_time_stamp_format & 
     541      (file_hdl%daddr, time_stamp_format_, len(time_stamp_format_)) 
     542      ENDIF 
     543 
     544      IF (PRESENT(time_stamp_name_)) THEN 
     545        CALL cxios_get_file_time_stamp_name & 
     546      (file_hdl%daddr, time_stamp_name_, len(time_stamp_name_)) 
     547      ENDIF 
     548 
     549      IF (PRESENT(time_units_)) THEN 
     550        CALL cxios_get_file_time_units & 
     551      (file_hdl%daddr, time_units_, len(time_units_)) 
     552      ENDIF 
     553 
    484554      IF (PRESENT(timeseries_)) THEN 
    485555        CALL cxios_get_file_timeseries & 
    … …  
    497567      ENDIF 
    498568 
     569      IF (PRESENT(uuid_format_)) THEN 
     570        CALL cxios_get_file_uuid_format & 
     571      (file_hdl%daddr, uuid_format_, len(uuid_format_)) 
     572      ENDIF 
     573 
     574      IF (PRESENT(uuid_name_)) THEN 
     575        CALL cxios_get_file_uuid_name & 
     576      (file_hdl%daddr, uuid_name_, len(uuid_name_)) 
     577      ENDIF 
     578 
    499579  END SUBROUTINE xios(get_file_attr_hdl_) 
    500580 
    … …  
    502582    ( file_id, append, compression_level, convention, cyclic, description, enabled, format, min_digits  & 
    503583    , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq  & 
    504     , split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type  & 
    505     ) 
     584    , split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  & 
     585    , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    506586 
    507587    IMPLICIT NONE 
    … …  
    548628      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name 
    549629      LOGICAL(KIND=C_BOOL) :: time_counter_name_tmp 
     630      LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_format 
     631      LOGICAL(KIND=C_BOOL) :: time_stamp_format_tmp 
     632      LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_name 
     633      LOGICAL(KIND=C_BOOL) :: time_stamp_name_tmp 
     634      LOGICAL, OPTIONAL, INTENT(OUT) :: time_units 
     635      LOGICAL(KIND=C_BOOL) :: time_units_tmp 
    550636      LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries 
    551637      LOGICAL(KIND=C_BOOL) :: timeseries_tmp 
    … …  
    554640      LOGICAL, OPTIONAL, INTENT(OUT) :: type 
    555641      LOGICAL(KIND=C_BOOL) :: type_tmp 
     642      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format 
     643      LOGICAL(KIND=C_BOOL) :: uuid_format_tmp 
     644      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name 
     645      LOGICAL(KIND=C_BOOL) :: uuid_name_tmp 
    556646 
    557647      CALL xios(get_file_handle) & 
    … …  
    560650      ( file_hdl, append, compression_level, convention, cyclic, description, enabled, format, min_digits  & 
    561651      , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq  & 
    562       , split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type  & 
    563       ) 
     652      , split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  & 
     653      , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    564654 
    565655  END SUBROUTINE xios(is_defined_file_attr) 
    … …  
    568658    ( file_hdl, append, compression_level, convention, cyclic, description, enabled, format, min_digits  & 
    569659    , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq  & 
    570     , split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type  & 
    571     ) 
     660    , split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  & 
     661    , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    572662 
    573663    IMPLICIT NONE 
    … …  
    613703      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name 
    614704      LOGICAL(KIND=C_BOOL) :: time_counter_name_tmp 
     705      LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_format 
     706      LOGICAL(KIND=C_BOOL) :: time_stamp_format_tmp 
     707      LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_name 
     708      LOGICAL(KIND=C_BOOL) :: time_stamp_name_tmp 
     709      LOGICAL, OPTIONAL, INTENT(OUT) :: time_units 
     710      LOGICAL(KIND=C_BOOL) :: time_units_tmp 
    615711      LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries 
    616712      LOGICAL(KIND=C_BOOL) :: timeseries_tmp 
    … …  
    619715      LOGICAL, OPTIONAL, INTENT(OUT) :: type 
    620716      LOGICAL(KIND=C_BOOL) :: type_tmp 
     717      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format 
     718      LOGICAL(KIND=C_BOOL) :: uuid_format_tmp 
     719      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name 
     720      LOGICAL(KIND=C_BOOL) :: uuid_name_tmp 
    621721 
    622722      CALL xios(is_defined_file_attr_hdl_)  & 
    623723      ( file_hdl, append, compression_level, convention, cyclic, description, enabled, format, min_digits  & 
    624724      , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq  & 
    625       , split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type  & 
    626       ) 
     725      , split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  & 
     726      , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 
    627727 
    628728  END SUBROUTINE xios(is_defined_file_attr_hdl) 
    … …  
    631731    ( file_hdl, append_, compression_level_, convention_, cyclic_, description_, enabled_, format_  & 
    632732    , min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, record_offset_  & 
    633     , split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_, timeseries_  & 
    634     , ts_prefix_, type_ ) 
     733    , split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_, time_stamp_format_  & 
     734    , time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_, uuid_name_ ) 
    635735 
    636736    IMPLICIT NONE 
    … …  
    676776      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name_ 
    677777      LOGICAL(KIND=C_BOOL) :: time_counter_name__tmp 
     778      LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_format_ 
     779      LOGICAL(KIND=C_BOOL) :: time_stamp_format__tmp 
     780      LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_name_ 
     781      LOGICAL(KIND=C_BOOL) :: time_stamp_name__tmp 
     782      LOGICAL, OPTIONAL, INTENT(OUT) :: time_units_ 
     783      LOGICAL(KIND=C_BOOL) :: time_units__tmp 
    678784      LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries_ 
    679785      LOGICAL(KIND=C_BOOL) :: timeseries__tmp 
    … …  
    682788      LOGICAL, OPTIONAL, INTENT(OUT) :: type_ 
    683789      LOGICAL(KIND=C_BOOL) :: type__tmp 
     790      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format_ 
     791      LOGICAL(KIND=C_BOOL) :: uuid_format__tmp 
     792      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name_ 
     793      LOGICAL(KIND=C_BOOL) :: uuid_name__tmp 
    684794 
    685795      IF (PRESENT(append_)) THEN 
    … …  
    803913      ENDIF 
    804914 
     915      IF (PRESENT(time_stamp_format_)) THEN 
     916        time_stamp_format__tmp = cxios_is_defined_file_time_stamp_format & 
     917      (file_hdl%daddr) 
     918        time_stamp_format_ = time_stamp_format__tmp 
     919      ENDIF 
     920 
     921      IF (PRESENT(time_stamp_name_)) THEN 
     922        time_stamp_name__tmp = cxios_is_defined_file_time_stamp_name & 
     923      (file_hdl%daddr) 
     924        time_stamp_name_ = time_stamp_name__tmp 
     925      ENDIF 
     926 
     927      IF (PRESENT(time_units_)) THEN 
     928        time_units__tmp = cxios_is_defined_file_time_units & 
     929      (file_hdl%daddr) 
     930        time_units_ = time_units__tmp 
     931      ENDIF 
     932 
    805933      IF (PRESENT(timeseries_)) THEN 
    806934        timeseries__tmp = cxios_is_defined_file_timeseries & 
    … …  
    821949      ENDIF 
    822950 
     951      IF (PRESENT(uuid_format_)) THEN 
     952        uuid_format__tmp = cxios_is_defined_file_uuid_format & 
     953      (file_hdl%daddr) 
     954        uuid_format_ = uuid_format__tmp 
     955      ENDIF 
     956 
     957      IF (PRESENT(uuid_name_)) THEN 
     958        uuid_name__tmp = cxios_is_defined_file_uuid_name & 
     959      (file_hdl%daddr) 
     960        uuid_name_ = uuid_name__tmp 
     961      ENDIF 
     962 
    823963  END SUBROUTINE xios(is_defined_file_attr_hdl_) 
    824964 
Note: See TracChangeset for help on using the changeset viewer.