source:
vendors/XIOS/current/src/array_mac.hpp
@
4508
Last change on this file since 4508 was 3428, checked in by rblod, 12 years ago | |
---|---|
File size: 992 bytes |
Rev | Line | |
---|---|---|
[3428] | 1 | #ifndef __XMLIO_CArray_mac__ |
2 | #define __XMLIO_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 // __XMLIO_CArray_mac__ |
Note: See TracBrowser
for help on using the repository browser.