Searched refs:F77_DIM_SIZE (Results 1 – 1 of 1) sorted by relevance
59 #define F77_DIM_SIZE(n) (f77_array_offset_tbl[n][1]) macro249 F77_DIM_SIZE (ndimen) = upper - lower + 1; in f77_create_arrayprint_offset_tbl()265 eltlen *= F77_DIM_SIZE (ndimen + 1); in f77_create_arrayprint_offset_tbl()286 for (i = 0; (i < F77_DIM_SIZE (nss) && (*elts) < print_max); i++) in f77_print_array_1()295 if (*elts >= print_max && i < F77_DIM_SIZE (nss)) in f77_print_array_1()300 for (i = 0; i < F77_DIM_SIZE (nss) && (*elts) < print_max; in f77_print_array_1()309 if (i != (F77_DIM_SIZE (nss) - 1)) in f77_print_array_1()312 if ((*elts == print_max - 1) && (i != (F77_DIM_SIZE (nss) - 1))) in f77_print_array_1()