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/icgridgroup_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::CGridGroup*  gridgroup_Ptr; 
    19    
     18  typedef xios::CGridGroup* gridgroup_Ptr; 
     19 
    2020  void cxios_set_gridgroup_axis_domain_order(gridgroup_Ptr gridgroup_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    gridgroup_hdl->axis_domain_order.reference(tmp.copy()); 
    2525     CTimer::get("XIOS").suspend(); 
    2626  } 
    27    
     27 
    2828  void cxios_get_gridgroup_axis_domain_order(gridgroup_Ptr gridgroup_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=gridgroup_hdl->axis_domain_order.getInheritedValue() ; 
     31    CArray<bool,1> tmp(axis_domain_order, shape(extent1), neverDeleteData); 
     32    tmp=gridgroup_hdl->axis_domain_order.getInheritedValue(); 
    3333     CTimer::get("XIOS").suspend(); 
    3434  } 
    35    
    36   bool cxios_is_defined_gridgroup_axis_domain_order(gridgroup_Ptr gridgroup_hdl ) 
     35 
     36  bool cxios_is_defined_gridgroup_axis_domain_order(gridgroup_Ptr gridgroup_hdl) 
    3737  { 
    3838     CTimer::get("XIOS").resume(); 
    39     return gridgroup_hdl->axis_domain_order.hasInheritedValue(); 
     39     bool isDefined = gridgroup_hdl->axis_domain_order.hasInheritedValue(); 
    4040     CTimer::get("XIOS").suspend(); 
     41     return isDefined; 
    4142  } 
    42    
    43    
    44    
     43 
     44 
    4545  void cxios_set_gridgroup_description(gridgroup_Ptr gridgroup_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    gridgroup_hdl->description.setValue(description_str); 
    51      CTimer::get("XIOS").suspend(); 
     51    CTimer::get("XIOS").suspend(); 
    5252  } 
    53    
     53 
    5454  void cxios_get_gridgroup_description(gridgroup_Ptr gridgroup_hdl, char * description, int description_size) 
    5555  { 
    56      CTimer::get("XIOS").resume(); 
    57     if(!string_copy(gridgroup_hdl->description.getInheritedValue(),description , description_size)) 
    58       ERROR("void cxios_get_gridgroup_description(gridgroup_Ptr gridgroup_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(gridgroup_hdl->description.getInheritedValue(), description, description_size)) 
     58      ERROR("void cxios_get_gridgroup_description(gridgroup_Ptr gridgroup_hdl, char * description, int description_size)", << "Input string is too short"); 
     59    CTimer::get("XIOS").suspend(); 
    6060  } 
    61    
    62   bool cxios_is_defined_gridgroup_description(gridgroup_Ptr gridgroup_hdl ) 
     61 
     62  bool cxios_is_defined_gridgroup_description(gridgroup_Ptr gridgroup_hdl) 
    6363  { 
    6464     CTimer::get("XIOS").resume(); 
    65     return gridgroup_hdl->description.hasInheritedValue(); 
     65     bool isDefined = gridgroup_hdl->description.hasInheritedValue(); 
    6666     CTimer::get("XIOS").suspend(); 
     67     return isDefined; 
    6768  } 
    68    
    69    
    70    
     69 
     70 
    7171  void cxios_set_gridgroup_group_ref(gridgroup_Ptr gridgroup_hdl, const char * group_ref, int group_ref_size) 
    7272  { 
    7373    std::string group_ref_str; 
    74     if(!cstr2string(group_ref, group_ref_size, group_ref_str)) return; 
    75      CTimer::get("XIOS").resume(); 
     74    if (!cstr2string(group_ref, group_ref_size, group_ref_str)) return; 
     75    CTimer::get("XIOS").resume(); 
    7676    gridgroup_hdl->group_ref.setValue(group_ref_str); 
    77      CTimer::get("XIOS").suspend(); 
     77    CTimer::get("XIOS").suspend(); 
    7878  } 
    79    
     79 
    8080  void cxios_get_gridgroup_group_ref(gridgroup_Ptr gridgroup_hdl, char * group_ref, int group_ref_size) 
    8181  { 
    82      CTimer::get("XIOS").resume(); 
    83     if(!string_copy(gridgroup_hdl->group_ref.getInheritedValue(),group_ref , group_ref_size)) 
    84       ERROR("void cxios_get_gridgroup_group_ref(gridgroup_Ptr gridgroup_hdl, char * group_ref, int group_ref_size)", <<"Input string is to short"); 
    85      CTimer::get("XIOS").suspend(); 
     82    CTimer::get("XIOS").resume(); 
     83    if (!string_copy(gridgroup_hdl->group_ref.getInheritedValue(), group_ref, group_ref_size)) 
     84      ERROR("void cxios_get_gridgroup_group_ref(gridgroup_Ptr gridgroup_hdl, char * group_ref, int group_ref_size)", << "Input string is too short"); 
     85    CTimer::get("XIOS").suspend(); 
    8686  } 
    87    
    88   bool cxios_is_defined_gridgroup_group_ref(gridgroup_Ptr gridgroup_hdl ) 
     87 
     88  bool cxios_is_defined_gridgroup_group_ref(gridgroup_Ptr gridgroup_hdl) 
    8989  { 
    9090     CTimer::get("XIOS").resume(); 
    91     return gridgroup_hdl->group_ref.hasInheritedValue(); 
     91     bool isDefined = gridgroup_hdl->group_ref.hasInheritedValue(); 
    9292     CTimer::get("XIOS").suspend(); 
     93     return isDefined; 
    9394  } 
    94    
    95    
    96    
     95 
     96 
    9797  void cxios_set_gridgroup_mask1(gridgroup_Ptr gridgroup_hdl, bool* mask1, int extent1) 
    9898  { 
    9999    CTimer::get("XIOS").resume(); 
    100     CArray<bool,1> tmp(mask1,shape(extent1),neverDeleteData) ; 
     100    CArray<bool,1> tmp(mask1, shape(extent1), neverDeleteData); 
    101101    gridgroup_hdl->mask1.reference(tmp.copy()); 
    102102     CTimer::get("XIOS").suspend(); 
    103103  } 
    104    
     104 
    105105  void cxios_get_gridgroup_mask1(gridgroup_Ptr gridgroup_hdl, bool* mask1, int extent1) 
    106106  { 
    107107    CTimer::get("XIOS").resume(); 
    108     CArray<bool,1> tmp(mask1,shape(extent1),neverDeleteData) ; 
    109     tmp=gridgroup_hdl->mask1.getInheritedValue() ; 
     108    CArray<bool,1> tmp(mask1, shape(extent1), neverDeleteData); 
     109    tmp=gridgroup_hdl->mask1.getInheritedValue(); 
    110110     CTimer::get("XIOS").suspend(); 
    111111  } 
    112    
    113   bool cxios_is_defined_gridgroup_mask1(gridgroup_Ptr gridgroup_hdl ) 
     112 
     113  bool cxios_is_defined_gridgroup_mask1(gridgroup_Ptr gridgroup_hdl) 
    114114  { 
    115115     CTimer::get("XIOS").resume(); 
    116     return gridgroup_hdl->mask1.hasInheritedValue(); 
     116     bool isDefined = gridgroup_hdl->mask1.hasInheritedValue(); 
    117117     CTimer::get("XIOS").suspend(); 
     118     return isDefined; 
    118119  } 
    119    
    120    
    121    
     120 
     121 
    122122  void cxios_set_gridgroup_mask2(gridgroup_Ptr gridgroup_hdl, bool* mask2, int extent1, int extent2) 
    123123  { 
    124124    CTimer::get("XIOS").resume(); 
    125     CArray<bool,2> tmp(mask2,shape(extent1,extent2),neverDeleteData) ; 
     125    CArray<bool,2> tmp(mask2, shape(extent1, extent2), neverDeleteData); 
    126126    gridgroup_hdl->mask2.reference(tmp.copy()); 
    127127     CTimer::get("XIOS").suspend(); 
    128128  } 
    129    
     129 
    130130  void cxios_get_gridgroup_mask2(gridgroup_Ptr gridgroup_hdl, bool* mask2, int extent1, int extent2) 
    131131  { 
    132132    CTimer::get("XIOS").resume(); 
    133     CArray<bool,2> tmp(mask2,shape(extent1,extent2),neverDeleteData) ; 
    134     tmp=gridgroup_hdl->mask2.getInheritedValue() ; 
     133    CArray<bool,2> tmp(mask2, shape(extent1, extent2), neverDeleteData); 
     134    tmp=gridgroup_hdl->mask2.getInheritedValue(); 
    135135     CTimer::get("XIOS").suspend(); 
    136136  } 
    137    
    138   bool cxios_is_defined_gridgroup_mask2(gridgroup_Ptr gridgroup_hdl ) 
     137 
     138  bool cxios_is_defined_gridgroup_mask2(gridgroup_Ptr gridgroup_hdl) 
    139139  { 
    140140     CTimer::get("XIOS").resume(); 
    141     return gridgroup_hdl->mask2.hasInheritedValue(); 
     141     bool isDefined = gridgroup_hdl->mask2.hasInheritedValue(); 
    142142     CTimer::get("XIOS").suspend(); 
     143     return isDefined; 
    143144  } 
    144    
    145    
    146    
     145 
     146 
    147147  void cxios_set_gridgroup_mask3(gridgroup_Ptr gridgroup_hdl, bool* mask3, int extent1, int extent2, int extent3) 
    148148  { 
    149149    CTimer::get("XIOS").resume(); 
    150     CArray<bool,3> tmp(mask3,shape(extent1,extent2,extent3),neverDeleteData) ; 
     150    CArray<bool,3> tmp(mask3, shape(extent1, extent2, extent3), neverDeleteData); 
    151151    gridgroup_hdl->mask3.reference(tmp.copy()); 
    152152     CTimer::get("XIOS").suspend(); 
    153153  } 
    154    
     154 
    155155  void cxios_get_gridgroup_mask3(gridgroup_Ptr gridgroup_hdl, bool* mask3, int extent1, int extent2, int extent3) 
    156156  { 
    157157    CTimer::get("XIOS").resume(); 
    158     CArray<bool,3> tmp(mask3,shape(extent1,extent2,extent3),neverDeleteData) ; 
    159     tmp=gridgroup_hdl->mask3.getInheritedValue() ; 
     158    CArray<bool,3> tmp(mask3, shape(extent1, extent2, extent3), neverDeleteData); 
     159    tmp=gridgroup_hdl->mask3.getInheritedValue(); 
    160160     CTimer::get("XIOS").suspend(); 
    161161  } 
    162    
    163   bool cxios_is_defined_gridgroup_mask3(gridgroup_Ptr gridgroup_hdl ) 
     162 
     163  bool cxios_is_defined_gridgroup_mask3(gridgroup_Ptr gridgroup_hdl) 
    164164  { 
    165165     CTimer::get("XIOS").resume(); 
    166     return gridgroup_hdl->mask3.hasInheritedValue(); 
     166     bool isDefined = gridgroup_hdl->mask3.hasInheritedValue(); 
    167167     CTimer::get("XIOS").suspend(); 
     168     return isDefined; 
    168169  } 
    169    
    170    
    171    
     170 
     171 
    172172  void cxios_set_gridgroup_name(gridgroup_Ptr gridgroup_hdl, const char * name, int name_size) 
    173173  { 
    174174    std::string name_str; 
    175     if(!cstr2string(name, name_size, name_str)) return; 
    176      CTimer::get("XIOS").resume(); 
     175    if (!cstr2string(name, name_size, name_str)) return; 
     176    CTimer::get("XIOS").resume(); 
    177177    gridgroup_hdl->name.setValue(name_str); 
    178      CTimer::get("XIOS").suspend(); 
     178    CTimer::get("XIOS").suspend(); 
    179179  } 
    180    
     180 
    181181  void cxios_get_gridgroup_name(gridgroup_Ptr gridgroup_hdl, char * name, int name_size) 
    182182  { 
    183      CTimer::get("XIOS").resume(); 
    184     if(!string_copy(gridgroup_hdl->name.getInheritedValue(),name , name_size)) 
    185       ERROR("void cxios_get_gridgroup_name(gridgroup_Ptr gridgroup_hdl, char * name, int name_size)", <<"Input string is to short"); 
    186      CTimer::get("XIOS").suspend(); 
     183    CTimer::get("XIOS").resume(); 
     184    if (!string_copy(gridgroup_hdl->name.getInheritedValue(), name, name_size)) 
     185      ERROR("void cxios_get_gridgroup_name(gridgroup_Ptr gridgroup_hdl, char * name, int name_size)", << "Input string is too short"); 
     186    CTimer::get("XIOS").suspend(); 
    187187  } 
    188    
    189   bool cxios_is_defined_gridgroup_name(gridgroup_Ptr gridgroup_hdl ) 
     188 
     189  bool cxios_is_defined_gridgroup_name(gridgroup_Ptr gridgroup_hdl) 
    190190  { 
    191191     CTimer::get("XIOS").resume(); 
    192     return gridgroup_hdl->name.hasInheritedValue(); 
     192     bool isDefined = gridgroup_hdl->name.hasInheritedValue(); 
    193193     CTimer::get("XIOS").suspend(); 
     194     return isDefined; 
    194195  } 
    195    
    196    
    197    
    198    
    199196} 
Note: See TracChangeset for help on using the changeset viewer.