Searched refs:ndimen (Results 1 – 2 of 2) sorted by relevance
236 int ndimen = 1; in f77_create_arrayprint_offset_tbl() local254 F77_DIM_SIZE (ndimen) = upper - lower + 1; in f77_create_arrayprint_offset_tbl()257 ndimen++; in f77_create_arrayprint_offset_tbl()265 ndimen--; in f77_create_arrayprint_offset_tbl()267 F77_DIM_OFFSET (ndimen) = eltlen; in f77_create_arrayprint_offset_tbl()268 while (--ndimen > 0) in f77_create_arrayprint_offset_tbl()270 eltlen *= F77_DIM_SIZE (ndimen + 1); in f77_create_arrayprint_offset_tbl()271 F77_DIM_OFFSET (ndimen) = eltlen; in f77_create_arrayprint_offset_tbl()
2261 int ndimen = 1; in calc_f77_array_dims() local2272 ++ndimen; in calc_f77_array_dims()2274 return ndimen; in calc_f77_array_dims()