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/generate_fortran_interface.cpp

    r934 r981  
    3434  CGenerateRectilinearDomain genDomain; 
    3535  CComputeConnectivityDomain compConDomain; 
     36  CExpandDomain expandDomain; 
    3637 
    3738  CInterpolateAxis interpolateAxis; 
    3839  CZoomAxis zoomAxis; 
    3940  CInverseAxis inverseAxis; 
     41  CReduceDomainToAxis reduceDomainToAxis; 
     42  CExtractDomainToAxis extractDomainToAxis; 
    4043 
    4144  CReduceAxisToScalar reduceAxisToScalar; 
     45  CExtractAxisToScalar extractAxisToScalar; 
     46  CReduceDomainToScalar reduceDomainToScalar; 
    4247 
    4348  ostringstream oss; 
     
    231236  file.close(); 
    232237 
     238  /*! 
     239    Domain transformations 
     240  */ 
    233241  file.open((path+"zoom_domain_interface_attr.F90").c_str()); 
    234242  zoomDomain.generateFortran2003Interface(file); 
     
    243251  file.close(); 
    244252 
     253  file.open((path+"interpolate_domain_interface_attr.F90").c_str()); 
     254  interpolateDomain.generateFortran2003Interface(file); 
     255  file.close(); 
     256 
     257  file.open((path+"icinterpolate_domain_attr.cpp").c_str()); 
     258  interpolateDomain.generateCInterface(file); 
     259  file.close(); 
     260 
     261  file.open((path+"iinterpolate_domain_attr.F90").c_str()); 
     262  interpolateDomain.generateFortranInterface(file); 
     263  file.close(); 
     264 
     265  file.open((path+"generate_rectilinear_domain_interface_attr.F90").c_str()); 
     266  genDomain.generateFortran2003Interface(file); 
     267  file.close(); 
     268 
     269  file.open((path+"icgenerate_rectilinear_domain_attr.cpp").c_str()); 
     270  genDomain.generateCInterface(file); 
     271  file.close(); 
     272 
     273  file.open((path+"igenerate_rectilinear_domain_attr.F90").c_str()); 
     274  genDomain.generateFortranInterface(file); 
     275  file.close(); 
     276 
     277  file.open((path+"compute_connectivity_domain_interface_attr.F90").c_str()); 
     278  compConDomain.generateFortran2003Interface(file); 
     279  file.close(); 
     280 
     281  file.open((path+"iccompute_connectivity_domain_attr.cpp").c_str()); 
     282  compConDomain.generateCInterface(file); 
     283  file.close(); 
     284 
     285  file.open((path+"icompute_connectivity_domain_attr.F90").c_str()); 
     286  compConDomain.generateFortranInterface(file); 
     287  file.close(); 
     288 
     289  file.open((path+"expand_domain_interface_attr.F90").c_str()); 
     290  expandDomain.generateFortran2003Interface(file); 
     291  file.close(); 
     292 
     293  file.open((path+"icexpand_domain_attr.cpp").c_str()); 
     294  expandDomain.generateCInterface(file); 
     295  file.close(); 
     296 
     297  file.open((path+"iexpand_domain_attr.F90").c_str()); 
     298  expandDomain.generateFortranInterface(file); 
     299  file.close(); 
     300   
     301  /*! 
     302    Axis transformations 
     303  */ 
    245304  file.open((path+"zoom_axis_interface_attr.F90").c_str()); 
    246305  zoomAxis.generateFortran2003Interface(file); 
     
    267326  file.close(); 
    268327 
    269   file.open((path+"interpolate_domain_interface_attr.F90").c_str()); 
    270   interpolateDomain.generateFortran2003Interface(file); 
    271   file.close(); 
    272  
    273   file.open((path+"icinterpolate_domain_attr.cpp").c_str()); 
    274   interpolateDomain.generateCInterface(file); 
    275   file.close(); 
    276  
    277   file.open((path+"iinterpolate_domain_attr.F90").c_str()); 
    278   interpolateDomain.generateFortranInterface(file); 
    279   file.close(); 
    280  
    281   file.open((path+"generate_rectilinear_domain_interface_attr.F90").c_str()); 
    282   genDomain.generateFortran2003Interface(file); 
    283   file.close(); 
    284  
    285   file.open((path+"icgenerate_rectilinear_domain_attr.cpp").c_str()); 
    286   genDomain.generateCInterface(file); 
    287   file.close(); 
    288  
    289   file.open((path+"igenerate_rectilinear_domain_attr.F90").c_str()); 
    290   genDomain.generateFortranInterface(file); 
    291   file.close(); 
    292  
    293   file.open((path+"compute_connectivity_domain_interface_attr.F90").c_str()); 
    294   compConDomain.generateFortran2003Interface(file); 
    295   file.close(); 
    296  
    297   file.open((path+"iccompute_connectivity_domain_attr.cpp").c_str()); 
    298   compConDomain.generateCInterface(file); 
    299   file.close(); 
    300  
    301   file.open((path+"icompute_connectivity_domain_attr.F90").c_str()); 
    302   compConDomain.generateFortranInterface(file); 
    303   file.close(); 
    304  
    305  
    306  
    307  
    308328  file.open((path+"inverse_axis_interface_attr.F90").c_str()); 
    309329  inverseAxis.generateFortran2003Interface(file); 
     
    318338  file.close(); 
    319339 
     340  file.open((path+"reduce_domain_to_axis_interface_attr.F90").c_str()); 
     341  reduceDomainToAxis.generateFortran2003Interface(file); 
     342  file.close(); 
     343 
     344  file.open((path+"icreduce_domain_to_axis_attr.cpp").c_str()); 
     345  reduceDomainToAxis.generateCInterface(file); 
     346  file.close(); 
     347 
     348  file.open((path+"ireduce_domain_to_axis_attr.F90").c_str()); 
     349  reduceDomainToAxis.generateFortranInterface(file); 
     350  file.close(); 
     351   
     352  file.open((path+"extract_domain_to_axis_interface_attr.F90").c_str()); 
     353  extractDomainToAxis.generateFortran2003Interface(file); 
     354  file.close(); 
     355 
     356  file.open((path+"icextract_domain_to_axis_attr.cpp").c_str()); 
     357  extractDomainToAxis.generateCInterface(file); 
     358  file.close(); 
     359 
     360  file.open((path+"iextract_domain_to_axis_attr.F90").c_str()); 
     361  extractDomainToAxis.generateFortranInterface(file); 
     362  file.close(); 
     363 
     364 
     365  /*! 
     366    Scalar transformations 
     367  */ 
    320368  file.open((path+"reduce_axis_to_scalar_interface_attr.F90").c_str()); 
    321369  reduceAxisToScalar.generateFortran2003Interface(file); 
     
    330378  file.close(); 
    331379 
     380  file.open((path+"extract_axis_to_scalar_interface_attr.F90").c_str()); 
     381  extractAxisToScalar.generateFortran2003Interface(file); 
     382  file.close(); 
     383 
     384  file.open((path+"icextract_axis_to_scalar_attr.cpp").c_str()); 
     385  extractAxisToScalar.generateCInterface(file); 
     386  file.close(); 
     387 
     388  file.open((path+"iextract_axis_to_scalar_attr.F90").c_str()); 
     389  extractAxisToScalar.generateFortranInterface(file); 
     390  file.close(); 
     391 
     392  file.open((path+"reduce_domain_to_scalar_interface_attr.F90").c_str()); 
     393  reduceDomainToScalar.generateFortran2003Interface(file); 
     394  file.close(); 
     395 
     396  file.open((path+"icreduce_domain_to_scalar_attr.cpp").c_str()); 
     397  reduceDomainToScalar.generateCInterface(file); 
     398  file.close(); 
     399 
     400  file.open((path+"ireduce_domain_to_scalar_attr.F90").c_str()); 
     401  reduceDomainToScalar.generateFortranInterface(file); 
     402  file.close(); 
     403 
    332404  file.open((path+"context_interface_attr.F90").c_str()); 
    333405  context->generateFortran2003Interface(file); 
Note: See TracChangeset for help on using the changeset viewer.