source: XIOS/dev/XIOS_DEV_CMIP6/src/array_mac.hpp @ 1313

Last change on this file since 1313 was 591, checked in by rlacroix, 9 years ago

Remove leftovers from the XMLIO age.

  • 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: 989 bytes
Line 
1#ifndef __XIOS_CArray_mac__
2#define __XIOS_CArray_mac__
3
4/// ////////////////////// Macros ////////////////////// ///
5
6// Type Fortran
7#define ARRAY(valuetype, numdims) boost::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.