Ignore:
Timestamp:
03/24/15 11:21:45 (9 years ago)
Author:
rlacroix
Message:

Fix the Fortran interface generation to avoid generating dead code that caused a timer not to be stopped.

File:
1 edited

Legend:

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

    r575 r581  
    11/* ************************************************************************** * 
    2  *               Interface auto generated - do not modify                   * 
     2 *               Interface auto generated - do not modify                     * 
    33 * ************************************************************************** */ 
    44 
     
    1616extern "C" 
    1717{ 
    18   typedef xios::CGrid*  grid_Ptr; 
    19    
     18  typedef xios::CGrid* grid_Ptr; 
     19 
    2020  void cxios_set_grid_axis_domain_order(grid_Ptr grid_hdl, bool* axis_domain_order, int extent1) 
    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(extent1), neverDeleteData); 
    2424    grid_hdl->axis_domain_order.reference(tmp.copy()); 
    2525     CTimer::get("XIOS").suspend(); 
    2626  } 
    27    
     27 
    2828  void cxios_get_grid_axis_domain_order(grid_Ptr grid_hdl, bool* axis_domain_order, int extent1) 
    2929  { 
    3030    CTimer::get("XIOS").resume(); 
    31     CArray<bool,1> tmp(axis_domain_order,shape(extent1),neverDeleteData) ; 
    32     tmp=grid_hdl->axis_domain_order.getInheritedValue() ; 
     31    CArray<bool,1> tmp(axis_domain_order, shape(extent1), neverDeleteData); 
     32    tmp=grid_hdl->axis_domain_order.getInheritedValue(); 
    3333     CTimer::get("XIOS").suspend(); 
    3434  } 
    35    
    36   bool cxios_is_defined_grid_axis_domain_order(grid_Ptr grid_hdl ) 
     35 
     36  bool cxios_is_defined_grid_axis_domain_order(grid_Ptr grid_hdl) 
    3737  { 
    3838     CTimer::get("XIOS").resume(); 
    39     return grid_hdl->axis_domain_order.hasInheritedValue(); 
     39     bool isDefined = grid_hdl->axis_domain_order.hasInheritedValue(); 
    4040     CTimer::get("XIOS").suspend(); 
     41     return isDefined; 
    4142  } 
    42    
    43    
    44    
     43 
     44 
    4545  void cxios_set_grid_description(grid_Ptr grid_hdl, const char * description, int description_size) 
    4646  { 
    4747    std::string description_str; 
    48     if(!cstr2string(description, description_size, description_str)) return; 
    49      CTimer::get("XIOS").resume(); 
     48    if (!cstr2string(description, description_size, description_str)) return; 
     49    CTimer::get("XIOS").resume(); 
    5050    grid_hdl->description.setValue(description_str); 
    51      CTimer::get("XIOS").suspend(); 
     51    CTimer::get("XIOS").suspend(); 
    5252  } 
    53    
     53 
    5454  void cxios_get_grid_description(grid_Ptr grid_hdl, char * description, int description_size) 
    5555  { 
    56      CTimer::get("XIOS").resume(); 
    57     if(!string_copy(grid_hdl->description.getInheritedValue(),description , description_size)) 
    58       ERROR("void cxios_get_grid_description(grid_Ptr grid_hdl, char * description, int description_size)", <<"Input string is to short"); 
    59      CTimer::get("XIOS").suspend(); 
     56    CTimer::get("XIOS").resume(); 
     57    if (!string_copy(grid_hdl->description.getInheritedValue(), description, description_size)) 
     58      ERROR("void cxios_get_grid_description(grid_Ptr grid_hdl, char * description, int description_size)", << "Input string is too short"); 
     59    CTimer::get("XIOS").suspend(); 
    6060  } 
    61    
    62   bool cxios_is_defined_grid_description(grid_Ptr grid_hdl ) 
     61 
     62  bool cxios_is_defined_grid_description(grid_Ptr grid_hdl) 
    6363  { 
    6464     CTimer::get("XIOS").resume(); 
    65     return grid_hdl->description.hasInheritedValue(); 
     65     bool isDefined = grid_hdl->description.hasInheritedValue(); 
    6666     CTimer::get("XIOS").suspend(); 
     67     return isDefined; 
    6768  } 
    68    
    69    
    70    
     69 
     70 
    7171  void cxios_set_grid_mask1(grid_Ptr grid_hdl, bool* mask1, int extent1) 
    7272  { 
    7373    CTimer::get("XIOS").resume(); 
    74     CArray<bool,1> tmp(mask1,shape(extent1),neverDeleteData) ; 
     74    CArray<bool,1> tmp(mask1, shape(extent1), neverDeleteData); 
    7575    grid_hdl->mask1.reference(tmp.copy()); 
    7676     CTimer::get("XIOS").suspend(); 
    7777  } 
    78    
     78 
    7979  void cxios_get_grid_mask1(grid_Ptr grid_hdl, bool* mask1, int extent1) 
    8080  { 
    8181    CTimer::get("XIOS").resume(); 
    82     CArray<bool,1> tmp(mask1,shape(extent1),neverDeleteData) ; 
    83     tmp=grid_hdl->mask1.getInheritedValue() ; 
     82    CArray<bool,1> tmp(mask1, shape(extent1), neverDeleteData); 
     83    tmp=grid_hdl->mask1.getInheritedValue(); 
    8484     CTimer::get("XIOS").suspend(); 
    8585  } 
    86    
    87   bool cxios_is_defined_grid_mask1(grid_Ptr grid_hdl ) 
     86 
     87  bool cxios_is_defined_grid_mask1(grid_Ptr grid_hdl) 
    8888  { 
    8989     CTimer::get("XIOS").resume(); 
    90     return grid_hdl->mask1.hasInheritedValue(); 
     90     bool isDefined = grid_hdl->mask1.hasInheritedValue(); 
    9191     CTimer::get("XIOS").suspend(); 
     92     return isDefined; 
    9293  } 
    93    
    94    
    95    
     94 
     95 
    9696  void cxios_set_grid_mask2(grid_Ptr grid_hdl, bool* mask2, int extent1, int extent2) 
    9797  { 
    9898    CTimer::get("XIOS").resume(); 
    99     CArray<bool,2> tmp(mask2,shape(extent1,extent2),neverDeleteData) ; 
     99    CArray<bool,2> tmp(mask2, shape(extent1, extent2), neverDeleteData); 
    100100    grid_hdl->mask2.reference(tmp.copy()); 
    101101     CTimer::get("XIOS").suspend(); 
    102102  } 
    103    
     103 
    104104  void cxios_get_grid_mask2(grid_Ptr grid_hdl, bool* mask2, int extent1, int extent2) 
    105105  { 
    106106    CTimer::get("XIOS").resume(); 
    107     CArray<bool,2> tmp(mask2,shape(extent1,extent2),neverDeleteData) ; 
    108     tmp=grid_hdl->mask2.getInheritedValue() ; 
     107    CArray<bool,2> tmp(mask2, shape(extent1, extent2), neverDeleteData); 
     108    tmp=grid_hdl->mask2.getInheritedValue(); 
    109109     CTimer::get("XIOS").suspend(); 
    110110  } 
    111    
    112   bool cxios_is_defined_grid_mask2(grid_Ptr grid_hdl ) 
     111 
     112  bool cxios_is_defined_grid_mask2(grid_Ptr grid_hdl) 
    113113  { 
    114114     CTimer::get("XIOS").resume(); 
    115     return grid_hdl->mask2.hasInheritedValue(); 
     115     bool isDefined = grid_hdl->mask2.hasInheritedValue(); 
    116116     CTimer::get("XIOS").suspend(); 
     117     return isDefined; 
    117118  } 
    118    
    119    
    120    
     119 
     120 
    121121  void cxios_set_grid_mask3(grid_Ptr grid_hdl, bool* mask3, int extent1, int extent2, int extent3) 
    122122  { 
    123123    CTimer::get("XIOS").resume(); 
    124     CArray<bool,3> tmp(mask3,shape(extent1,extent2,extent3),neverDeleteData) ; 
     124    CArray<bool,3> tmp(mask3, shape(extent1, extent2, extent3), neverDeleteData); 
    125125    grid_hdl->mask3.reference(tmp.copy()); 
    126126     CTimer::get("XIOS").suspend(); 
    127127  } 
    128    
     128 
    129129  void cxios_get_grid_mask3(grid_Ptr grid_hdl, bool* mask3, int extent1, int extent2, int extent3) 
    130130  { 
    131131    CTimer::get("XIOS").resume(); 
    132     CArray<bool,3> tmp(mask3,shape(extent1,extent2,extent3),neverDeleteData) ; 
    133     tmp=grid_hdl->mask3.getInheritedValue() ; 
     132    CArray<bool,3> tmp(mask3, shape(extent1, extent2, extent3), neverDeleteData); 
     133    tmp=grid_hdl->mask3.getInheritedValue(); 
    134134     CTimer::get("XIOS").suspend(); 
    135135  } 
    136    
    137   bool cxios_is_defined_grid_mask3(grid_Ptr grid_hdl ) 
     136 
     137  bool cxios_is_defined_grid_mask3(grid_Ptr grid_hdl) 
    138138  { 
    139139     CTimer::get("XIOS").resume(); 
    140     return grid_hdl->mask3.hasInheritedValue(); 
     140     bool isDefined = grid_hdl->mask3.hasInheritedValue(); 
    141141     CTimer::get("XIOS").suspend(); 
     142     return isDefined; 
    142143  } 
    143    
    144    
    145    
     144 
     145 
    146146  void cxios_set_grid_name(grid_Ptr grid_hdl, const char * name, int name_size) 
    147147  { 
    148148    std::string name_str; 
    149     if(!cstr2string(name, name_size, name_str)) return; 
    150      CTimer::get("XIOS").resume(); 
     149    if (!cstr2string(name, name_size, name_str)) return; 
     150    CTimer::get("XIOS").resume(); 
    151151    grid_hdl->name.setValue(name_str); 
    152      CTimer::get("XIOS").suspend(); 
     152    CTimer::get("XIOS").suspend(); 
    153153  } 
    154    
     154 
    155155  void cxios_get_grid_name(grid_Ptr grid_hdl, char * name, int name_size) 
    156156  { 
    157      CTimer::get("XIOS").resume(); 
    158     if(!string_copy(grid_hdl->name.getInheritedValue(),name , name_size)) 
    159       ERROR("void cxios_get_grid_name(grid_Ptr grid_hdl, char * name, int name_size)", <<"Input string is to short"); 
    160      CTimer::get("XIOS").suspend(); 
     157    CTimer::get("XIOS").resume(); 
     158    if (!string_copy(grid_hdl->name.getInheritedValue(), name, name_size)) 
     159      ERROR("void cxios_get_grid_name(grid_Ptr grid_hdl, char * name, int name_size)", << "Input string is too short"); 
     160    CTimer::get("XIOS").suspend(); 
    161161  } 
    162    
    163   bool cxios_is_defined_grid_name(grid_Ptr grid_hdl ) 
     162 
     163  bool cxios_is_defined_grid_name(grid_Ptr grid_hdl) 
    164164  { 
    165165     CTimer::get("XIOS").resume(); 
    166     return grid_hdl->name.hasInheritedValue(); 
     166     bool isDefined = grid_hdl->name.hasInheritedValue(); 
    167167     CTimer::get("XIOS").suspend(); 
     168     return isDefined; 
    168169  } 
    169    
    170    
    171    
    172    
    173170} 
Note: See TracChangeset for help on using the changeset viewer.