source: XIOS/trunk/src/array_mac.hpp @ 2314

Last change on this file since 2314 was 1542, checked in by oabramkina, 6 years ago

Replacing Boost's unordered_map and shared_pointer by its STL counterparts.

Two notes for Curie:

  • one can see the content of unordered_map with ddt only if XIOS has been compiled with gnu
  • XIOS will not compile any more with pgi (all available versions use old STL which are not up to the c++11 norms)
  • Property copyright set to
    Software name : XIOS (Xml I/O Server)
    http://forge.ipsl.jussieu.fr/ioserver
    Creation date : January 2009
    Licence : CeCCIL version2
    see license file in root directory : Licence_CeCILL_V2-en.txt
    or http://www.cecill.info/licences/Licence_CeCILL_V2-en.html
    Holder : CEA/LSCE (Laboratoire des Sciences du CLimat et de l'Environnement)
    CNRS/IPSL (Institut Pierre Simon Laplace)
    Project Manager : Yann Meurdesoif
    yann.meurdesoif@cea.fr
File size: 987 bytes
Line 
1#ifndef __XIOS_CArray_mac__
2#define __XIOS_CArray_mac__
3
4/// ////////////////////// Macros ////////////////////// ///
5
6// Type Fortran
7#define ARRAY(valuetype, numdims) std::shared_ptr<CArray<valuetype, numdims> >
8
9#define ARRAY_ASSIGN(value, valuetype, numdims, extent)\
10   value.reset(new CArray<valuetype, numdims>(boost::extents extent))
11
12#define ARRAY_CREATE(value, valuetype, numdims, extent)\
13   ARRAY(valuetype, numdims) value =                   \
14   ARRAY(valuetype, numdims)(new CArray<valuetype, numdims>(boost::extents extent))
15
16// Type C
17#define ARRAY_C_ASSIGN(value, valuetype, numdims, extent)\
18   value = ARRAY(valuetype, numdims)                     \
19   (new CArray<valuetype, numdims>(boost::extents extent, c_storage_order()))
20
21#define ARRAY_C_CREATE(value, valuetype, numdims, extent)\
22   ARRAY_C_ASSIGN(ARRAY(valuetype, numdims) value, valuetype, numdims, extent)
23
24///---------------------------------------------------------------
25
26#endif // __XIOS_CArray_mac__
Note: See TracBrowser for help on using the repository browser.