| 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 = ARRAY(valuetype, numdims)(new CArray<valuetype, numdims>(boost::extents extent)) |
|---|
| 11 | |
|---|
| 12 | #define ARRAY_CREATE(value, valuetype, numdims, extent)\ |
|---|
| 13 | ARRAY_ASSIGN(ARRAY(valuetype, numdims) value, valuetype, numdims, extent) |
|---|
| 14 | |
|---|
| 15 | // Type C |
|---|
| 16 | #define ARRAY_C_ASSIGN(value, valuetype, numdims, extent)\ |
|---|
| 17 | value = ARRAY(valuetype, numdims) \ |
|---|
| 18 | (new CArray<valuetype, numdims>(boost::extents extent, c_storage_order())) |
|---|
| 19 | |
|---|
| 20 | #define ARRAY_C_CREATE(value, valuetype, numdims, extent)\ |
|---|
| 21 | ARRAY_C_ASSIGN(ARRAY(valuetype, numdims) value, valuetype, numdims, extent) |
|---|
| 22 | |
|---|
| 23 | ///--------------------------------------------------------------- |
|---|
| 24 | |
|---|
| 25 | #endif // __XMLIO_CArray_mac__ |
|---|
