Lines Matching refs:g_a
294 g_a, alo, ahi, g_b, blo, bhi, g_c, clo, chi, g_m, mlo, mhi) in pnga_median_patch() argument
295 Integer g_a, *alo, *ahi; /* patch of g_a */ in pnga_median_patch()
307 Integer g_A = g_a, g_B = g_b;
326 pnga_inquire (g_a, &atype, &andim, adims);
346 pnga_error("pnga_median_patch: g_a indices out of range ", g_a);
394 num_blocks_a = pnga_total_blocks(g_a);
419 pnga_copy_patch(&transp, g_a, alo, ahi, g_A, mlo, mhi);
502 pnga_copy_patch(&transp, g_a, alo, ahi, g_A, mlo, mhi);
689 void pnga_median(Integer g_a, Integer g_b, Integer g_c, Integer g_m){ in pnga_median() argument
701 pnga_inquire(g_a, &atype, &andim, ahi); in pnga_median()
726 pnga_median_patch(g_a, alo, ahi, g_b, blo, bhi, g_c, clo, chi, g_m, mlo, mhi); in pnga_median()
730 static void sgai_norm_infinity_block(Integer g_a, void *ptr, in sgai_norm_infinity_block() argument
871 void pnga_norm_infinity(Integer g_a, double *nm) in pnga_norm_infinity() argument
899 pnga_check_handle (g_a, "ga_norm_infinity_"); in pnga_norm_infinity()
901 pnga_inquire (g_a, &type, &ndim, dims); in pnga_norm_infinity()
934 pnga_local_iterator_init(g_a, &hdl); in pnga_norm_infinity()
936 sgai_norm_infinity_block(g_a, ptr, lo, hi, ld, type, ndim, dims, buf); in pnga_norm_infinity()
939 num_blocks_a = pnga_total_blocks(g_a); in pnga_norm_infinity()
942 pnga_distribution(g_a, me, lo, hi); in pnga_norm_infinity()
943 pnga_access_ptr(g_a, lo, hi, &ptr, &ld); in pnga_norm_infinity()
944 sgai_norm_infinity_block(g_a, ptr, lo, hi, ld, type, ndim, dims, buf); in pnga_norm_infinity()
945 pnga_release_update(g_a, lo, hi); in pnga_norm_infinity()
949 if (!pnga_uses_proc_grid(g_a)) { in pnga_norm_infinity()
951 pnga_distribution(g_a, idx, lo, hi); in pnga_norm_infinity()
952 pnga_access_block_ptr(g_a, idx, &ptr, &ld); in pnga_norm_infinity()
953 sgai_norm_infinity_block(g_a, ptr, lo, hi, ld, type, ndim, dims, buf); in pnga_norm_infinity()
954 pnga_release_update_block(g_a, idx); in pnga_norm_infinity()
962 pnga_get_proc_index(g_a, me, proc_index); in pnga_norm_infinity()
963 pnga_get_proc_index(g_a, me, index); in pnga_norm_infinity()
964 pnga_get_block_info(g_a, blocks, block_dims); in pnga_norm_infinity()
965 pnga_get_proc_grid(g_a, topology); in pnga_norm_infinity()
976 pnga_access_block_grid_ptr(g_a, index, &ptr, &ld); in pnga_norm_infinity()
977 sgai_norm_infinity_block(g_a, ptr, lo, hi, ld, type, ndim, dims, buf); in pnga_norm_infinity()
978 pnga_release_update_block_grid(g_a, index); in pnga_norm_infinity()
1051 static void sgai_norm1_block(Integer g_a, void *ptr, in sgai_norm1_block() argument
1183 void pnga_norm1(Integer g_a, double *nm) in pnga_norm1() argument
1210 pnga_check_handle (g_a, "ga_norm1_"); in pnga_norm1()
1212 pnga_inquire (g_a, &type, &ndim, dims); in pnga_norm1()
1243 pnga_local_iterator_init(g_a, &hdl); in pnga_norm1()
1245 sgai_norm1_block(g_a, ptr, lo, hi, ld, type, ndim, dims, buf); in pnga_norm1()
1248 num_blocks_a = pnga_total_blocks(g_a); in pnga_norm1()
1251 pnga_distribution(g_a, me, lo, hi); in pnga_norm1()
1252 pnga_access_ptr(g_a, lo, hi, &ptr, &ld); in pnga_norm1()
1253 sgai_norm1_block(g_a, ptr, lo, hi, ld, type, ndim, dims, buf); in pnga_norm1()
1254 pnga_release_update(g_a, lo, hi); in pnga_norm1()
1258 if (!pnga_uses_proc_grid(g_a)) { in pnga_norm1()
1260 pnga_distribution(g_a, idx, lo, hi); in pnga_norm1()
1261 pnga_access_block_ptr(g_a, idx, &ptr, &ld); in pnga_norm1()
1262 sgai_norm1_block(g_a, ptr, lo, hi, ld, type, ndim, dims, buf); in pnga_norm1()
1263 pnga_release_update_block(g_a, idx); in pnga_norm1()
1271 pnga_get_proc_index(g_a, me, proc_index); in pnga_norm1()
1272 pnga_get_proc_index(g_a, me, index); in pnga_norm1()
1273 pnga_get_block_info(g_a, blocks, block_dims); in pnga_norm1()
1274 pnga_get_proc_grid(g_a, topology); in pnga_norm1()
1285 pnga_access_block_grid_ptr(g_a, index, &ptr, &ld); in pnga_norm1()
1286 sgai_norm1_block(g_a, ptr, lo, hi, ld, type, ndim, dims, buf); in pnga_norm1()
1287 pnga_release_update_block_grid(g_a, index); in pnga_norm1()
1359 static void sgai_get_diagonal_block(Integer g_a, void *ptr, Integer g_v, in sgai_get_diagonal_block() argument
1482 void pnga_get_diag(Integer g_a, Integer g_v) in pnga_get_diag() argument
1497 pnga_check_handle (g_a, "ga_get_diag_"); in pnga_get_diag()
1500 pnga_inquire (g_a, &atype, &andim, adims); in pnga_get_diag()
1525 pnga_local_iterator_init(g_a, &hdl); in pnga_get_diag()
1527 sgai_get_diagonal_block(g_a, ptr, g_v, loA, hiA, ld, type); in pnga_get_diag()
1530 num_blocks_a = pnga_total_blocks(g_a); in pnga_get_diag()
1533 pnga_distribution(g_a, me, loA, hiA); in pnga_get_diag()
1534 pnga_access_ptr(g_a, loA, hiA, &ptr, &ld); in pnga_get_diag()
1535 sgai_get_diagonal_block(g_a, ptr, g_v, loA, hiA, ld, type); in pnga_get_diag()
1536 pnga_release_update(g_a, loA, hiA); in pnga_get_diag()
1540 if (!pnga_uses_proc_grid(g_a)) { in pnga_get_diag()
1542 pnga_distribution(g_a, idx, loA, hiA); in pnga_get_diag()
1543 pnga_access_block_ptr(g_a, idx, &ptr, &ld); in pnga_get_diag()
1544 sgai_get_diagonal_block(g_a, ptr, g_v, loA, hiA, ld, type); in pnga_get_diag()
1545 pnga_release_update_block(g_a, idx); in pnga_get_diag()
1553 pnga_get_proc_index(g_a, me, proc_index); in pnga_get_diag()
1554 pnga_get_proc_index(g_a, me, index); in pnga_get_diag()
1555 pnga_get_block_info(g_a, blocks, block_dims); in pnga_get_diag()
1556 pnga_get_proc_grid(g_a, topology); in pnga_get_diag()
1567 pnga_access_block_grid_ptr(g_a, index, &ptr, &ld); in pnga_get_diag()
1568 sgai_get_diagonal_block(g_a, ptr, g_v, loA, hiA, ld, type); in pnga_get_diag()
1569 pnga_release_update_block_grid(g_a, index); in pnga_get_diag()
1588 static void sgai_add_diagonal_block(Integer g_a, void *ptr, Integer g_v, in sgai_add_diagonal_block() argument
1709 void pnga_add_diagonal(Integer g_a, Integer g_v) in pnga_add_diagonal() argument
1724 pnga_check_handle (g_a, "ga_add_diagonal_"); in pnga_add_diagonal()
1727 pnga_inquire(g_a, &atype, &andim, adims); in pnga_add_diagonal()
1753 pnga_local_iterator_init(g_a, &hdl); in pnga_add_diagonal()
1755 sgai_add_diagonal_block(g_a, ptr, g_v, loA, hiA, ld, type); in pnga_add_diagonal()
1758 num_blocks_a = pnga_total_blocks(g_a); in pnga_add_diagonal()
1761 pnga_distribution(g_a, me, loA, hiA); in pnga_add_diagonal()
1762 pnga_access_ptr(g_a, loA, hiA, &ptr, &ld); in pnga_add_diagonal()
1763 sgai_add_diagonal_block(g_a, ptr, g_v, loA, hiA, ld, type); in pnga_add_diagonal()
1767 if (!pnga_uses_proc_grid(g_a)) { in pnga_add_diagonal()
1769 pnga_distribution(g_a, idx, loA, hiA); in pnga_add_diagonal()
1770 pnga_access_block_ptr(g_a, idx, &ptr, &ld); in pnga_add_diagonal()
1771 sgai_add_diagonal_block(g_a, ptr, g_v, loA, hiA, ld, type); in pnga_add_diagonal()
1772 pnga_release_update_block(g_a, idx); in pnga_add_diagonal()
1780 pnga_get_proc_index(g_a, me, proc_index); in pnga_add_diagonal()
1781 pnga_get_proc_index(g_a, me, index); in pnga_add_diagonal()
1782 pnga_get_block_info(g_a, blocks, block_dims); in pnga_add_diagonal()
1783 pnga_get_proc_grid(g_a, topology); in pnga_add_diagonal()
1794 pnga_access_block_grid_ptr(g_a, index, &ptr, &ld); in pnga_add_diagonal()
1795 sgai_add_diagonal_block(g_a, ptr, g_v, loA, hiA, ld, type); in pnga_add_diagonal()
1796 pnga_release_update_block_grid(g_a, index); in pnga_add_diagonal()
1813 static void sgai_set_diagonal_block(Integer g_a, void *ptr, Integer g_v, Integer *loA, in sgai_set_diagonal_block() argument
1930 pnga_release_update (g_a, lo, hi); in sgai_set_diagonal_block()
1939 void pnga_set_diagonal(Integer g_a, Integer g_v) in pnga_set_diagonal() argument
1954 pnga_check_handle (g_a, "ga_set_diagonal_"); in pnga_set_diagonal()
1957 pnga_inquire (g_a, &atype, &andim, adims); in pnga_set_diagonal()
1983 pnga_local_iterator_init(g_a, &hdl); in pnga_set_diagonal()
1985 sgai_set_diagonal_block(g_a, ptr, g_v, loA, hiA, ld, type); in pnga_set_diagonal()
1988 num_blocks_a = pnga_total_blocks(g_a); in pnga_set_diagonal()
1991 pnga_distribution(g_a, me, loA, hiA); in pnga_set_diagonal()
1992 pnga_access_ptr(g_a, loA, hiA, &ptr, &ld); in pnga_set_diagonal()
1993 sgai_set_diagonal_block(g_a, ptr, g_v, loA, hiA, ld, type); in pnga_set_diagonal()
1994 pnga_release_update(g_a, loA, hiA); in pnga_set_diagonal()
1998 if (!pnga_uses_proc_grid(g_a)) { in pnga_set_diagonal()
2000 pnga_distribution(g_a, idx, loA, hiA); in pnga_set_diagonal()
2001 pnga_access_block_ptr(g_a, idx, &ptr, &ld); in pnga_set_diagonal()
2002 sgai_set_diagonal_block(g_a, ptr, g_v, loA, hiA, ld, type); in pnga_set_diagonal()
2003 pnga_release_update_block(g_a, idx); in pnga_set_diagonal()
2011 pnga_get_proc_index(g_a, me, proc_index); in pnga_set_diagonal()
2012 pnga_get_proc_index(g_a, me, index); in pnga_set_diagonal()
2013 pnga_get_block_info(g_a, blocks, block_dims); in pnga_set_diagonal()
2014 pnga_get_proc_grid(g_a, topology); in pnga_set_diagonal()
2025 pnga_access_block_grid_ptr(g_a, index, &ptr, &ld); in pnga_set_diagonal()
2026 sgai_set_diagonal_block(g_a, ptr, g_v, loA, hiA, ld, type); in pnga_set_diagonal()
2027 pnga_release_update_block_grid(g_a, index); in pnga_set_diagonal()
2045 static void sgai_shift_diagonal_block(Integer g_a, void *ptr, Integer *loA, Integer *hiA, in sgai_shift_diagonal_block() argument
2142 void pnga_shift_diagonal(Integer g_a, void *c) in pnga_shift_diagonal() argument
2156 pnga_check_handle (g_a, "ga_shift_diagonal_"); in pnga_shift_diagonal()
2158 pnga_inquire (g_a, &atype, &andim, adims); in pnga_shift_diagonal()
2166 pnga_local_iterator_init(g_a, &hdl); in pnga_shift_diagonal()
2168 sgai_shift_diagonal_block(g_a, ptr, loA, hiA, ld, c, type); in pnga_shift_diagonal()
2171 num_blocks_a = pnga_total_blocks(g_a); in pnga_shift_diagonal()
2174 pnga_distribution(g_a, me, loA, hiA); in pnga_shift_diagonal()
2175 pnga_access_ptr(g_a, loA, hiA, &ptr, &ld); in pnga_shift_diagonal()
2176 sgai_shift_diagonal_block(g_a, ptr, loA, hiA, ld, c, type); in pnga_shift_diagonal()
2177 pnga_release_update(g_a, loA, hiA); in pnga_shift_diagonal()
2181 if (!pnga_uses_proc_grid(g_a)) { in pnga_shift_diagonal()
2183 pnga_distribution(g_a, idx, loA, hiA); in pnga_shift_diagonal()
2184 pnga_access_block_ptr(g_a, idx, &ptr, &ld); in pnga_shift_diagonal()
2185 sgai_shift_diagonal_block(g_a, ptr, loA, hiA, ld, c, type); in pnga_shift_diagonal()
2186 pnga_release_update_block(g_a, idx); in pnga_shift_diagonal()
2194 pnga_get_proc_index(g_a, me, proc_index); in pnga_shift_diagonal()
2195 pnga_get_proc_index(g_a, me, index); in pnga_shift_diagonal()
2196 pnga_get_block_info(g_a, blocks, block_dims); in pnga_shift_diagonal()
2197 pnga_get_proc_grid(g_a, topology); in pnga_shift_diagonal()
2208 pnga_access_block_grid_ptr(g_a, index, &ptr, &ld); in pnga_shift_diagonal()
2209 sgai_shift_diagonal_block(g_a, ptr, loA, hiA, ld, c, type); in pnga_shift_diagonal()
2210 pnga_release_update_block_grid(g_a, index); in pnga_shift_diagonal()
2227 static void sgai_zero_diagonal_block(Integer g_a, void *ptr, Integer *lo, Integer *hi, in sgai_zero_diagonal_block() argument
2291 void pnga_zero_diagonal(Integer g_a) in pnga_zero_diagonal() argument
2307 pnga_inquire (g_a, &atype, &andim, adims); in pnga_zero_diagonal()
2313 pnga_local_iterator_init(g_a, &hdl); in pnga_zero_diagonal()
2322 sgai_zero_diagonal_block(g_a, ptr, lo, hi, ld, offset, type); in pnga_zero_diagonal()
2327 num_blocks_a = pnga_total_blocks(g_a); in pnga_zero_diagonal()
2331 pnga_distribution (g_a, me, loA, hiA); in pnga_zero_diagonal()
2340 pnga_access_ptr (g_a, lo, hi, &ptr, &ld); in pnga_zero_diagonal()
2341 sgai_zero_diagonal_block(g_a, ptr, lo, hi, ld, offset, type); in pnga_zero_diagonal()
2343 pnga_release_update (g_a, lo, hi); in pnga_zero_diagonal()
2351 if (!pnga_uses_proc_grid(g_a)) { in pnga_zero_diagonal()
2353 pnga_distribution(g_a, idx, loA, hiA); in pnga_zero_diagonal()
2360 pnga_access_block_ptr(g_a, idx, &ptr, lld); in pnga_zero_diagonal()
2370 sgai_zero_diagonal_block(g_a, ptr, lo, hi, lld[0], offset, type); in pnga_zero_diagonal()
2371 pnga_release_update_block(g_a, idx); in pnga_zero_diagonal()
2380 pnga_get_proc_index(g_a, me, proc_index); in pnga_zero_diagonal()
2381 pnga_get_proc_index(g_a, me, index); in pnga_zero_diagonal()
2382 pnga_get_block_info(g_a, blocks, block_dims); in pnga_zero_diagonal()
2383 pnga_get_proc_grid(g_a, topology); in pnga_zero_diagonal()
2400 pnga_access_block_grid_ptr(g_a, index, &ptr, lld); in pnga_zero_diagonal()
2410 sgai_zero_diagonal_block(g_a, ptr, lo, hi, lld[0], offset, type); in pnga_zero_diagonal()
2411 pnga_release_update_block_grid(g_a, index); in pnga_zero_diagonal()
2519 void pnga_scale_rows(Integer g_a, Integer g_v) in pnga_scale_rows() argument
2534 pnga_check_handle (g_a, "ga_scale_rows_"); in pnga_scale_rows()
2537 pnga_inquire (g_a, &atype, &andim, adims); in pnga_scale_rows()
2564 pnga_local_iterator_init(g_a, &hdl); in pnga_scale_rows()
2569 num_blocks_a = pnga_total_blocks(g_a); in pnga_scale_rows()
2572 pnga_distribution (g_a, me, lo, hi); in pnga_scale_rows()
2579 pnga_access_ptr (g_a, lo, hi, &ptr, &ld); in pnga_scale_rows()
2584 pnga_release_update (g_a, lo, hi); in pnga_scale_rows()
2589 if (!pnga_uses_proc_grid(g_a)) { in pnga_scale_rows()
2592 pnga_distribution(g_a, idx, lo, hi); in pnga_scale_rows()
2593 pnga_access_block_ptr(g_a, idx, &ptr, &ld); in pnga_scale_rows()
2595 pnga_release_update_block(g_a, idx); in pnga_scale_rows()
2601 pnga_get_proc_index(g_a, me, proc_index); in pnga_scale_rows()
2602 pnga_get_proc_index(g_a, me, index); in pnga_scale_rows()
2603 pnga_get_block_info(g_a, blocks, block_dims); in pnga_scale_rows()
2604 pnga_get_proc_grid(g_a, topology); in pnga_scale_rows()
2616 pnga_access_block_grid_ptr(g_a, index, &ptr, &ld); in pnga_scale_rows()
2618 pnga_release_update_block_grid(g_a, index); in pnga_scale_rows()
2725 void pnga_scale_cols(Integer g_a, Integer g_v) in pnga_scale_cols() argument
2741 pnga_check_handle (g_a, "ga_scale_cols_"); in pnga_scale_cols()
2744 pnga_inquire(g_a, &atype, &andim, adims); in pnga_scale_cols()
2771 pnga_local_iterator_init(g_a, &hdl); in pnga_scale_cols()
2776 num_blocks_a = pnga_total_blocks(g_a); in pnga_scale_cols()
2779 pnga_distribution (g_a, me, lo, hi); in pnga_scale_cols()
2786 pnga_access_ptr (g_a, lo, hi, &ptr, &ld); in pnga_scale_cols()
2791 pnga_release_update (g_a, lo, hi); in pnga_scale_cols()
2796 if (!pnga_uses_proc_grid(g_a)) { in pnga_scale_cols()
2799 pnga_distribution(g_a, idx, lo, hi); in pnga_scale_cols()
2800 pnga_access_block_ptr(g_a, idx, &ptr, &ld); in pnga_scale_cols()
2802 pnga_release_update_block(g_a, idx); in pnga_scale_cols()
2808 pnga_get_proc_index(g_a, me, proc_index); in pnga_scale_cols()
2809 pnga_get_proc_index(g_a, me, index); in pnga_scale_cols()
2810 pnga_get_block_info(g_a, blocks, block_dims); in pnga_scale_cols()
2811 pnga_get_proc_grid(g_a, topology); in pnga_scale_cols()
2823 pnga_access_block_grid_ptr(g_a, index, &ptr, &ld); in pnga_scale_cols()
2825 pnga_release_update_block_grid(g_a, index); in pnga_scale_cols()