22 va_start( ap, dimensions );
24 dim = &array->
dimTB[0];
26 for( i = 0; i < dimensions; i++ )
28 lbTB[i] = va_arg( ap, ssize_t );
29 ubTB[i] = va_arg( ap, ssize_t );
31 dim->elements = (ubTB[i] - lbTB[i]) + 1;
32 dim->lbound = lbTB[i];
33 dim->ubound = ubTB[i];
44 FB_ARRAY_SETDESC( array, element_len, dimensions, elements * element_len, diff );