Ignore:
Timestamp:
08/25/15 10:50:21 (6 years ago)
Author:
rlacroix
Message:

Fix Fortran interface generation to avoid generating long lines.

Long lines can cause compilation issues with some compilers.

Location:
XIOS/trunk/src/interface/c_attr
Files:
7 edited

Legend:

Unmodified
Added
Removed
  • XIOS/trunk/src/interface/c_attr/icaxis_attr.cpp

    r666 r674  
    6767 
    6868 
    69   void cxios_set_axis_bounds(axis_Ptr axis_hdl, double* bounds, int extent1, int extent2) 
    70   { 
    71     CTimer::get("XIOS").resume(); 
    72     CArray<double,2> tmp(bounds, shape(extent1, extent2), neverDeleteData); 
     69  void cxios_set_axis_bounds(axis_Ptr axis_hdl, double* bounds, int* extent) 
     70  { 
     71    CTimer::get("XIOS").resume(); 
     72    CArray<double,2> tmp(bounds, shape(extent[0], extent[1]), neverDeleteData); 
    7373    axis_hdl->bounds.reference(tmp.copy()); 
    7474     CTimer::get("XIOS").suspend(); 
    7575  } 
    7676 
    77   void cxios_get_axis_bounds(axis_Ptr axis_hdl, double* bounds, int extent1, int extent2) 
    78   { 
    79     CTimer::get("XIOS").resume(); 
    80     CArray<double,2> tmp(bounds, shape(extent1, extent2), neverDeleteData); 
     77  void cxios_get_axis_bounds(axis_Ptr axis_hdl, double* bounds, int* extent) 
     78  { 
     79    CTimer::get("XIOS").resume(); 
     80    CArray<double,2> tmp(bounds, shape(extent[0], extent[1]), neverDeleteData); 
    8181    tmp=axis_hdl->bounds.getInheritedValue(); 
    8282     CTimer::get("XIOS").suspend(); 
     
    115115 
    116116 
    117   void cxios_set_axis_data_index(axis_Ptr axis_hdl, int* data_index, int extent1) 
    118   { 
    119     CTimer::get("XIOS").resume(); 
    120     CArray<int,1> tmp(data_index, shape(extent1), neverDeleteData); 
     117  void cxios_set_axis_data_index(axis_Ptr axis_hdl, int* data_index, int* extent) 
     118  { 
     119    CTimer::get("XIOS").resume(); 
     120    CArray<int,1> tmp(data_index, shape(extent[0]), neverDeleteData); 
    121121    axis_hdl->data_index.reference(tmp.copy()); 
    122122     CTimer::get("XIOS").suspend(); 
    123123  } 
    124124 
    125   void cxios_get_axis_data_index(axis_Ptr axis_hdl, int* data_index, int extent1) 
    126   { 
    127     CTimer::get("XIOS").resume(); 
    128     CArray<int,1> tmp(data_index, shape(extent1), neverDeleteData); 
     125  void cxios_get_axis_data_index(axis_Ptr axis_hdl, int* data_index, int* extent) 
     126  { 
     127    CTimer::get("XIOS").resume(); 
     128    CArray<int,1> tmp(data_index, shape(extent[0]), neverDeleteData); 
    129129    tmp=axis_hdl->data_index.getInheritedValue(); 
    130130     CTimer::get("XIOS").suspend(); 
     
    189189 
    190190 
    191   void cxios_set_axis_mask(axis_Ptr axis_hdl, bool* mask, int extent1) 
    192   { 
    193     CTimer::get("XIOS").resume(); 
    194     CArray<bool,1> tmp(mask, shape(extent1), neverDeleteData); 
     191  void cxios_set_axis_mask(axis_Ptr axis_hdl, bool* mask, int* extent) 
     192  { 
     193    CTimer::get("XIOS").resume(); 
     194    CArray<bool,1> tmp(mask, shape(extent[0]), neverDeleteData); 
    195195    axis_hdl->mask.reference(tmp.copy()); 
    196196     CTimer::get("XIOS").suspend(); 
    197197  } 
    198198 
    199   void cxios_get_axis_mask(axis_Ptr axis_hdl, bool* mask, int extent1) 
    200   { 
    201     CTimer::get("XIOS").resume(); 
    202     CArray<bool,1> tmp(mask, shape(extent1), neverDeleteData); 
     199  void cxios_get_axis_mask(axis_Ptr axis_hdl, bool* mask, int* extent) 
     200  { 
     201    CTimer::get("XIOS").resume(); 
     202    CArray<bool,1> tmp(mask, shape(extent[0]), neverDeleteData); 
    203203    tmp=axis_hdl->mask.getInheritedValue(); 
    204204     CTimer::get("XIOS").suspend(); 
     
    364364 
    365365 
    366   void cxios_set_axis_value(axis_Ptr axis_hdl, double* value, int extent1) 
    367   { 
    368     CTimer::get("XIOS").resume(); 
    369     CArray<double,1> tmp(value, shape(extent1), neverDeleteData); 
     366  void cxios_set_axis_value(axis_Ptr axis_hdl, double* value, int* extent) 
     367  { 
     368    CTimer::get("XIOS").resume(); 
     369    CArray<double,1> tmp(value, shape(extent[0]), neverDeleteData); 
    370370    axis_hdl->value.reference(tmp.copy()); 
    371371     CTimer::get("XIOS").suspend(); 
    372372  } 
    373373 
    374   void cxios_get_axis_value(axis_Ptr axis_hdl, double* value, int extent1) 
    375   { 
    376     CTimer::get("XIOS").resume(); 
    377     CArray<double,1> tmp(value, shape(extent1), neverDeleteData); 
     374  void cxios_get_axis_value(axis_Ptr axis_hdl, double* value, int* extent) 
     375  { 
     376    CTimer::get("XIOS").resume(); 
     377    CArray<double,1> tmp(value, shape(extent[0]), neverDeleteData); 
    378378    tmp=axis_hdl->value.getInheritedValue(); 
    379379     CTimer::get("XIOS").suspend(); 
  • XIOS/trunk/src/interface/c_attr/icaxisgroup_attr.cpp

    r666 r674  
    6767 
    6868 
    69   void cxios_set_axisgroup_bounds(axisgroup_Ptr axisgroup_hdl, double* bounds, int extent1, int extent2) 
    70   { 
    71     CTimer::get("XIOS").resume(); 
    72     CArray<double,2> tmp(bounds, shape(extent1, extent2), neverDeleteData); 
     69  void cxios_set_axisgroup_bounds(axisgroup_Ptr axisgroup_hdl, double* bounds, int* extent) 
     70  { 
     71    CTimer::get("XIOS").resume(); 
     72    CArray<double,2> tmp(bounds, shape(extent[0], extent[1]), neverDeleteData); 
    7373    axisgroup_hdl->bounds.reference(tmp.copy()); 
    7474     CTimer::get("XIOS").suspend(); 
    7575  } 
    7676 
    77   void cxios_get_axisgroup_bounds(axisgroup_Ptr axisgroup_hdl, double* bounds, int extent1, int extent2) 
    78   { 
    79     CTimer::get("XIOS").resume(); 
    80     CArray<double,2> tmp(bounds, shape(extent1, extent2), neverDeleteData); 
     77  void cxios_get_axisgroup_bounds(axisgroup_Ptr axisgroup_hdl, double* bounds, int* extent) 
     78  { 
     79    CTimer::get("XIOS").resume(); 
     80    CArray<double,2> tmp(bounds, shape(extent[0], extent[1]), neverDeleteData); 
    8181    tmp=axisgroup_hdl->bounds.getInheritedValue(); 
    8282     CTimer::get("XIOS").suspend(); 
     
    115115 
    116116 
    117   void cxios_set_axisgroup_data_index(axisgroup_Ptr axisgroup_hdl, int* data_index, int extent1) 
    118   { 
    119     CTimer::get("XIOS").resume(); 
    120     CArray<int,1> tmp(data_index, shape(extent1), neverDeleteData); 
     117  void cxios_set_axisgroup_data_index(axisgroup_Ptr axisgroup_hdl, int* data_index, int* extent) 
     118  { 
     119    CTimer::get("XIOS").resume(); 
     120    CArray<int,1> tmp(data_index, shape(extent[0]), neverDeleteData); 
    121121    axisgroup_hdl->data_index.reference(tmp.copy()); 
    122122     CTimer::get("XIOS").suspend(); 
    123123  } 
    124124 
    125   void cxios_get_axisgroup_data_index(axisgroup_Ptr axisgroup_hdl, int* data_index, int extent1) 
    126   { 
    127     CTimer::get("XIOS").resume(); 
    128     CArray<int,1> tmp(data_index, shape(extent1), neverDeleteData); 
     125  void cxios_get_axisgroup_data_index(axisgroup_Ptr axisgroup_hdl, int* data_index, int* extent) 
     126  { 
     127    CTimer::get("XIOS").resume(); 
     128    CArray<int,1> tmp(data_index, shape(extent[0]), neverDeleteData); 
    129129    tmp=axisgroup_hdl->data_index.getInheritedValue(); 
    130130     CTimer::get("XIOS").suspend(); 
     
    215215 
    216216 
    217   void cxios_set_axisgroup_mask(axisgroup_Ptr axisgroup_hdl, bool* mask, int extent1) 
    218   { 
    219     CTimer::get("XIOS").resume(); 
    220     CArray<bool,1> tmp(mask, shape(extent1), neverDeleteData); 
     217  void cxios_set_axisgroup_mask(axisgroup_Ptr axisgroup_hdl, bool* mask, int* extent) 
     218  { 
     219    CTimer::get("XIOS").resume(); 
     220    CArray<bool,1> tmp(mask, shape(extent[0]), neverDeleteData); 
    221221    axisgroup_hdl->mask.reference(tmp.copy()); 
    222222     CTimer::get("XIOS").suspend(); 
    223223  } 
    224224 
    225   void cxios_get_axisgroup_mask(axisgroup_Ptr axisgroup_hdl, bool* mask, int extent1) 
    226   { 
    227     CTimer::get("XIOS").resume(); 
    228     CArray<bool,1> tmp(mask, shape(extent1), neverDeleteData); 
     225  void cxios_get_axisgroup_mask(axisgroup_Ptr axisgroup_hdl, bool* mask, int* extent) 
     226  { 
     227    CTimer::get("XIOS").resume(); 
     228    CArray<bool,1> tmp(mask, shape(extent[0]), neverDeleteData); 
    229229    tmp=axisgroup_hdl->mask.getInheritedValue(); 
    230230     CTimer::get("XIOS").suspend(); 
     
    390390 
    391391 
    392   void cxios_set_axisgroup_value(axisgroup_Ptr axisgroup_hdl, double* value, int extent1) 
    393   { 
    394     CTimer::get("XIOS").resume(); 
    395     CArray<double,1> tmp(value, shape(extent1), neverDeleteData); 
     392  void cxios_set_axisgroup_value(axisgroup_Ptr axisgroup_hdl, double* value, int* extent) 
     393  { 
     394    CTimer::get("XIOS").resume(); 
     395    CArray<double,1> tmp(value, shape(extent[0]), neverDeleteData); 
    396396    axisgroup_hdl->value.reference(tmp.copy()); 
    397397     CTimer::get("XIOS").suspend(); 
    398398  } 
    399399 
    400   void cxios_get_axisgroup_value(axisgroup_Ptr axisgroup_hdl, double* value, int extent1) 
    401   { 
    402     CTimer::get("XIOS").resume(); 
    403     CArray<double,1> tmp(value, shape(extent1), neverDeleteData); 
     400  void cxios_get_axisgroup_value(axisgroup_Ptr axisgroup_hdl, double* value, int* extent) 
     401  { 
     402    CTimer::get("XIOS").resume(); 
     403    CArray<double,1> tmp(value, shape(extent[0]), neverDeleteData); 
    404404    tmp=axisgroup_hdl->value.getInheritedValue(); 
    405405     CTimer::get("XIOS").suspend(); 
  • XIOS/trunk/src/interface/c_attr/iccalendar_wrapper_attr.cpp

    r591 r674  
    110110 
    111111 
    112   void cxios_set_calendar_wrapper_month_lengths(calendar_wrapper_Ptr calendar_wrapper_hdl, int* month_lengths, int extent1) 
    113   { 
    114     CTimer::get("XIOS").resume(); 
    115     CArray<int,1> tmp(month_lengths, shape(extent1), neverDeleteData); 
     112  void cxios_set_calendar_wrapper_month_lengths(calendar_wrapper_Ptr calendar_wrapper_hdl, int* month_lengths, int* extent) 
     113  { 
     114    CTimer::get("XIOS").resume(); 
     115    CArray<int,1> tmp(month_lengths, shape(extent[0]), neverDeleteData); 
    116116    calendar_wrapper_hdl->month_lengths.reference(tmp.copy()); 
    117117     CTimer::get("XIOS").suspend(); 
    118118  } 
    119119 
    120   void cxios_get_calendar_wrapper_month_lengths(calendar_wrapper_Ptr calendar_wrapper_hdl, int* month_lengths, int extent1) 
    121   { 
    122     CTimer::get("XIOS").resume(); 
    123     CArray<int,1> tmp(month_lengths, shape(extent1), neverDeleteData); 
     120  void cxios_get_calendar_wrapper_month_lengths(calendar_wrapper_Ptr calendar_wrapper_hdl, int* month_lengths, int* extent) 
     121  { 
     122    CTimer::get("XIOS").resume(); 
     123    CArray<int,1> tmp(month_lengths, shape(extent[0]), neverDeleteData); 
    124124    tmp=calendar_wrapper_hdl->month_lengths.getInheritedValue(); 
    125125     CTimer::get("XIOS").suspend(); 
  • XIOS/trunk/src/interface/c_attr/icdomain_attr.cpp

    r666 r674  
    1818  typedef xios::CDomain* domain_Ptr; 
    1919 
    20   void cxios_set_domain_area(domain_Ptr domain_hdl, double* area, int extent1, int extent2) 
    21   { 
    22     CTimer::get("XIOS").resume(); 
    23     CArray<double,2> tmp(area, shape(extent1, extent2), neverDeleteData); 
     20  void cxios_set_domain_area(domain_Ptr domain_hdl, double* area, int* extent) 
     21  { 
     22    CTimer::get("XIOS").resume(); 
     23    CArray<double,2> tmp(area, shape(extent[0], extent[1]), neverDeleteData); 
    2424    domain_hdl->area.reference(tmp.copy()); 
    2525     CTimer::get("XIOS").suspend(); 
    2626  } 
    2727 
    28   void cxios_get_domain_area(domain_Ptr domain_hdl, double* area, int extent1, int extent2) 
    29   { 
    30     CTimer::get("XIOS").resume(); 
    31     CArray<double,2> tmp(area, shape(extent1, extent2), neverDeleteData); 
     28  void cxios_get_domain_area(domain_Ptr domain_hdl, double* area, int* extent) 
     29  { 
     30    CTimer::get("XIOS").resume(); 
     31    CArray<double,2> tmp(area, shape(extent[0], extent[1]), neverDeleteData); 
    3232    tmp=domain_hdl->area.getInheritedValue(); 
    3333     CTimer::get("XIOS").suspend(); 
     
    4343 
    4444 
    45   void cxios_set_domain_bounds_lat_1d(domain_Ptr domain_hdl, double* bounds_lat_1d, int extent1, int extent2) 
    46   { 
    47     CTimer::get("XIOS").resume(); 
    48     CArray<double,2> tmp(bounds_lat_1d, shape(extent1, extent2), neverDeleteData); 
     45  void cxios_set_domain_bounds_lat_1d(domain_Ptr domain_hdl, double* bounds_lat_1d, int* extent) 
     46  { 
     47    CTimer::get("XIOS").resume(); 
     48    CArray<double,2> tmp(bounds_lat_1d, shape(extent[0], extent[1]), neverDeleteData); 
    4949    domain_hdl->bounds_lat_1d.reference(tmp.copy()); 
    5050     CTimer::get("XIOS").suspend(); 
    5151  } 
    5252 
    53   void cxios_get_domain_bounds_lat_1d(domain_Ptr domain_hdl, double* bounds_lat_1d, int extent1, int extent2) 
    54   { 
    55     CTimer::get("XIOS").resume(); 
    56     CArray<double,2> tmp(bounds_lat_1d, shape(extent1, extent2), neverDeleteData); 
     53  void cxios_get_domain_bounds_lat_1d(domain_Ptr domain_hdl, double* bounds_lat_1d, int* extent) 
     54  { 
     55    CTimer::get("XIOS").resume(); 
     56    CArray<double,2> tmp(bounds_lat_1d, shape(extent[0], extent[1]), neverDeleteData); 
    5757    tmp=domain_hdl->bounds_lat_1d.getInheritedValue(); 
    5858     CTimer::get("XIOS").suspend(); 
     
    6868 
    6969 
    70   void cxios_set_domain_bounds_lat_2d(domain_Ptr domain_hdl, double* bounds_lat_2d, int extent1, int extent2, int extent3) 
    71   { 
    72     CTimer::get("XIOS").resume(); 
    73     CArray<double,3> tmp(bounds_lat_2d, shape(extent1, extent2, extent3), neverDeleteData); 
     70  void cxios_set_domain_bounds_lat_2d(domain_Ptr domain_hdl, double* bounds_lat_2d, int* extent) 
     71  { 
     72    CTimer::get("XIOS").resume(); 
     73    CArray<double,3> tmp(bounds_lat_2d, shape(extent[0], extent[1], extent[2]), neverDeleteData); 
    7474    domain_hdl->bounds_lat_2d.reference(tmp.copy()); 
    7575     CTimer::get("XIOS").suspend(); 
    7676  } 
    7777 
    78   void cxios_get_domain_bounds_lat_2d(domain_Ptr domain_hdl, double* bounds_lat_2d, int extent1, int extent2, int extent3) 
    79   { 
    80     CTimer::get("XIOS").resume(); 
    81     CArray<double,3> tmp(bounds_lat_2d, shape(extent1, extent2, extent3), neverDeleteData); 
     78  void cxios_get_domain_bounds_lat_2d(domain_Ptr domain_hdl, double* bounds_lat_2d, int* extent) 
     79  { 
     80    CTimer::get("XIOS").resume(); 
     81    CArray<double,3> tmp(bounds_lat_2d, shape(extent[0], extent[1], extent[2]), neverDeleteData); 
    8282    tmp=domain_hdl->bounds_lat_2d.getInheritedValue(); 
    8383     CTimer::get("XIOS").suspend(); 
     
    9393 
    9494 
    95   void cxios_set_domain_bounds_lon_1d(domain_Ptr domain_hdl, double* bounds_lon_1d, int extent1, int extent2) 
    96   { 
    97     CTimer::get("XIOS").resume(); 
    98     CArray<double,2> tmp(bounds_lon_1d, shape(extent1, extent2), neverDeleteData); 
     95  void cxios_set_domain_bounds_lon_1d(domain_Ptr domain_hdl, double* bounds_lon_1d, int* extent) 
     96  { 
     97    CTimer::get("XIOS").resume(); 
     98    CArray<double,2> tmp(bounds_lon_1d, shape(extent[0], extent[1]), neverDeleteData); 
    9999    domain_hdl->bounds_lon_1d.reference(tmp.copy()); 
    100100     CTimer::get("XIOS").suspend(); 
    101101  } 
    102102 
    103   void cxios_get_domain_bounds_lon_1d(domain_Ptr domain_hdl, double* bounds_lon_1d, int extent1, int extent2) 
    104   { 
    105     CTimer::get("XIOS").resume(); 
    106     CArray<double,2> tmp(bounds_lon_1d, shape(extent1, extent2), neverDeleteData); 
     103  void cxios_get_domain_bounds_lon_1d(domain_Ptr domain_hdl, double* bounds_lon_1d, int* extent) 
     104  { 
     105    CTimer::get("XIOS").resume(); 
     106    CArray<double,2> tmp(bounds_lon_1d, shape(extent[0], extent[1]), neverDeleteData); 
    107107    tmp=domain_hdl->bounds_lon_1d.getInheritedValue(); 
    108108     CTimer::get("XIOS").suspend(); 
     
    118118 
    119119 
    120   void cxios_set_domain_bounds_lon_2d(domain_Ptr domain_hdl, double* bounds_lon_2d, int extent1, int extent2, int extent3) 
    121   { 
    122     CTimer::get("XIOS").resume(); 
    123     CArray<double,3> tmp(bounds_lon_2d, shape(extent1, extent2, extent3), neverDeleteData); 
     120  void cxios_set_domain_bounds_lon_2d(domain_Ptr domain_hdl, double* bounds_lon_2d, int* extent) 
     121  { 
     122    CTimer::get("XIOS").resume(); 
     123    CArray<double,3> tmp(bounds_lon_2d, shape(extent[0], extent[1], extent[2]), neverDeleteData); 
    124124    domain_hdl->bounds_lon_2d.reference(tmp.copy()); 
    125125     CTimer::get("XIOS").suspend(); 
    126126  } 
    127127 
    128   void cxios_get_domain_bounds_lon_2d(domain_Ptr domain_hdl, double* bounds_lon_2d, int extent1, int extent2, int extent3) 
    129   { 
    130     CTimer::get("XIOS").resume(); 
    131     CArray<double,3> tmp(bounds_lon_2d, shape(extent1, extent2, extent3), neverDeleteData); 
     128  void cxios_get_domain_bounds_lon_2d(domain_Ptr domain_hdl, double* bounds_lon_2d, int* extent) 
     129  { 
     130    CTimer::get("XIOS").resume(); 
     131    CArray<double,3> tmp(bounds_lon_2d, shape(extent[0], extent[1], extent[2]), neverDeleteData); 
    132132    tmp=domain_hdl->bounds_lon_2d.getInheritedValue(); 
    133133     CTimer::get("XIOS").suspend(); 
     
    166166 
    167167 
    168   void cxios_set_domain_data_i_index(domain_Ptr domain_hdl, int* data_i_index, int extent1) 
    169   { 
    170     CTimer::get("XIOS").resume(); 
    171     CArray<int,1> tmp(data_i_index, shape(extent1), neverDeleteData); 
     168  void cxios_set_domain_data_i_index(domain_Ptr domain_hdl, int* data_i_index, int* extent) 
     169  { 
     170    CTimer::get("XIOS").resume(); 
     171    CArray<int,1> tmp(data_i_index, shape(extent[0]), neverDeleteData); 
    172172    domain_hdl->data_i_index.reference(tmp.copy()); 
    173173     CTimer::get("XIOS").suspend(); 
    174174  } 
    175175 
    176   void cxios_get_domain_data_i_index(domain_Ptr domain_hdl, int* data_i_index, int extent1) 
    177   { 
    178     CTimer::get("XIOS").resume(); 
    179     CArray<int,1> tmp(data_i_index, shape(extent1), neverDeleteData); 
     176  void cxios_get_domain_data_i_index(domain_Ptr domain_hdl, int* data_i_index, int* extent) 
     177  { 
     178    CTimer::get("XIOS").resume(); 
     179    CArray<int,1> tmp(data_i_index, shape(extent[0]), neverDeleteData); 
    180180    tmp=domain_hdl->data_i_index.getInheritedValue(); 
    181181     CTimer::get("XIOS").suspend(); 
     
    214214 
    215215 
    216   void cxios_set_domain_data_j_index(domain_Ptr domain_hdl, int* data_j_index, int extent1) 
    217   { 
    218     CTimer::get("XIOS").resume(); 
    219     CArray<int,1> tmp(data_j_index, shape(extent1), neverDeleteData); 
     216  void cxios_set_domain_data_j_index(domain_Ptr domain_hdl, int* data_j_index, int* extent) 
     217  { 
     218    CTimer::get("XIOS").resume(); 
     219    CArray<int,1> tmp(data_j_index, shape(extent[0]), neverDeleteData); 
    220220    domain_hdl->data_j_index.reference(tmp.copy()); 
    221221     CTimer::get("XIOS").suspend(); 
    222222  } 
    223223 
    224   void cxios_get_domain_data_j_index(domain_Ptr domain_hdl, int* data_j_index, int extent1) 
    225   { 
    226     CTimer::get("XIOS").resume(); 
    227     CArray<int,1> tmp(data_j_index, shape(extent1), neverDeleteData); 
     224  void cxios_get_domain_data_j_index(domain_Ptr domain_hdl, int* data_j_index, int* extent) 
     225  { 
     226    CTimer::get("XIOS").resume(); 
     227    CArray<int,1> tmp(data_j_index, shape(extent[0]), neverDeleteData); 
    228228    tmp=domain_hdl->data_j_index.getInheritedValue(); 
    229229     CTimer::get("XIOS").suspend(); 
     
    360360 
    361361 
    362   void cxios_set_domain_i_index(domain_Ptr domain_hdl, int* i_index, int extent1) 
    363   { 
    364     CTimer::get("XIOS").resume(); 
    365     CArray<int,1> tmp(i_index, shape(extent1), neverDeleteData); 
     362  void cxios_set_domain_i_index(domain_Ptr domain_hdl, int* i_index, int* extent) 
     363  { 
     364    CTimer::get("XIOS").resume(); 
     365    CArray<int,1> tmp(i_index, shape(extent[0]), neverDeleteData); 
    366366    domain_hdl->i_index.reference(tmp.copy()); 
    367367     CTimer::get("XIOS").suspend(); 
    368368  } 
    369369 
    370   void cxios_get_domain_i_index(domain_Ptr domain_hdl, int* i_index, int extent1) 
    371   { 
    372     CTimer::get("XIOS").resume(); 
    373     CArray<int,1> tmp(i_index, shape(extent1), neverDeleteData); 
     370  void cxios_get_domain_i_index(domain_Ptr domain_hdl, int* i_index, int* extent) 
     371  { 
     372    CTimer::get("XIOS").resume(); 
     373    CArray<int,1> tmp(i_index, shape(extent[0]), neverDeleteData); 
    374374    tmp=domain_hdl->i_index.getInheritedValue(); 
    375375     CTimer::get("XIOS").suspend(); 
     
    408408 
    409409 
    410   void cxios_set_domain_j_index(domain_Ptr domain_hdl, int* j_index, int extent1) 
    411   { 
    412     CTimer::get("XIOS").resume(); 
    413     CArray<int,1> tmp(j_index, shape(extent1), neverDeleteData); 
     410  void cxios_set_domain_j_index(domain_Ptr domain_hdl, int* j_index, int* extent) 
     411  { 
     412    CTimer::get("XIOS").resume(); 
     413    CArray<int,1> tmp(j_index, shape(extent[0]), neverDeleteData); 
    414414    domain_hdl->j_index.reference(tmp.copy()); 
    415415     CTimer::get("XIOS").suspend(); 
    416416  } 
    417417 
    418   void cxios_get_domain_j_index(domain_Ptr domain_hdl, int* j_index, int extent1) 
    419   { 
    420     CTimer::get("XIOS").resume(); 
    421     CArray<int,1> tmp(j_index, shape(extent1), neverDeleteData); 
     418  void cxios_get_domain_j_index(domain_Ptr domain_hdl, int* j_index, int* extent) 
     419  { 
     420    CTimer::get("XIOS").resume(); 
     421    CArray<int,1> tmp(j_index, shape(extent[0]), neverDeleteData); 
    422422    tmp=domain_hdl->j_index.getInheritedValue(); 
    423423     CTimer::get("XIOS").suspend(); 
     
    456456 
    457457 
    458   void cxios_set_domain_latvalue_1d(domain_Ptr domain_hdl, double* latvalue_1d, int extent1) 
    459   { 
    460     CTimer::get("XIOS").resume(); 
    461     CArray<double,1> tmp(latvalue_1d, shape(extent1), neverDeleteData); 
     458  void cxios_set_domain_latvalue_1d(domain_Ptr domain_hdl, double* latvalue_1d, int* extent) 
     459  { 
     460    CTimer::get("XIOS").resume(); 
     461    CArray<double,1> tmp(latvalue_1d, shape(extent[0]), neverDeleteData); 
    462462    domain_hdl->latvalue_1d.reference(tmp.copy()); 
    463463     CTimer::get("XIOS").suspend(); 
    464464  } 
    465465 
    466   void cxios_get_domain_latvalue_1d(domain_Ptr domain_hdl, double* latvalue_1d, int extent1) 
    467   { 
    468     CTimer::get("XIOS").resume(); 
    469     CArray<double,1> tmp(latvalue_1d, shape(extent1), neverDeleteData); 
     466  void cxios_get_domain_latvalue_1d(domain_Ptr domain_hdl, double* latvalue_1d, int* extent) 
     467  { 
     468    CTimer::get("XIOS").resume(); 
     469    CArray<double,1> tmp(latvalue_1d, shape(extent[0]), neverDeleteData); 
    470470    tmp=domain_hdl->latvalue_1d.getInheritedValue(); 
    471471     CTimer::get("XIOS").suspend(); 
     
    481481 
    482482 
    483   void cxios_set_domain_latvalue_2d(domain_Ptr domain_hdl, double* latvalue_2d, int extent1, int extent2) 
    484   { 
    485     CTimer::get("XIOS").resume(); 
    486     CArray<double,2> tmp(latvalue_2d, shape(extent1, extent2), neverDeleteData); 
     483  void cxios_set_domain_latvalue_2d(domain_Ptr domain_hdl, double* latvalue_2d, int* extent) 
     484  { 
     485    CTimer::get("XIOS").resume(); 
     486    CArray<double,2> tmp(latvalue_2d, shape(extent[0], extent[1]), neverDeleteData); 
    487487    domain_hdl->latvalue_2d.reference(tmp.copy()); 
    488488     CTimer::get("XIOS").suspend(); 
    489489  } 
    490490 
    491   void cxios_get_domain_latvalue_2d(domain_Ptr domain_hdl, double* latvalue_2d, int extent1, int extent2) 
    492   { 
    493     CTimer::get("XIOS").resume(); 
    494     CArray<double,2> tmp(latvalue_2d, shape(extent1, extent2), neverDeleteData); 
     491  void cxios_get_domain_latvalue_2d(domain_Ptr domain_hdl, double* latvalue_2d, int* extent) 
     492  { 
     493    CTimer::get("XIOS").resume(); 
     494    CArray<double,2> tmp(latvalue_2d, shape(extent[0], extent[1]), neverDeleteData); 
    495495    tmp=domain_hdl->latvalue_2d.getInheritedValue(); 
    496496     CTimer::get("XIOS").suspend(); 
     
    532532 
    533533 
    534   void cxios_set_domain_lonvalue_1d(domain_Ptr domain_hdl, double* lonvalue_1d, int extent1) 
    535   { 
    536     CTimer::get("XIOS").resume(); 
    537     CArray<double,1> tmp(lonvalue_1d, shape(extent1), neverDeleteData); 
     534  void cxios_set_domain_lonvalue_1d(domain_Ptr domain_hdl, double* lonvalue_1d, int* extent) 
     535  { 
     536    CTimer::get("XIOS").resume(); 
     537    CArray<double,1> tmp(lonvalue_1d, shape(extent[0]), neverDeleteData); 
    538538    domain_hdl->lonvalue_1d.reference(tmp.copy()); 
    539539     CTimer::get("XIOS").suspend(); 
    540540  } 
    541541 
    542   void cxios_get_domain_lonvalue_1d(domain_Ptr domain_hdl, double* lonvalue_1d, int extent1) 
    543   { 
    544     CTimer::get("XIOS").resume(); 
    545     CArray<double,1> tmp(lonvalue_1d, shape(extent1), neverDeleteData); 
     542  void cxios_get_domain_lonvalue_1d(domain_Ptr domain_hdl, double* lonvalue_1d, int* extent) 
     543  { 
     544    CTimer::get("XIOS").resume(); 
     545    CArray<double,1> tmp(lonvalue_1d, shape(extent[0]), neverDeleteData); 
    546546    tmp=domain_hdl->lonvalue_1d.getInheritedValue(); 
    547547     CTimer::get("XIOS").suspend(); 
     
    557557 
    558558 
    559   void cxios_set_domain_lonvalue_2d(domain_Ptr domain_hdl, double* lonvalue_2d, int extent1, int extent2) 
    560   { 
    561     CTimer::get("XIOS").resume(); 
    562     CArray<double,2> tmp(lonvalue_2d, shape(extent1, extent2), neverDeleteData); 
     559  void cxios_set_domain_lonvalue_2d(domain_Ptr domain_hdl, double* lonvalue_2d, int* extent) 
     560  { 
     561    CTimer::get("XIOS").resume(); 
     562    CArray<double,2> tmp(lonvalue_2d, shape(extent[0], extent[1]), neverDeleteData); 
    563563    domain_hdl->lonvalue_2d.reference(tmp.copy()); 
    564564     CTimer::get("XIOS").suspend(); 
    565565  } 
    566566 
    567   void cxios_get_domain_lonvalue_2d(domain_Ptr domain_hdl, double* lonvalue_2d, int extent1, int extent2) 
    568   { 
    569     CTimer::get("XIOS").resume(); 
    570     CArray<double,2> tmp(lonvalue_2d, shape(extent1, extent2), neverDeleteData); 
     567  void cxios_get_domain_lonvalue_2d(domain_Ptr domain_hdl, double* lonvalue_2d, int* extent) 
     568  { 
     569    CTimer::get("XIOS").resume(); 
     570    CArray<double,2> tmp(lonvalue_2d, shape(extent[0], extent[1]), neverDeleteData); 
    571571    tmp=domain_hdl->lonvalue_2d.getInheritedValue(); 
    572572     CTimer::get("XIOS").suspend(); 
     
    582582 
    583583 
    584   void cxios_set_domain_mask_1d(domain_Ptr domain_hdl, bool* mask_1d, int extent1) 
    585   { 
    586     CTimer::get("XIOS").resume(); 
    587     CArray<bool,1> tmp(mask_1d, shape(extent1), neverDeleteData); 
     584  void cxios_set_domain_mask_1d(domain_Ptr domain_hdl, bool* mask_1d, int* extent) 
     585  { 
     586    CTimer::get("XIOS").resume(); 
     587    CArray<bool,1> tmp(mask_1d, shape(extent[0]), neverDeleteData); 
    588588    domain_hdl->mask_1d.reference(tmp.copy()); 
    589589     CTimer::get("XIOS").suspend(); 
    590590  } 
    591591 
    592   void cxios_get_domain_mask_1d(domain_Ptr domain_hdl, bool* mask_1d, int extent1) 
    593   { 
    594     CTimer::get("XIOS").resume(); 
    595     CArray<bool,1> tmp(mask_1d, shape(extent1), neverDeleteData); 
     592  void cxios_get_domain_mask_1d(domain_Ptr domain_hdl, bool* mask_1d, int* extent) 
     593  { 
     594    CTimer::get("XIOS").resume(); 
     595    CArray<bool,1> tmp(mask_1d, shape(extent[0]), neverDeleteData); 
    596596    tmp=domain_hdl->mask_1d.getInheritedValue(); 
    597597     CTimer::get("XIOS").suspend(); 
     
    607607 
    608608 
    609   void cxios_set_domain_mask_2d(domain_Ptr domain_hdl, bool* mask_2d, int extent1, int extent2) 
    610   { 
    611     CTimer::get("XIOS").resume(); 
    612     CArray<bool,2> tmp(mask_2d, shape(extent1, extent2), neverDeleteData); 
     609  void cxios_set_domain_mask_2d(domain_Ptr domain_hdl, bool* mask_2d, int* extent) 
     610  { 
     611    CTimer::get("XIOS").resume(); 
     612    CArray<bool,2> tmp(mask_2d, shape(extent[0], extent[1]), neverDeleteData); 
    613613    domain_hdl->mask_2d.reference(tmp.copy()); 
    614614     CTimer::get("XIOS").suspend(); 
    615615  } 
    616616 
    617   void cxios_get_domain_mask_2d(domain_Ptr domain_hdl, bool* mask_2d, int extent1, int extent2) 
    618   { 
    619     CTimer::get("XIOS").resume(); 
    620     CArray<bool,2> tmp(mask_2d, shape(extent1, extent2), neverDeleteData); 
     617  void cxios_get_domain_mask_2d(domain_Ptr domain_hdl, bool* mask_2d, int* extent) 
     618  { 
     619    CTimer::get("XIOS").resume(); 
     620    CArray<bool,2> tmp(mask_2d, shape(extent[0], extent[1]), neverDeleteData); 
    621621    tmp=domain_hdl->mask_2d.getInheritedValue(); 
    622622     CTimer::get("XIOS").suspend(); 
  • XIOS/trunk/src/interface/c_attr/icdomaingroup_attr.cpp

    r666 r674  
    1818  typedef xios::CDomainGroup* domaingroup_Ptr; 
    1919 
    20   void cxios_set_domaingroup_area(domaingroup_Ptr domaingroup_hdl, double* area, int extent1, int extent2) 
    21   { 
    22     CTimer::get("XIOS").resume(); 
    23     CArray<double,2> tmp(area, shape(extent1, extent2), neverDeleteData); 
     20  void cxios_set_domaingroup_area(domaingroup_Ptr domaingroup_hdl, double* area, int* extent) 
     21  { 
     22    CTimer::get("XIOS").resume(); 
     23    CArray<double,2> tmp(area, shape(extent[0], extent[1]), neverDeleteData); 
    2424    domaingroup_hdl->area.reference(tmp.copy()); 
    2525     CTimer::get("XIOS").suspend(); 
    2626  } 
    2727 
    28   void cxios_get_domaingroup_area(domaingroup_Ptr domaingroup_hdl, double* area, int extent1, int extent2) 
    29   { 
    30     CTimer::get("XIOS").resume(); 
    31     CArray<double,2> tmp(area, shape(extent1, extent2), neverDeleteData); 
     28  void cxios_get_domaingroup_area(domaingroup_Ptr domaingroup_hdl, double* area, int* extent) 
     29  { 
     30    CTimer::get("XIOS").resume(); 
     31    CArray<double,2> tmp(area, shape(extent[0], extent[1]), neverDeleteData); 
    3232    tmp=domaingroup_hdl->area.getInheritedValue(); 
    3333     CTimer::get("XIOS").suspend(); 
     
    4343 
    4444 
    45   void cxios_set_domaingroup_bounds_lat_1d(domaingroup_Ptr domaingroup_hdl, double* bounds_lat_1d, int extent1, int extent2) 
    46   { 
    47     CTimer::get("XIOS").resume(); 
    48     CArray<double,2> tmp(bounds_lat_1d, shape(extent1, extent2), neverDeleteData); 
     45  void cxios_set_domaingroup_bounds_lat_1d(domaingroup_Ptr domaingroup_hdl, double* bounds_lat_1d, int* extent) 
     46  { 
     47    CTimer::get("XIOS").resume(); 
     48    CArray<double,2> tmp(bounds_lat_1d, shape(extent[0], extent[1]), neverDeleteData); 
    4949    domaingroup_hdl->bounds_lat_1d.reference(tmp.copy()); 
    5050     CTimer::get("XIOS").suspend(); 
    5151  } 
    5252 
    53   void cxios_get_domaingroup_bounds_lat_1d(domaingroup_Ptr domaingroup_hdl, double* bounds_lat_1d, int extent1, int extent2) 
    54   { 
    55     CTimer::get("XIOS").resume(); 
    56     CArray<double,2> tmp(bounds_lat_1d, shape(extent1, extent2), neverDeleteData); 
     53  void cxios_get_domaingroup_bounds_lat_1d(domaingroup_Ptr domaingroup_hdl, double* bounds_lat_1d, int* extent) 
     54  { 
     55    CTimer::get("XIOS").resume(); 
     56    CArray<double,2> tmp(bounds_lat_1d, shape(extent[0], extent[1]), neverDeleteData); 
    5757    tmp=domaingroup_hdl->bounds_lat_1d.getInheritedValue(); 
    5858     CTimer::get("XIOS").suspend(); 
     
    6868 
    6969 
    70   void cxios_set_domaingroup_bounds_lat_2d(domaingroup_Ptr domaingroup_hdl, double* bounds_lat_2d, int extent1, int extent2, int extent3) 
    71   { 
    72     CTimer::get("XIOS").resume(); 
    73     CArray<double,3> tmp(bounds_lat_2d, shape(extent1, extent2, extent3), neverDeleteData); 
     70  void cxios_set_domaingroup_bounds_lat_2d(domaingroup_Ptr domaingroup_hdl, double* bounds_lat_2d, int* extent) 
     71  { 
     72    CTimer::get("XIOS").resume(); 
     73    CArray<double,3> tmp(bounds_lat_2d, shape(extent[0], extent[1], extent[2]), neverDeleteData); 
    7474    domaingroup_hdl->bounds_lat_2d.reference(tmp.copy()); 
    7575     CTimer::get("XIOS").suspend(); 
    7676  } 
    7777 
    78   void cxios_get_domaingroup_bounds_lat_2d(domaingroup_Ptr domaingroup_hdl, double* bounds_lat_2d, int extent1, int extent2, int extent3) 
    79   { 
    80     CTimer::get("XIOS").resume(); 
    81     CArray<double,3> tmp(bounds_lat_2d, shape(extent1, extent2, extent3), neverDeleteData); 
     78  void cxios_get_domaingroup_bounds_lat_2d(domaingroup_Ptr domaingroup_hdl, double* bounds_lat_2d, int* extent) 
     79  { 
     80    CTimer::get("XIOS").resume(); 
     81    CArray<double,3> tmp(bounds_lat_2d, shape(extent[0], extent[1], extent[2]), neverDeleteData); 
    8282    tmp=domaingroup_hdl->bounds_lat_2d.getInheritedValue(); 
    8383     CTimer::get("XIOS").suspend(); 
     
    9393 
    9494 
    95   void cxios_set_domaingroup_bounds_lon_1d(domaingroup_Ptr domaingroup_hdl, double* bounds_lon_1d, int extent1, int extent2) 
    96   { 
    97     CTimer::get("XIOS").resume(); 
    98     CArray<double,2> tmp(bounds_lon_1d, shape(extent1, extent2), neverDeleteData); 
     95  void cxios_set_domaingroup_bounds_lon_1d(domaingroup_Ptr domaingroup_hdl, double* bounds_lon_1d, int* extent) 
     96  { 
     97    CTimer::get("XIOS").resume(); 
     98    CArray<double,2> tmp(bounds_lon_1d, shape(extent[0], extent[1]), neverDeleteData); 
    9999    domaingroup_hdl->bounds_lon_1d.reference(tmp.copy()); 
    100100     CTimer::get("XIOS").suspend(); 
    101101  } 
    102102 
    103   void cxios_get_domaingroup_bounds_lon_1d(domaingroup_Ptr domaingroup_hdl, double* bounds_lon_1d, int extent1, int extent2) 
    104   { 
    105     CTimer::get("XIOS").resume(); 
    106     CArray<double,2> tmp(bounds_lon_1d, shape(extent1, extent2), neverDeleteData); 
     103  void cxios_get_domaingroup_bounds_lon_1d(domaingroup_Ptr domaingroup_hdl, double* bounds_lon_1d, int* extent) 
     104  { 
     105    CTimer::get("XIOS").resume(); 
     106    CArray<double,2> tmp(bounds_lon_1d, shape(extent[0], extent[1]), neverDeleteData); 
    107107    tmp=domaingroup_hdl->bounds_lon_1d.getInheritedValue(); 
    108108     CTimer::get("XIOS").suspend(); 
     
    118118 
    119119 
    120   void cxios_set_domaingroup_bounds_lon_2d(domaingroup_Ptr domaingroup_hdl, double* bounds_lon_2d, int extent1, int extent2, int extent3) 
    121   { 
    122     CTimer::get("XIOS").resume(); 
    123     CArray<double,3> tmp(bounds_lon_2d, shape(extent1, extent2, extent3), neverDeleteData); 
     120  void cxios_set_domaingroup_bounds_lon_2d(domaingroup_Ptr domaingroup_hdl, double* bounds_lon_2d, int* extent) 
     121  { 
     122    CTimer::get("XIOS").resume(); 
     123    CArray<double,3> tmp(bounds_lon_2d, shape(extent[0], extent[1], extent[2]), neverDeleteData); 
    124124    domaingroup_hdl->bounds_lon_2d.reference(tmp.copy()); 
    125125     CTimer::get("XIOS").suspend(); 
    126126  } 
    127127 
    128   void cxios_get_domaingroup_bounds_lon_2d(domaingroup_Ptr domaingroup_hdl, double* bounds_lon_2d, int extent1, int extent2, int extent3) 
    129   { 
    130     CTimer::get("XIOS").resume(); 
    131     CArray<double,3> tmp(bounds_lon_2d, shape(extent1, extent2, extent3), neverDeleteData); 
     128  void cxios_get_domaingroup_bounds_lon_2d(domaingroup_Ptr domaingroup_hdl, double* bounds_lon_2d, int* extent) 
     129  { 
     130    CTimer::get("XIOS").resume(); 
     131    CArray<double,3> tmp(bounds_lon_2d, shape(extent[0], extent[1], extent[2]), neverDeleteData); 
    132132    tmp=domaingroup_hdl->bounds_lon_2d.getInheritedValue(); 
    133133     CTimer::get("XIOS").suspend(); 
     
    166166 
    167167 
    168   void cxios_set_domaingroup_data_i_index(domaingroup_Ptr domaingroup_hdl, int* data_i_index, int extent1) 
    169   { 
    170     CTimer::get("XIOS").resume(); 
    171     CArray<int,1> tmp(data_i_index, shape(extent1), neverDeleteData); 
     168  void cxios_set_domaingroup_data_i_index(domaingroup_Ptr domaingroup_hdl, int* data_i_index, int* extent) 
     169  { 
     170    CTimer::get("XIOS").resume(); 
     171    CArray<int,1> tmp(data_i_index, shape(extent[0]), neverDeleteData); 
    172172    domaingroup_hdl->data_i_index.reference(tmp.copy()); 
    173173     CTimer::get("XIOS").suspend(); 
    174174  } 
    175175 
    176   void cxios_get_domaingroup_data_i_index(domaingroup_Ptr domaingroup_hdl, int* data_i_index, int extent1) 
    177   { 
    178     CTimer::get("XIOS").resume(); 
    179     CArray<int,1> tmp(data_i_index, shape(extent1), neverDeleteData); 
     176  void cxios_get_domaingroup_data_i_index(domaingroup_Ptr domaingroup_hdl, int* data_i_index, int* extent) 
     177  { 
     178    CTimer::get("XIOS").resume(); 
     179    CArray<int,1> tmp(data_i_index, shape(extent[0]), neverDeleteData); 
    180180    tmp=domaingroup_hdl->data_i_index.getInheritedValue(); 
    181181     CTimer::get("XIOS").suspend(); 
     
    214214 
    215215 
    216   void cxios_set_domaingroup_data_j_index(domaingroup_Ptr domaingroup_hdl, int* data_j_index, int extent1) 
    217   { 
    218     CTimer::get("XIOS").resume(); 
    219     CArray<int,1> tmp(data_j_index, shape(extent1), neverDeleteData); 
     216  void cxios_set_domaingroup_data_j_index(domaingroup_Ptr domaingroup_hdl, int* data_j_index, int* extent) 
     217  { 
     218    CTimer::get("XIOS").resume(); 
     219    CArray<int,1> tmp(data_j_index, shape(extent[0]), neverDeleteData); 
    220220    domaingroup_hdl->data_j_index.reference(tmp.copy()); 
    221221     CTimer::get("XIOS").suspend(); 
    222222  } 
    223223 
    224   void cxios_get_domaingroup_data_j_index(domaingroup_Ptr domaingroup_hdl, int* data_j_index, int extent1) 
    225   { 
    226     CTimer::get("XIOS").resume(); 
    227     CArray<int,1> tmp(data_j_index, shape(extent1), neverDeleteData); 
     224  void cxios_get_domaingroup_data_j_index(domaingroup_Ptr domaingroup_hdl, int* data_j_index, int* extent) 
     225  { 
     226    CTimer::get("XIOS").resume(); 
     227    CArray<int,1> tmp(data_j_index, shape(extent[0]), neverDeleteData); 
    228228    tmp=domaingroup_hdl->data_j_index.getInheritedValue(); 
    229229     CTimer::get("XIOS").suspend(); 
     
    386386 
    387387 
    388   void cxios_set_domaingroup_i_index(domaingroup_Ptr domaingroup_hdl, int* i_index, int extent1) 
    389   { 
    390     CTimer::get("XIOS").resume(); 
    391     CArray<int,1> tmp(i_index, shape(extent1), neverDeleteData); 
     388  void cxios_set_domaingroup_i_index(domaingroup_Ptr domaingroup_hdl, int* i_index, int* extent) 
     389  { 
     390    CTimer::get("XIOS").resume(); 
     391    CArray<int,1> tmp(i_index, shape(extent[0]), neverDeleteData); 
    392392    domaingroup_hdl->i_index.reference(tmp.copy()); 
    393393     CTimer::get("XIOS").suspend(); 
    394394  } 
    395395 
    396   void cxios_get_domaingroup_i_index(domaingroup_Ptr domaingroup_hdl, int* i_index, int extent1) 
    397   { 
    398     CTimer::get("XIOS").resume(); 
    399     CArray<int,1> tmp(i_index, shape(extent1), neverDeleteData); 
     396  void cxios_get_domaingroup_i_index(domaingroup_Ptr domaingroup_hdl, int* i_index, int* extent) 
     397  { 
     398    CTimer::get("XIOS").resume(); 
     399    CArray<int,1> tmp(i_index, shape(extent[0]), neverDeleteData); 
    400400    tmp=domaingroup_hdl->i_index.getInheritedValue(); 
    401401     CTimer::get("XIOS").suspend(); 
     
    434434 
    435435 
    436   void cxios_set_domaingroup_j_index(domaingroup_Ptr domaingroup_hdl, int* j_index, int extent1) 
    437   { 
    438     CTimer::get("XIOS").resume(); 
    439     CArray<int,1> tmp(j_index, shape(extent1), neverDeleteData); 
     436  void cxios_set_domaingroup_j_index(domaingroup_Ptr domaingroup_hdl, int* j_index, int* extent) 
     437  { 
     438    CTimer::get("XIOS").resume(); 
     439    CArray<int,1> tmp(j_index, shape(extent[0]), neverDeleteData); 
    440440    domaingroup_hdl->j_index.reference(tmp.copy()); 
    441441     CTimer::get("XIOS").suspend(); 
    442442  } 
    443443 
    444   void cxios_get_domaingroup_j_index(domaingroup_Ptr domaingroup_hdl, int* j_index, int extent1) 
    445   { 
    446     CTimer::get("XIOS").resume(); 
    447     CArray<int,1> tmp(j_index, shape(extent1), neverDeleteData); 
     444  void cxios_get_domaingroup_j_index(domaingroup_Ptr domaingroup_hdl, int* j_index, int* extent) 
     445  { 
     446    CTimer::get("XIOS").resume(); 
     447    CArray<int,1> tmp(j_index, shape(extent[0]), neverDeleteData); 
    448448    tmp=domaingroup_hdl->j_index.getInheritedValue(); 
    449449     CTimer::get("XIOS").suspend(); 
     
    482482 
    483483 
    484   void cxios_set_domaingroup_latvalue_1d(domaingroup_Ptr domaingroup_hdl, double* latvalue_1d, int extent1) 
    485   { 
    486     CTimer::get("XIOS").resume(); 
    487     CArray<double,1> tmp(latvalue_1d, shape(extent1), neverDeleteData); 
     484  void cxios_set_domaingroup_latvalue_1d(domaingroup_Ptr domaingroup_hdl, double* latvalue_1d, int* extent) 
     485  { 
     486    CTimer::get("XIOS").resume(); 
     487    CArray<double,1> tmp(latvalue_1d, shape(extent[0]), neverDeleteData); 
    488488    domaingroup_hdl->latvalue_1d.reference(tmp.copy()); 
    489489     CTimer::get("XIOS").suspend(); 
    490490  } 
    491491 
    492   void cxios_get_domaingroup_latvalue_1d(domaingroup_Ptr domaingroup_hdl, double* latvalue_1d, int extent1) 
    493   { 
    494     CTimer::get("XIOS").resume(); 
    495     CArray<double,1> tmp(latvalue_1d, shape(extent1), neverDeleteData); 
     492  void cxios_get_domaingroup_latvalue_1d(domaingroup_Ptr domaingroup_hdl, double* latvalue_1d, int* extent) 
     493  { 
     494    CTimer::get("XIOS").resume(); 
     495    CArray<double,1> tmp(latvalue_1d, shape(extent[0]), neverDeleteData); 
    496496    tmp=domaingroup_hdl->latvalue_1d.getInheritedValue(); 
    497497     CTimer::get("XIOS").suspend(); 
     
    507507 
    508508 
    509   void cxios_set_domaingroup_latvalue_2d(domaingroup_Ptr domaingroup_hdl, double* latvalue_2d, int extent1, int extent2) 
    510   { 
    511     CTimer::get("XIOS").resume(); 
    512     CArray<double,2> tmp(latvalue_2d, shape(extent1, extent2), neverDeleteData); 
     509  void cxios_set_domaingroup_latvalue_2d(domaingroup_Ptr domaingroup_hdl, double* latvalue_2d, int* extent) 
     510  { 
     511    CTimer::get("XIOS").resume(); 
     512    CArray<double,2> tmp(latvalue_2d, shape(extent[0], extent[1]), neverDeleteData); 
    513513    domaingroup_hdl->latvalue_2d.reference(tmp.copy()); 
    514514     CTimer::get("XIOS").suspend(); 
    515515  } 
    516516 
    517   void cxios_get_domaingroup_latvalue_2d(domaingroup_Ptr domaingroup_hdl, double* latvalue_2d, int extent1, int extent2) 
    518   { 
    519     CTimer::get("XIOS").resume(); 
    520     CArray<double,2> tmp(latvalue_2d, shape(extent1, extent2), neverDeleteData); 
     517  void cxios_get_domaingroup_latvalue_2d(domaingroup_Ptr domaingroup_hdl, double* latvalue_2d, int* extent) 
     518  { 
     519    CTimer::get("XIOS").resume(); 
     520    CArray<double,2> tmp(latvalue_2d, shape(extent[0], extent[1]), neverDeleteData); 
    521521    tmp=domaingroup_hdl->latvalue_2d.getInheritedValue(); 
    522522     CTimer::get("XIOS").suspend(); 
     
    558558 
    559559 
    560   void cxios_set_domaingroup_lonvalue_1d(domaingroup_Ptr domaingroup_hdl, double* lonvalue_1d, int extent1) 
    561   { 
    562     CTimer::get("XIOS").resume(); 
    563     CArray<double,1> tmp(lonvalue_1d, shape(extent1), neverDeleteData); 
     560  void cxios_set_domaingroup_lonvalue_1d(domaingroup_Ptr domaingroup_hdl, double* lonvalue_1d, int* extent) 
     561  { 
     562    CTimer::get("XIOS").resume(); 
     563    CArray<double,1> tmp(lonvalue_1d, shape(extent[0]), neverDeleteData); 
    564564    domaingroup_hdl->lonvalue_1d.reference(tmp.copy()); 
    565565     CTimer::get("XIOS").suspend(); 
    566566  } 
    567567 
    568   void cxios_get_domaingroup_lonvalue_1d(domaingroup_Ptr domaingroup_hdl, double* lonvalue_1d, int extent1) 
    569   { 
    570     CTimer::get("XIOS").resume(); 
    571     CArray<double,1> tmp(lonvalue_1d, shape(extent1), neverDeleteData); 
     568  void cxios_get_domaingroup_lonvalue_1d(domaingroup_Ptr domaingroup_hdl, double* lonvalue_1d, int* extent) 
     569  { 
     570    CTimer::get("XIOS").resume(); 
     571    CArray<double,1> tmp(lonvalue_1d, shape(extent[0]), neverDeleteData); 
    572572    tmp=domaingroup_hdl->lonvalue_1d.getInheritedValue(); 
    573573     CTimer::get("XIOS").suspend(); 
     
    583583 
    584584 
    585   void cxios_set_domaingroup_lonvalue_2d(domaingroup_Ptr domaingroup_hdl, double* lonvalue_2d, int extent1, int extent2) 
    586   { 
    587     CTimer::get("XIOS").resume(); 
    588     CArray<double,2> tmp(lonvalue_2d, shape(extent1, extent2), neverDeleteData); 
     585  void cxios_set_domaingroup_lonvalue_2d(domaingroup_Ptr domaingroup_hdl, double* lonvalue_2d, int* extent) 
     586  { 
     587    CTimer::get("XIOS").resume(); 
     588    CArray<double,2> tmp(lonvalue_2d, shape(extent[0], extent[1]), neverDeleteData); 
    589589    domaingroup_hdl->lonvalue_2d.reference(tmp.copy()); 
    590590     CTimer::get("XIOS").suspend(); 
    591591  } 
    592592 
    593   void cxios_get_domaingroup_lonvalue_2d(domaingroup_Ptr domaingroup_hdl, double* lonvalue_2d, int extent1, int extent2) 
    594   { 
    595     CTimer::get("XIOS").resume(); 
    596     CArray<double,2> tmp(lonvalue_2d, shape(extent1, extent2), neverDeleteData); 
     593  void cxios_get_domaingroup_lonvalue_2d(domaingroup_Ptr domaingroup_hdl, double* lonvalue_2d, int* extent) 
     594  { 
     595    CTimer::get("XIOS").resume(); 
     596    CArray<double,2> tmp(lonvalue_2d, shape(extent[0], extent[1]), neverDeleteData); 
    597597    tmp=domaingroup_hdl->lonvalue_2d.getInheritedValue(); 
    598598     CTimer::get("XIOS").suspend(); 
     
    608608 
    609609 
    610   void cxios_set_domaingroup_mask_1d(domaingroup_Ptr domaingroup_hdl, bool* mask_1d, int extent1) 
    611   { 
    612     CTimer::get("XIOS").resume(); 
    613     CArray<bool,1> tmp(mask_1d, shape(extent1), neverDeleteData); 
     610  void cxios_set_domaingroup_mask_1d(domaingroup_Ptr domaingroup_hdl, bool* mask_1d, int* extent) 
     611  { 
     612    CTimer::get("XIOS").resume(); 
     613    CArray<bool,1> tmp(mask_1d, shape(extent[0]), neverDeleteData); 
    614614    domaingroup_hdl->mask_1d.reference(tmp.copy()); 
    615615     CTimer::get("XIOS").suspend(); 
    616616  } 
    617617 
    618   void cxios_get_domaingroup_mask_1d(domaingroup_Ptr domaingroup_hdl, bool* mask_1d, int extent1) 
    619   { 
    620     CTimer::get("XIOS").resume(); 
    621     CArray<bool,1> tmp(mask_1d, shape(extent1), neverDeleteData); 
     618  void cxios_get_domaingroup_mask_1d(domaingroup_Ptr domaingroup_hdl, bool* mask_1d, int* extent) 
     619  { 
     620    CTimer::get("XIOS").resume(); 
     621    CArray<bool,1> tmp(mask_1d, shape(extent[0]), neverDeleteData); 
    622622    tmp=domaingroup_hdl->mask_1d.getInheritedValue(); 
    623623     CTimer::get("XIOS").suspend(); 
     
    633633 
    634634 
    635   void cxios_set_domaingroup_mask_2d(domaingroup_Ptr domaingroup_hdl, bool* mask_2d, int extent1, int extent2) 
    636   { 
    637     CTimer::get("XIOS").resume(); 
    638     CArray<bool,2> tmp(mask_2d, shape(extent1, extent2), neverDeleteData); 
     635  void cxios_set_domaingroup_mask_2d(domaingroup_Ptr domaingroup_hdl, bool* mask_2d, int* extent) 
     636  { 
     637    CTimer::get("XIOS").resume(); 
     638    CArray<bool,2> tmp(mask_2d, shape(extent[0], extent[1]), neverDeleteData); 
    639639    domaingroup_hdl->mask_2d.reference(tmp.copy()); 
    640640     CTimer::get("XIOS").suspend(); 
    641641  } 
    642642 
    643   void cxios_get_domaingroup_mask_2d(domaingroup_Ptr domaingroup_hdl, bool* mask_2d, int extent1, int extent2) 
    644   { 
    645     CTimer::get("XIOS").resume(); 
    646     CArray<bool,2> tmp(mask_2d, shape(extent1, extent2), neverDeleteData); 
     643  void cxios_get_domaingroup_mask_2d(domaingroup_Ptr domaingroup_hdl, bool* mask_2d, int* extent) 
     644  { 
     645    CTimer::get("XIOS").resume(); 
     646    CArray<bool,2> tmp(mask_2d, shape(extent[0], extent[1]), neverDeleteData); 
    647647    tmp=domaingroup_hdl->mask_2d.getInheritedValue(); 
    648648     CTimer::get("XIOS").suspend(); 
  • XIOS/trunk/src/interface/c_attr/icgrid_attr.cpp

    r591 r674  
    1818  typedef xios::CGrid* grid_Ptr; 
    1919 
    20   void cxios_set_grid_axis_domain_order(grid_Ptr grid_hdl, bool* axis_domain_order, int extent1) 
     20  void cxios_set_grid_axis_domain_order(grid_Ptr grid_hdl, bool* axis_domain_order, int* extent) 
    2121  { 
    2222    CTimer::get("XIOS").resume(); 
    23     CArray<bool,1> tmp(axis_domain_order, shape(extent1), neverDeleteData); 
     23    CArray<bool,1> tmp(axis_domain_order, shape(extent[0]), neverDeleteData); 
    2424    grid_hdl->axis_domain_order.reference(tmp.copy()); 
    2525     CTimer::get("XIOS").suspend(); 
    2626  } 
    2727 
    28   void cxios_get_grid_axis_domain_order(grid_Ptr grid_hdl, bool* axis_domain_order, int extent1) 
     28  void cxios_get_grid_axis_domain_order(grid_Ptr grid_hdl, bool* axis_domain_order, int* extent) 
    2929  { 
    3030    CTimer::get("XIOS").resume(); 
    31     CArray<bool,1> tmp(axis_domain_order, shape(extent1), neverDeleteData); 
     31    CArray<bool,1> tmp(axis_domain_order, shape(extent[0]), neverDeleteData); 
    3232    tmp=grid_hdl->axis_domain_order.getInheritedValue(); 
    3333     CTimer::get("XIOS").suspend(); 
     
    6969 
    7070 
    71   void cxios_set_grid_mask1(grid_Ptr grid_hdl, bool* mask1, int extent1) 
     71  void cxios_set_grid_mask1(grid_Ptr grid_hdl, bool* mask1, int* extent) 
    7272  { 
    7373    CTimer::get("XIOS").resume(); 
    74     CArray<bool,1> tmp(mask1, shape(extent1), neverDeleteData); 
     74    CArray<bool,1> tmp(mask1, shape(extent[0]), neverDeleteData); 
    7575    grid_hdl->mask1.reference(tmp.copy()); 
    7676     CTimer::get("XIOS").suspend(); 
    7777  } 
    7878 
    79   void cxios_get_grid_mask1(grid_Ptr grid_hdl, bool* mask1, int extent1) 
     79  void cxios_get_grid_mask1(grid_Ptr grid_hdl, bool* mask1, int* extent) 
    8080  { 
    8181    CTimer::get("XIOS").resume(); 
    82     CArray<bool,1> tmp(mask1, shape(extent1), neverDeleteData); 
     82    CArray<bool,1> tmp(mask1, shape(extent[0]), neverDeleteData); 
    8383    tmp=grid_hdl->mask1.getInheritedValue(); 
    8484     CTimer::get("XIOS").suspend(); 
     
    9494 
    9595 
    96   void cxios_set_grid_mask2(grid_Ptr grid_hdl, bool* mask2, int extent1, int extent2) 
     96  void cxios_set_grid_mask2(grid_Ptr grid_hdl, bool* mask2, int* extent) 
    9797  { 
    9898    CTimer::get("XIOS").resume(); 
    99     CArray<bool,2> tmp(mask2, shape(extent1, extent2), neverDeleteData); 
     99    CArray<bool,2> tmp(mask2, shape(extent[0], extent[1]), neverDeleteData); 
    100100    grid_hdl->mask2.reference(tmp.copy()); 
    101101     CTimer::get("XIOS").suspend(); 
    102102  } 
    103103 
    104   void cxios_get_grid_mask2(grid_Ptr grid_hdl, bool* mask2, int extent1, int extent2) 
     104  void cxios_get_grid_mask2(grid_Ptr grid_hdl, bool* mask2, int* extent) 
    105105  { 
    106106    CTimer::get("XIOS").resume(); 
    107     CArray<bool,2> tmp(mask2, shape(extent1, extent2), neverDeleteData); 
     107    CArray<bool,2> tmp(mask2, shape(extent[0], extent[1]), neverDeleteData); 
    108108    tmp=grid_hdl->mask2.getInheritedValue(); 
    109109     CTimer::get("XIOS").suspend(); 
     
    119119 
    120120 
    121   void cxios_set_grid_mask3(grid_Ptr grid_hdl, bool* mask3, int extent1, int extent2, int extent3) 
     121  void cxios_set_grid_mask3(grid_Ptr grid_hdl, bool* mask3, int* extent) 
    122122  { 
    123123    CTimer::get("XIOS").resume(); 
    124     CArray<bool,3> tmp(mask3, shape(extent1, extent2, extent3), neverDeleteData); 
     124    CArray<bool,3> tmp(mask3, shape(extent[0], extent[1], extent[2]), neverDeleteData); 
    125125    grid_hdl->mask3.reference(tmp.copy()); 
    126126     CTimer::get("XIOS").suspend(); 
    127127  } 
    128128 
    129   void cxios_get_grid_mask3(grid_Ptr grid_hdl, bool* mask3, int extent1, int extent2, int extent3) 
     129  void cxios_get_grid_mask3(grid_Ptr grid_hdl, bool* mask3, int* extent) 
    130130  { 
    131131    CTimer::get("XIOS").resume(); 
    132     CArray<bool,3> tmp(mask3, shape(extent1, extent2, extent3), neverDeleteData); 
     132    CArray<bool,3> tmp(mask3, shape(extent[0], extent[1], extent[2]), neverDeleteData); 
    133133    tmp=grid_hdl->mask3.getInheritedValue(); 
    134134     CTimer::get("XIOS").suspend(); 
  • XIOS/trunk/src/interface/c_attr/icgridgroup_attr.cpp

    r591 r674  
    1818  typedef xios::CGridGroup* gridgroup_Ptr; 
    1919 
    20   void cxios_set_gridgroup_axis_domain_order(gridgroup_Ptr gridgroup_hdl, bool* axis_domain_order, int extent1) 
     20  void cxios_set_gridgroup_axis_domain_order(gridgroup_Ptr gridgroup_hdl, bool* axis_domain_order, int* extent) 
    2121  { 
    2222    CTimer::get("XIOS").resume(); 
    23     CArray<bool,1> tmp(axis_domain_order, shape(extent1), neverDeleteData); 
     23    CArray<bool,1> tmp(axis_domain_order, shape(extent[0]), neverDeleteData); 
    2424    gridgroup_hdl->axis_domain_order.reference(tmp.copy()); 
    2525     CTimer::get("XIOS").suspend(); 
    2626  } 
    2727 
    28   void cxios_get_gridgroup_axis_domain_order(gridgroup_Ptr gridgroup_hdl, bool* axis_domain_order, int extent1) 
     28  void cxios_get_gridgroup_axis_domain_order(gridgroup_Ptr gridgroup_hdl, bool* axis_domain_order, int* extent) 
    2929  { 
    3030    CTimer::get("XIOS").resume(); 
    31     CArray<bool,1> tmp(axis_domain_order, shape(extent1), neverDeleteData); 
     31    CArray<bool,1> tmp(axis_domain_order, shape(extent[0]), neverDeleteData); 
    3232    tmp=gridgroup_hdl->axis_domain_order.getInheritedValue(); 
    3333     CTimer::get("XIOS").suspend(); 
     
    9595 
    9696 
    97   void cxios_set_gridgroup_mask1(gridgroup_Ptr gridgroup_hdl, bool* mask1, int extent1) 
     97  void cxios_set_gridgroup_mask1(gridgroup_Ptr gridgroup_hdl, bool* mask1, int* extent) 
    9898  { 
    9999    CTimer::get("XIOS").resume(); 
    100     CArray<bool,1> tmp(mask1, shape(extent1), neverDeleteData); 
     100    CArray<bool,1> tmp(mask1, shape(extent[0]), neverDeleteData); 
    101101    gridgroup_hdl->mask1.reference(tmp.copy()); 
    102102     CTimer::get("XIOS").suspend(); 
    103103  } 
    104104 
    105   void cxios_get_gridgroup_mask1(gridgroup_Ptr gridgroup_hdl, bool* mask1, int extent1) 
     105  void cxios_get_gridgroup_mask1(gridgroup_Ptr gridgroup_hdl, bool* mask1, int* extent) 
    106106  { 
    107107    CTimer::get("XIOS").resume(); 
    108     CArray<bool,1> tmp(mask1, shape(extent1), neverDeleteData); 
     108    CArray<bool,1> tmp(mask1, shape(extent[0]), neverDeleteData); 
    109109    tmp=gridgroup_hdl->mask1.getInheritedValue(); 
    110110     CTimer::get("XIOS").suspend(); 
     
    120120 
    121121 
    122   void cxios_set_gridgroup_mask2(gridgroup_Ptr gridgroup_hdl, bool* mask2, int extent1, int extent2) 
     122  void cxios_set_gridgroup_mask2(gridgroup_Ptr gridgroup_hdl, bool* mask2, int* extent) 
    123123  { 
    124124    CTimer::get("XIOS").resume(); 
    125     CArray<bool,2> tmp(mask2, shape(extent1, extent2), neverDeleteData); 
     125    CArray<bool,2> tmp(mask2, shape(extent[0], extent[1]), neverDeleteData); 
    126126    gridgroup_hdl->mask2.reference(tmp.copy()); 
    127127     CTimer::get("XIOS").suspend(); 
    128128  } 
    129129 
    130   void cxios_get_gridgroup_mask2(gridgroup_Ptr gridgroup_hdl, bool* mask2, int extent1, int extent2) 
     130  void cxios_get_gridgroup_mask2(gridgroup_Ptr gridgroup_hdl, bool* mask2, int* extent) 
    131131  { 
    132132    CTimer::get("XIOS").resume(); 
    133     CArray<bool,2> tmp(mask2, shape(extent1, extent2), neverDeleteData); 
     133    CArray<bool,2> tmp(mask2, shape(extent[0], extent[1]), neverDeleteData); 
    134134    tmp=gridgroup_hdl->mask2.getInheritedValue(); 
    135135     CTimer::get("XIOS").suspend(); 
     
    145145 
    146146 
    147   void cxios_set_gridgroup_mask3(gridgroup_Ptr gridgroup_hdl, bool* mask3, int extent1, int extent2, int extent3) 
     147  void cxios_set_gridgroup_mask3(gridgroup_Ptr gridgroup_hdl, bool* mask3, int* extent) 
    148148  { 
    149149    CTimer::get("XIOS").resume(); 
    150     CArray<bool,3> tmp(mask3, shape(extent1, extent2, extent3), neverDeleteData); 
     150    CArray<bool,3> tmp(mask3, shape(extent[0], extent[1], extent[2]), neverDeleteData); 
    151151    gridgroup_hdl->mask3.reference(tmp.copy()); 
    152152     CTimer::get("XIOS").suspend(); 
    153153  } 
    154154 
    155   void cxios_get_gridgroup_mask3(gridgroup_Ptr gridgroup_hdl, bool* mask3, int extent1, int extent2, int extent3) 
     155  void cxios_get_gridgroup_mask3(gridgroup_Ptr gridgroup_hdl, bool* mask3, int* extent) 
    156156  { 
    157157    CTimer::get("XIOS").resume(); 
    158     CArray<bool,3> tmp(mask3, shape(extent1, extent2, extent3), neverDeleteData); 
     158    CArray<bool,3> tmp(mask3, shape(extent[0], extent[1], extent[2]), neverDeleteData); 
    159159    tmp=gridgroup_hdl->mask3.getInheritedValue(); 
    160160     CTimer::get("XIOS").suspend(); 
Note: See TracChangeset for help on using the changeset viewer.