#define DIM2( basetype, name, w1 ) basetype (*name)[w1]
#define DIM3( basetype, name, w1, w2 ) basetype (*name)[w1][w2]
#define DIM4( basetype, name, w1, w2, w3 ) basetype (*name)[w1][w2][w3]
#define DIM5( basetype, name, w1, w2, w3, w4 ) basetype (*name)[w1][w2][w3][w4]
#define DIM6( basetype, name, w1, w2, w3, w4, w5 ) basetype (*name)[w1][w2][w3][w4][w5]
#define DIM7( basetype, name, w1, w2, w3, w4, w5, w6 ) basetype (*name)[w1][w2][w3][w4][w5][w6]
//    float (*d)[n];
//    d = (float (*) [n])malloc( 3*sizeof(*d) );