Ignore:
Timestamp:
10/24/16 16:16:51 (5 years ago)
Author:
mhnguyen
Message:

Fortran interfaces:

+) Adding Fortran interfaces of transformation

Test
+) Only complilation on Curie

File:
1 edited

Legend:

Unmodified
Added
Removed
  • XIOS/trunk/src/interface/fortran/ixios_interfaces.F90

    r961 r981  
    6363USE iscalargroup_attr, ONLY : xios(set_scalargroup_attr_hdl), xios(get_scalargroup_attr_hdl), xios(is_defined_scalargroup_attr_hdl) 
    6464 
    65 USE izoom_axis, ONLY : xios(get_zoom_axis_handle) 
    66  
    67 USE izoom_axis_attr, ONLY : xios(set_zoom_axis_attr_hdl), xios(get_zoom_axis_attr_hdl), xios(is_defined_zoom_axis_attr_hdl) 
    68  
     65!------------------------------------------------------------------------------- 
     66!!! Transformation INTERFACES 
     67!------------------------------------------------------------------------------- 
     68!!! DOMAIN TRANSFORMATIONS 
    6969USE izoom_domain, ONLY : xios(get_zoom_domain_handle) 
    7070 
    7171USE izoom_domain_attr, ONLY : xios(set_zoom_domain_attr_hdl), xios(get_zoom_domain_attr_hdl), xios(is_defined_zoom_domain_attr_hdl) 
    72  
    73 USE iinterpolate_axis, ONLY : xios(get_interpolate_axis_handle) 
    74  
    75 USE iinterpolate_axis_attr, ONLY : xios(set_interpolate_axis_attr_hdl), xios(get_interpolate_axis_attr_hdl), & 
    76                                    xios(is_defined_interpolate_axis_attr_hdl) 
    7772 
    7873USE iinterpolate_domain, ONLY : xios(get_interpolate_domain_handle) 
     
    8075USE iinterpolate_domain_attr, ONLY : xios(set_interpolate_domain_attr_hdl), xios(get_interpolate_domain_attr_hdl), & 
    8176                                     xios(is_defined_interpolate_domain_attr_hdl) 
    82  
    83 USE iinverse_axis, ONLY : xios(get_inverse_axis_handle) 
    84  
    85 USE iinverse_axis_attr, ONLY : xios(set_inverse_axis_attr_hdl), xios(get_inverse_axis_attr_hdl), xios(is_defined_inverse_axis_attr_hdl) 
    8677 
    8778USE igenerate_rectilinear_domain, ONLY : xios(get_generate_rectilinear_domain_handle) 
     
    9081                                              xios(get_generate_rectilinear_domain_attr_hdl), & 
    9182                                              xios(is_defined_generate_rectilinear_domain_attr_hdl) 
     83 
    9284USE icompute_connectivity_domain, ONLY : xios(get_compute_connectivity_domain_handle) 
    9385 
     
    9688                                              xios(is_defined_compute_connectivity_domain_attr_hdl) 
    9789 
     90USE iexpand_domain, ONLY : xios(get_expand_domain_handle) 
     91 
     92USE iexpand_domain_attr, ONLY : xios(set_expand_domain_attr_hdl), & 
     93                                xios(get_expand_domain_attr_hdl), & 
     94                                xios(is_defined_expand_domain_attr_hdl) 
     95 
     96!!! AXIS TRANSFORMATIONS 
     97USE izoom_axis, ONLY : xios(get_zoom_axis_handle) 
     98 
     99USE izoom_axis_attr, ONLY : xios(set_zoom_axis_attr_hdl), xios(get_zoom_axis_attr_hdl), xios(is_defined_zoom_axis_attr_hdl) 
     100 
     101USE iinterpolate_axis, ONLY : xios(get_interpolate_axis_handle) 
     102 
     103USE iinterpolate_axis_attr, ONLY : xios(set_interpolate_axis_attr_hdl), & 
     104                                   xios(get_interpolate_axis_attr_hdl), & 
     105                                   xios(is_defined_interpolate_axis_attr_hdl) 
     106 
     107USE iinverse_axis, ONLY : xios(get_inverse_axis_handle) 
     108 
     109USE iinverse_axis_attr, ONLY : xios(set_inverse_axis_attr_hdl), & 
     110                               xios(get_inverse_axis_attr_hdl), & 
     111                               xios(is_defined_inverse_axis_attr_hdl) 
     112 
     113USE ireduce_domain_to_axis, ONLY : xios(get_reduce_domain_to_axis_handle) 
     114 
     115USE ireduce_domain_to_axis_attr, ONLY : xios(set_reduce_domain_to_axis_attr_hdl), & 
     116                                        xios(get_reduce_domain_to_axis_attr_hdl), & 
     117                                        xios(is_defined_reduce_domain_to_axis_attr_hdl) 
     118 
     119USE iextract_domain_to_axis, ONLY : xios(get_extract_domain_to_axis_handle) 
     120 
     121USE iextract_domain_to_axis_attr, ONLY : xios(set_extract_domain_to_axis_attr_hdl), & 
     122                                         xios(get_extract_domain_to_axis_attr_hdl), & 
     123                                         xios(is_defined_extract_domain_to_axis_attr_hdl) 
     124 
     125!!! SCALAR TRANSFORMATIONS 
     126 
     127 
    98128USE ireduce_axis_to_scalar, ONLY : xios(get_reduce_axis_to_scalar_handle) 
    99129 
     
    101131                                        xios(get_reduce_axis_to_scalar_attr_hdl), & 
    102132                                        xios(is_defined_reduce_axis_to_scalar_attr_hdl) 
     133 
     134USE ireduce_domain_to_scalar, ONLY : xios(get_reduce_domain_to_scalar_handle) 
     135 
     136USE ireduce_domain_to_scalar_attr, ONLY : xios(set_reduce_domain_to_scalar_attr_hdl), & 
     137                                          xios(get_reduce_domain_to_scalar_attr_hdl), & 
     138                                          xios(is_defined_reduce_domain_to_scalar_attr_hdl) 
     139 
     140USE iextract_axis_to_scalar, ONLY : xios(get_extract_axis_to_scalar_handle) 
     141 
     142USE iextract_axis_to_scalar_attr, ONLY : xios(set_extract_axis_to_scalar_attr_hdl), & 
     143                                         xios(get_extract_axis_to_scalar_attr_hdl), & 
     144                                         xios(is_defined_extract_axis_to_scalar_attr_hdl) 
    103145 
    104146USE ixml_tree, ONLY : xios(add_axis), xios(add_file), xios(add_grid), xios(add_field), xios(add_domain),   & 
     
    111153                      xios(add_interpolateaxistoaxis), xios(add_inverseaxistoaxis), xios(add_scalar),      & 
    112154                      xios(add_scalargroup), xios(add_scalartogrid), xios(add_reduceaxistoscalartoscalar), & 
    113                       xios(add_computeconnectivitydomaintodomain) 
     155                      xios(add_computeconnectivitydomaintodomain), xios(add_reducedomaintoaxistoaxis),     & 
     156                      xios(add_extractdomaintoaxistoaxis), xios(add_reducedomaintoscalartoscalar),         & 
     157                      xios(add_extractaxistoscalartoscalar), xios(add_expanddomaintodomain) 
    114158 
    115159PRIVATE 
     
    125169                   xios(set_generate_rectilinear_domain_attr_hdl), xios(set_scalar_attr_hdl),                & 
    126170                   xios(set_scalargroup_attr_hdl), xios(set_reduce_axis_to_scalar_attr_hdl),                 & 
    127                    xios(set_compute_connectivity_domain_attr_hdl) 
     171                   xios(set_compute_connectivity_domain_attr_hdl), xios(set_reduce_domain_to_scalar_attr_hdl), & 
     172                   xios(set_reduce_domain_to_axis_attr_hdl), xios(set_extract_domain_to_axis_attr_hdl),        & 
     173                   xios(set_extract_axis_to_scalar_attr_hdl), xios(set_expand_domain_attr_hdl) 
    128174END INTERFACE xios(set_attr) 
     175 
    129176 
    130177INTERFACE xios(get_attr) 
     
    138185                   xios(get_generate_rectilinear_domain_attr_hdl), xios(get_scalar_attr_hdl),                & 
    139186                   xios(get_scalargroup_attr_hdl), xios(get_reduce_axis_to_scalar_attr_hdl),                 & 
    140                    xios(get_compute_connectivity_domain_attr_hdl) 
     187                   xios(get_compute_connectivity_domain_attr_hdl), xios(get_reduce_domain_to_scalar_attr_hdl), & 
     188                   xios(get_reduce_domain_to_axis_attr_hdl), xios(get_extract_domain_to_axis_attr_hdl),        & 
     189                   xios(get_extract_axis_to_scalar_attr_hdl), xios(get_expand_domain_attr_hdl) 
    141190END INTERFACE xios(get_attr) 
    142191 
     
    151200                   xios(is_defined_inverse_axis_attr_hdl), xios(is_defined_generate_rectilinear_domain_attr_hdl),                 & 
    152201                   xios(is_defined_scalar_attr_hdl), xios(is_defined_scalargroup_attr_hdl),                                       & 
    153                    xios(is_defined_reduce_axis_to_scalar_attr_hdl), xios(is_defined_compute_connectivity_domain_attr_hdl) 
     202                   xios(is_defined_reduce_axis_to_scalar_attr_hdl), xios(is_defined_compute_connectivity_domain_attr_hdl),        & 
     203                   xios(is_defined_reduce_domain_to_scalar_attr_hdl), xios(is_defined_reduce_domain_to_axis_attr_hdl),            & 
     204                   xios(is_defined_extract_domain_to_axis_attr_hdl), xios(is_defined_extract_axis_to_scalar_attr_hdl),            & 
     205                   xios(is_defined_expand_domain_attr_hdl) 
    154206END INTERFACE xios(is_defined_attr) 
    155207 
    156208INTERFACE xios(get_handle) 
    157   MODULE PROCEDURE xios(get_context_handle), xios(get_domain_handle), xios(get_domaingroup_handle), & 
    158                    xios(get_file_handle), xios(get_filegroup_handle), xios(get_grid_handle),        & 
    159                    xios(get_gridgroup_handle), xios(get_axis_handle), xios(get_axisgroup_handle),   & 
    160                    xios(get_field_handle), xios(get_fieldgroup_handle),xios(get_variable_handle),   & 
    161                    xios(get_variablegroup_handle), xios(get_zoom_axis_handle),                      & 
    162                    xios(get_zoom_domain_handle), xios(get_interpolate_axis_handle),                 & 
    163                    xios(get_interpolate_domain_handle), xios(get_inverse_axis_handle),              & 
    164                    xios(get_generate_rectilinear_domain_handle), xios(get_scalar_handle),           & 
    165                    xios(get_scalargroup_handle), xios(get_reduce_axis_to_scalar_handle),            & 
    166                    xios(get_compute_connectivity_domain_handle) 
     209  MODULE PROCEDURE xios(get_context_handle), xios(get_domain_handle), xios(get_domaingroup_handle),                  & 
     210                   xios(get_file_handle), xios(get_filegroup_handle), xios(get_grid_handle),                         & 
     211                   xios(get_gridgroup_handle), xios(get_axis_handle), xios(get_axisgroup_handle),                    & 
     212                   xios(get_field_handle), xios(get_fieldgroup_handle),xios(get_variable_handle),                    & 
     213                   xios(get_variablegroup_handle), xios(get_zoom_axis_handle),                                       & 
     214                   xios(get_zoom_domain_handle), xios(get_interpolate_axis_handle),                                  & 
     215                   xios(get_interpolate_domain_handle), xios(get_inverse_axis_handle),                               & 
     216                   xios(get_generate_rectilinear_domain_handle), xios(get_scalar_handle),                            & 
     217                   xios(get_scalargroup_handle), xios(get_reduce_axis_to_scalar_handle),                             & 
     218                   xios(get_compute_connectivity_domain_handle), xios(get_reduce_domain_to_scalar_handle),           & 
     219                   xios(get_reduce_domain_to_axis_handle), xios(get_extract_domain_to_axis_handle),                  & 
     220                   xios(get_extract_axis_to_scalar_handle), xios(get_expand_domain_handle) 
    167221END INTERFACE xios(get_handle) 
    168222 
     
    176230                   xios(add_zoomaxistoaxis), xios(add_interpolateaxistoaxis), xios(add_inverseaxistoaxis),           & 
    177231                   xios(add_scalar), xios(add_scalartogrid), xios(add_reduceaxistoscalartoscalar),                   & 
    178                    xios(add_computeconnectivitydomaintodomain) 
     232                   xios(add_computeconnectivitydomaintodomain), xios(add_reducedomaintoscalartoscalar),              & 
     233                   xios(add_reducedomaintoaxistoaxis), xios(add_extractdomaintoaxistoaxis),                          & 
     234                   xios(add_extractaxistoscalartoscalar), xios(add_expanddomaintodomain) 
    179235END INTERFACE xios(add_child) 
    180236 
Note: See TracChangeset for help on using the changeset viewer.