Lines Matching refs:src_dim
1203 int dst_kind, int src_kind, size_t dst_dim, size_t src_dim, in get_for_ref() argument
1239 if (ref->u.a.mode[src_dim] == CAF_ARR_REF_NONE) in get_for_ref()
1288 if (ref->u.a.mode[src_dim] == CAF_ARR_REF_NONE) in get_for_ref()
1297 if (src_dim == 0) in get_for_ref()
1299 switch (ref->u.a.mode[src_dim]) in get_for_ref()
1302 extent_src = GFC_DIMENSION_EXTENT (src->dim[src_dim]); in get_for_ref()
1305 for (size_t idx = 0; idx < ref->u.a.dim[src_dim].v.nvec; in get_for_ref()
1310 ((type *)ref->u.a.dim[src_dim].v.vector)[idx]) \ in get_for_ref()
1311 - GFC_DIMENSION_LBOUND (src->dim[src_dim])) \ in get_for_ref()
1312 * GFC_DIMENSION_STRIDE (src->dim[src_dim]); \ in get_for_ref()
1315 switch (ref->u.a.dim[src_dim].v.kind) in get_for_ref()
1334 dst_kind, src_kind, dst_dim + 1, src_dim + 1, in get_for_ref()
1342 ref->u.a.dim[src_dim].s.stride, in get_for_ref()
1343 GFC_DIMENSION_LBOUND (src->dim[src_dim]), in get_for_ref()
1344 GFC_DIMENSION_UBOUND (src->dim[src_dim])); in get_for_ref()
1345 stride_src = src->dim[src_dim]._stride in get_for_ref()
1346 * ref->u.a.dim[src_dim].s.stride; in get_for_ref()
1354 dst_kind, src_kind, dst_dim + 1, src_dim + 1, in get_for_ref()
1362 ref->u.a.dim[src_dim].s.stride, in get_for_ref()
1363 ref->u.a.dim[src_dim].s.start, in get_for_ref()
1364 ref->u.a.dim[src_dim].s.end); in get_for_ref()
1365 array_offset_src = (ref->u.a.dim[src_dim].s.start in get_for_ref()
1366 - GFC_DIMENSION_LBOUND (src->dim[src_dim])) in get_for_ref()
1367 * GFC_DIMENSION_STRIDE (src->dim[src_dim]); in get_for_ref()
1368 stride_src = GFC_DIMENSION_STRIDE (src->dim[src_dim]) in get_for_ref()
1369 * ref->u.a.dim[src_dim].s.stride; in get_for_ref()
1381 dst_kind, src_kind, next_dst_dim, src_dim + 1, in get_for_ref()
1389 array_offset_src = (ref->u.a.dim[src_dim].s.start in get_for_ref()
1390 - src->dim[src_dim].lower_bound) in get_for_ref()
1391 * GFC_DIMENSION_STRIDE (src->dim[src_dim]); in get_for_ref()
1395 dst_kind, src_kind, dst_dim, src_dim + 1, 1, in get_for_ref()
1400 ref->u.a.dim[src_dim].s.stride, in get_for_ref()
1401 ref->u.a.dim[src_dim].s.start, in get_for_ref()
1402 GFC_DIMENSION_UBOUND (src->dim[src_dim])); in get_for_ref()
1403 stride_src = GFC_DIMENSION_STRIDE (src->dim[src_dim]) in get_for_ref()
1404 * ref->u.a.dim[src_dim].s.stride; in get_for_ref()
1405 array_offset_src = (ref->u.a.dim[src_dim].s.start in get_for_ref()
1406 - GFC_DIMENSION_LBOUND (src->dim[src_dim])) in get_for_ref()
1407 * GFC_DIMENSION_STRIDE (src->dim[src_dim]); in get_for_ref()
1413 dst_kind, src_kind, dst_dim + 1, src_dim + 1, in get_for_ref()
1422 ref->u.a.dim[src_dim].s.stride, in get_for_ref()
1423 GFC_DIMENSION_LBOUND (src->dim[src_dim]), in get_for_ref()
1424 ref->u.a.dim[src_dim].s.end); in get_for_ref()
1425 stride_src = GFC_DIMENSION_STRIDE (src->dim[src_dim]) in get_for_ref()
1426 * ref->u.a.dim[src_dim].s.stride; in get_for_ref()
1433 dst_kind, src_kind, dst_dim + 1, src_dim + 1, in get_for_ref()
1445 if (ref->u.a.mode[src_dim] == CAF_ARR_REF_NONE) in get_for_ref()
1452 switch (ref->u.a.mode[src_dim]) in get_for_ref()
1457 for (size_t idx = 0; idx < ref->u.a.dim[src_dim].v.nvec; in get_for_ref()
1461 array_offset_src = ((type *)ref->u.a.dim[src_dim].v.vector)[idx]; \ in get_for_ref()
1464 switch (ref->u.a.dim[src_dim].v.kind) in get_for_ref()
1483 dst_kind, src_kind, dst_dim + 1, src_dim + 1, in get_for_ref()
1492 array_offset_src <= ref->u.a.dim[src_dim].s.end; in get_for_ref()
1493 array_offset_src += ref->u.a.dim[src_dim].s.stride) in get_for_ref()
1497 dst_kind, src_kind, dst_dim + 1, src_dim + 1, in get_for_ref()
1505 ref->u.a.dim[src_dim].s.stride, in get_for_ref()
1506 ref->u.a.dim[src_dim].s.start, in get_for_ref()
1507 ref->u.a.dim[src_dim].s.end); in get_for_ref()
1508 array_offset_src = ref->u.a.dim[src_dim].s.start; in get_for_ref()
1514 dst_kind, src_kind, dst_dim + 1, src_dim + 1, in get_for_ref()
1518 array_offset_src += ref->u.a.dim[src_dim].s.stride; in get_for_ref()
1522 array_offset_src = ref->u.a.dim[src_dim].s.start; in get_for_ref()
1525 dst_kind, src_kind, dst_dim, src_dim + 1, 1, in get_for_ref()
2027 int dst_kind, int src_kind, size_t dst_dim, size_t src_dim, in send_by_ref() argument
2172 dst_kind, src_kind, 0, src_dim, 1, size, stat, dst_type); in send_by_ref()
2177 ds + ref->u.c.offset, sr, dst_kind, src_kind, 0, src_dim, in send_by_ref()
2185 0, src_dim, 1, size, stat, dst_type); in send_by_ref()
2196 src_index[src_dim] = 0; in send_by_ref()
2226 dst_kind, src_kind, dst_dim + 1, src_dim + 1, in send_by_ref()
2229 src_index[src_dim] in send_by_ref()
2230 += GFC_DIMENSION_STRIDE (src->dim[src_dim]); in send_by_ref()
2241 src_index[src_dim] = 0; in send_by_ref()
2247 dst_kind, src_kind, dst_dim + 1, src_dim + 1, in send_by_ref()
2250 src_index[src_dim] in send_by_ref()
2251 += GFC_DIMENSION_STRIDE (src->dim[src_dim]); in send_by_ref()
2263 src_index[src_dim] = 0; in send_by_ref()
2268 dst_kind, src_kind, dst_dim + 1, src_dim + 1, in send_by_ref()
2271 src_index[src_dim] in send_by_ref()
2272 += GFC_DIMENSION_STRIDE (src->dim[src_dim]); in send_by_ref()
2282 dst_kind, src_kind, dst_dim + 1, src_dim, 1, in send_by_ref()
2294 src_index[src_dim] = 0; in send_by_ref()
2299 dst_kind, src_kind, dst_dim + 1, src_dim + 1, in send_by_ref()
2302 src_index[src_dim] in send_by_ref()
2303 += GFC_DIMENSION_STRIDE (src->dim[src_dim]); in send_by_ref()
2315 src_index[src_dim] = 0; in send_by_ref()
2320 dst_kind, src_kind, dst_dim + 1, src_dim + 1, in send_by_ref()
2323 src_index[src_dim] in send_by_ref()
2324 += GFC_DIMENSION_STRIDE (src->dim[src_dim]); in send_by_ref()
2337 0, src_dim, 1, size, stat, dst_type); in send_by_ref()
2344 src_index[src_dim] = 0; in send_by_ref()
2371 dst_kind, src_kind, dst_dim + 1, src_dim + 1, in send_by_ref()
2373 src_index[src_dim] in send_by_ref()
2374 += GFC_DIMENSION_STRIDE (src->dim[src_dim]); in send_by_ref()
2378 src_index[src_dim] = 0; in send_by_ref()
2385 dst_kind, src_kind, dst_dim + 1, src_dim + 1, in send_by_ref()
2388 src_index[src_dim] in send_by_ref()
2389 += GFC_DIMENSION_STRIDE (src->dim[src_dim]); in send_by_ref()
2398 src_index[src_dim] = 0; in send_by_ref()
2403 dst_kind, src_kind, dst_dim + 1, src_dim + 1, in send_by_ref()
2406 src_index[src_dim] in send_by_ref()
2407 += GFC_DIMENSION_STRIDE (src->dim[src_dim]); in send_by_ref()
2415 dst_kind, src_kind, dst_dim + 1, src_dim, 1, in send_by_ref()