Ignore:
Timestamp:
07/05/16 15:59:23 (8 years ago)
Author:
mhnguyen
Message:

Adding Fortran interface for reduce_axis_to_scalar

Test
+) On Curie
+) Only compilation

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r802 r891  
    1212 
    1313  SUBROUTINE xios(set_filegroup_attr)  & 
    14     ( filegroup_id, append, compression_level, description, enabled, format, group_ref, min_digits  & 
     14    ( filegroup_id, append, compression_level, cyclic, description, enabled, format, group_ref, min_digits  & 
    1515    , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq  & 
    1616    , split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type  & 
    … …  
    2323      LOGICAL (KIND=C_BOOL) :: append_tmp 
    2424      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level 
     25      LOGICAL  , OPTIONAL, INTENT(IN) :: cyclic 
     26      LOGICAL (KIND=C_BOOL) :: cyclic_tmp 
    2527      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description 
    2628      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled 
    … …  
    4749      CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl) 
    4850      CALL xios(set_filegroup_attr_hdl_)   & 
    49       ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  & 
    50       , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq  & 
    51       , split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type  & 
    52       ) 
     51      ( filegroup_hdl, append, compression_level, cyclic, description, enabled, format, group_ref  & 
     52      , min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  & 
     53      , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix  & 
     54      , type ) 
    5355 
    5456  END SUBROUTINE xios(set_filegroup_attr) 
    5557 
    5658  SUBROUTINE xios(set_filegroup_attr_hdl)  & 
    57     ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  & 
    58     , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq  & 
    59     , split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type  & 
    60     ) 
     59    ( filegroup_hdl, append, compression_level, cyclic, description, enabled, format, group_ref  & 
     60    , min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  & 
     61    , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix  & 
     62    , type ) 
    6163 
    6264    IMPLICIT NONE 
    … …  
    6567      LOGICAL (KIND=C_BOOL) :: append_tmp 
    6668      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level 
     69      LOGICAL  , OPTIONAL, INTENT(IN) :: cyclic 
     70      LOGICAL (KIND=C_BOOL) :: cyclic_tmp 
    6771      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description 
    6872      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled 
    … …  
    8892 
    8993      CALL xios(set_filegroup_attr_hdl_)  & 
    90       ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  & 
    91       , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq  & 
    92       , split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type  & 
    93       ) 
     94      ( filegroup_hdl, append, compression_level, cyclic, description, enabled, format, group_ref  & 
     95      , min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  & 
     96      , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix  & 
     97      , type ) 
    9498 
    9599  END SUBROUTINE xios(set_filegroup_attr_hdl) 
    96100 
    97101  SUBROUTINE xios(set_filegroup_attr_hdl_)   & 
    98     ( filegroup_hdl, append_, compression_level_, description_, enabled_, format_, group_ref_, min_digits_  & 
    99     , mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, record_offset_, split_freq_  & 
    100     , split_freq_format_, sync_freq_, time_counter_, time_counter_name_, timeseries_, ts_prefix_  & 
    101     , type_ ) 
     102    ( filegroup_hdl, append_, compression_level_, cyclic_, description_, enabled_, format_, group_ref_  & 
     103    , min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, record_offset_  & 
     104    , split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_, timeseries_  & 
     105    , ts_prefix_, type_ ) 
    102106 
    103107    IMPLICIT NONE 
    … …  
    106110      LOGICAL (KIND=C_BOOL) :: append__tmp 
    107111      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level_ 
     112      LOGICAL  , OPTIONAL, INTENT(IN) :: cyclic_ 
     113      LOGICAL (KIND=C_BOOL) :: cyclic__tmp 
    108114      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_ 
    109115      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled_ 
    … …  
    137143      ENDIF 
    138144 
     145      IF (PRESENT(cyclic_)) THEN 
     146        cyclic__tmp = cyclic_ 
     147        CALL cxios_set_filegroup_cyclic(filegroup_hdl%daddr, cyclic__tmp) 
     148      ENDIF 
     149 
    139150      IF (PRESENT(description_)) THEN 
    140151        CALL cxios_set_filegroup_description(filegroup_hdl%daddr, description_, len(description_)) 
    … …  
    221232 
    222233  SUBROUTINE xios(get_filegroup_attr)  & 
    223     ( filegroup_id, append, compression_level, description, enabled, format, group_ref, min_digits  & 
     234    ( filegroup_id, append, compression_level, cyclic, description, enabled, format, group_ref, min_digits  & 
    224235    , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq  & 
    225236    , split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type  & 
    … …  
    232243      LOGICAL (KIND=C_BOOL) :: append_tmp 
    233244      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level 
     245      LOGICAL  , OPTIONAL, INTENT(OUT) :: cyclic 
     246      LOGICAL (KIND=C_BOOL) :: cyclic_tmp 
    234247      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description 
    235248      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled 
    … …  
    256269      CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl) 
    257270      CALL xios(get_filegroup_attr_hdl_)   & 
    258       ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  & 
    259       , 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       ) 
     271      ( filegroup_hdl, append, compression_level, cyclic, description, enabled, format, group_ref  & 
     272      , min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  & 
     273      , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix  & 
     274      , type ) 
    262275 
    263276  END SUBROUTINE xios(get_filegroup_attr) 
    264277 
    265278  SUBROUTINE xios(get_filegroup_attr_hdl)  & 
    266     ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  & 
    267     , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq  & 
    268     , split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type  & 
    269     ) 
     279    ( filegroup_hdl, append, compression_level, cyclic, description, enabled, format, group_ref  & 
     280    , min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  & 
     281    , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix  & 
     282    , type ) 
    270283 
    271284    IMPLICIT NONE 
    … …  
    274287      LOGICAL (KIND=C_BOOL) :: append_tmp 
    275288      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level 
     289      LOGICAL  , OPTIONAL, INTENT(OUT) :: cyclic 
     290      LOGICAL (KIND=C_BOOL) :: cyclic_tmp 
    276291      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description 
    277292      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled 
    … …  
    297312 
    298313      CALL xios(get_filegroup_attr_hdl_)  & 
    299       ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  & 
    300       , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq  & 
    301       , split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type  & 
    302       ) 
     314      ( filegroup_hdl, append, compression_level, cyclic, description, enabled, format, group_ref  & 
     315      , min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  & 
     316      , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix  & 
     317      , type ) 
    303318 
    304319  END SUBROUTINE xios(get_filegroup_attr_hdl) 
    305320 
    306321  SUBROUTINE xios(get_filegroup_attr_hdl_)   & 
    307     ( filegroup_hdl, append_, compression_level_, description_, enabled_, format_, group_ref_, min_digits_  & 
    308     , mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, record_offset_, split_freq_  & 
    309     , split_freq_format_, sync_freq_, time_counter_, time_counter_name_, timeseries_, ts_prefix_  & 
    310     , type_ ) 
     322    ( filegroup_hdl, append_, compression_level_, cyclic_, description_, enabled_, format_, group_ref_  & 
     323    , min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, record_offset_  & 
     324    , split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_, timeseries_  & 
     325    , ts_prefix_, type_ ) 
    311326 
    312327    IMPLICIT NONE 
    … …  
    315330      LOGICAL (KIND=C_BOOL) :: append__tmp 
    316331      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level_ 
     332      LOGICAL  , OPTIONAL, INTENT(OUT) :: cyclic_ 
     333      LOGICAL (KIND=C_BOOL) :: cyclic__tmp 
    317334      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_ 
    318335      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled_ 
    … …  
    346363      ENDIF 
    347364 
     365      IF (PRESENT(cyclic_)) THEN 
     366        CALL cxios_get_filegroup_cyclic(filegroup_hdl%daddr, cyclic__tmp) 
     367        cyclic_ = cyclic__tmp 
     368      ENDIF 
     369 
    348370      IF (PRESENT(description_)) THEN 
    349371        CALL cxios_get_filegroup_description(filegroup_hdl%daddr, description_, len(description_)) 
    … …  
    430452 
    431453  SUBROUTINE xios(is_defined_filegroup_attr)  & 
    432     ( filegroup_id, append, compression_level, description, enabled, format, group_ref, min_digits  & 
     454    ( filegroup_id, append, compression_level, cyclic, description, enabled, format, group_ref, min_digits  & 
    433455    , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq  & 
    434456    , split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type  & 
    … …  
    442464      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 
    443465      LOGICAL(KIND=C_BOOL) :: compression_level_tmp 
     466      LOGICAL, OPTIONAL, INTENT(OUT) :: cyclic 
     467      LOGICAL(KIND=C_BOOL) :: cyclic_tmp 
    444468      LOGICAL, OPTIONAL, INTENT(OUT) :: description 
    445469      LOGICAL(KIND=C_BOOL) :: description_tmp 
    … …  
    485509      CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl) 
    486510      CALL xios(is_defined_filegroup_attr_hdl_)   & 
    487       ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  & 
    488       , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq  & 
    489       , split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type  & 
    490       ) 
     511      ( filegroup_hdl, append, compression_level, cyclic, description, enabled, format, group_ref  & 
     512      , min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  & 
     513      , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix  & 
     514      , type ) 
    491515 
    492516  END SUBROUTINE xios(is_defined_filegroup_attr) 
    493517 
    494518  SUBROUTINE xios(is_defined_filegroup_attr_hdl)  & 
    495     ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  & 
    496     , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq  & 
    497     , split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type  & 
    498     ) 
     519    ( filegroup_hdl, append, compression_level, cyclic, description, enabled, format, group_ref  & 
     520    , min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  & 
     521    , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix  & 
     522    , type ) 
    499523 
    500524    IMPLICIT NONE 
    … …  
    504528      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 
    505529      LOGICAL(KIND=C_BOOL) :: compression_level_tmp 
     530      LOGICAL, OPTIONAL, INTENT(OUT) :: cyclic 
     531      LOGICAL(KIND=C_BOOL) :: cyclic_tmp 
    506532      LOGICAL, OPTIONAL, INTENT(OUT) :: description 
    507533      LOGICAL(KIND=C_BOOL) :: description_tmp 
    … …  
    546572 
    547573      CALL xios(is_defined_filegroup_attr_hdl_)  & 
    548       ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  & 
    549       , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq  & 
    550       , split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type  & 
    551       ) 
     574      ( filegroup_hdl, append, compression_level, cyclic, description, enabled, format, group_ref  & 
     575      , min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset  & 
     576      , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, timeseries, ts_prefix  & 
     577      , type ) 
    552578 
    553579  END SUBROUTINE xios(is_defined_filegroup_attr_hdl) 
    554580 
    555581  SUBROUTINE xios(is_defined_filegroup_attr_hdl_)   & 
    556     ( filegroup_hdl, append_, compression_level_, description_, enabled_, format_, group_ref_, min_digits_  & 
    557     , mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, record_offset_, split_freq_  & 
    558     , split_freq_format_, sync_freq_, time_counter_, time_counter_name_, timeseries_, ts_prefix_  & 
    559     , type_ ) 
     582    ( filegroup_hdl, append_, compression_level_, cyclic_, description_, enabled_, format_, group_ref_  & 
     583    , min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, record_offset_  & 
     584    , split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_, timeseries_  & 
     585    , ts_prefix_, type_ ) 
    560586 
    561587    IMPLICIT NONE 
    … …  
    565591      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_ 
    566592      LOGICAL(KIND=C_BOOL) :: compression_level__tmp 
     593      LOGICAL, OPTIONAL, INTENT(OUT) :: cyclic_ 
     594      LOGICAL(KIND=C_BOOL) :: cyclic__tmp 
    567595      LOGICAL, OPTIONAL, INTENT(OUT) :: description_ 
    568596      LOGICAL(KIND=C_BOOL) :: description__tmp 
    … …  
    616644      ENDIF 
    617645 
     646      IF (PRESENT(cyclic_)) THEN 
     647        cyclic__tmp = cxios_is_defined_filegroup_cyclic(filegroup_hdl%daddr) 
     648        cyclic_ = cyclic__tmp 
     649      ENDIF 
     650 
    618651      IF (PRESENT(description_)) THEN 
    619652        description__tmp = cxios_is_defined_filegroup_description(filegroup_hdl%daddr) 
Note: See TracChangeset for help on using the changeset viewer.