Home
last modified time | relevance | path

Searched refs:g_B (Results 1 – 25 of 146) sorted by relevance

123456

/dports/devel/ga/ga-5.8/global/testing/unit-tests/
H A Dga_create_irreg.c23 int g_A, g_B; in irregular_array1() local
34 GA_Print(g_B); in irregular_array1()
47 GA_Destroy(g_B); in irregular_array1()
53 int g_A, g_B; in irregular_array2() local
61 GA_Print(g_B); in irregular_array2()
71 GA_Destroy(g_B); in irregular_array2()
79 int g_A, g_B; in auto_number1() local
112 GA_Print(g_B); in auto_number1()
121 GA_Destroy(g_B); in auto_number1()
127 int g_A, g_B; in auto_number2() local
[all …]
H A Dga_create_irreg2.c22 int g_A, g_B; in irregular_array1() local
33 GA_Print(g_B); in irregular_array1()
46 GA_Destroy(g_B); in irregular_array1()
52 int g_A, g_B; in irregular_array2() local
64 GA_Print(g_B); in irregular_array2()
74 GA_Destroy(g_B); in irregular_array2()
82 int g_A, g_B; in auto_number1() local
115 GA_Print(g_B); in auto_number1()
124 GA_Destroy(g_B); in auto_number1()
130 int g_A, g_B; in auto_number2() local
[all …]
H A Dga_get_diagonal.c22 int g_A, g_B, g_V, g_V2; in main() local
43 g_B = GA_Duplicate(g_A, "array_B"); in main()
44 GA_Fill(g_B, &val2); in main()
46 NGA_Zero_patch(g_B, blo, bhi); in main()
47 GA_Print(g_B); in main()
53 GA_Add_diagonal(g_B, g_V); in main()
58 GA_Get_diag(g_B, g_V2); in main()
60 GA_Print(g_B); in main()
H A Dga_copypatch2.c23 int g_A, g_B, local_A[SIZE][SIZE]; in main() local
39 g_B = GA_Duplicate(g_A, "array_B"); in main()
41 GA_Fill(g_B, &val2); in main()
43 NGA_Copy_patch('N', g_A, alo, ahi, g_B, blo, bhi); in main()
44 GA_Print(g_B); in main()
46 NGA_Get(g_B, blo, bhi, local_A, &ld); in main()
H A Dga_fillpatch1.c20 int g_A, g_B, local_A[5][5], local_B[5][5]; in main() local
36 g_B = GA_Duplicate(g_A, "array_B"); in main()
38 GA_Fill(g_B, &val2); in main()
40 NGA_Zero_patch(g_B, blo, bhi); in main()
41 GA_Print(g_B); in main()
44 NGA_Get(g_B, blo, bhi, local_B, &ld); in main()
H A Dga_zeropatch.c23 int g_A, g_B, local_A[SIZE][SIZE], local_B[SIZE][SIZE]; in main() local
39 g_B = GA_Duplicate(g_A, "array_B"); in main()
41 GA_Fill(g_B, &val2); in main()
43 NGA_Zero_patch(g_B, blo, bhi); in main()
44 GA_Print(g_B); in main()
47 NGA_Get(g_B, blo, bhi, local_B, &ld); in main()
H A Dga_zeropatch2.c23 int g_A, g_B, local_A[SIZE][SIZE], local_B[SIZE][SIZE]; in main() local
39 g_B = GA_Duplicate(g_A, "array_B"); in main()
41 GA_Fill(g_B, &val2); in main()
43 NGA_Zero_patch(g_B, blo, bhi); in main()
44 GA_Print(g_B); in main()
47 NGA_Get(g_B, blo, bhi, local_B, &ld); in main()
H A Dga_transpose3.c21 validate_transpose(int g_A, int g_B, int* lo, int* hi, int ld) in validate_transpose() argument
38 NGA_Get(g_B, lo, hi, local_B, &ld); in validate_transpose()
54 int g_A, g_B, **local_value=NULL; in main() local
72 g_B = NGA_Create(C_INT, DIM, dims, "array_B", NULL); in main()
79 GA_Transpose(g_A, g_B); in main()
80 if(rank==0) validate_transpose(g_A, g_B, lo, hi, ld); in main()
H A Dga_solve.c22 int g_A, g_B; in main() local
41 g_B = NGA_Create(C_INT, ndim, dims, "array_B", NULL); in main()
45 if(!g_B) in main()
52 re=GA_Solve(g_A, g_B); in main()
64 GA_Destroy(g_B); in main()
H A Dga_get_blockinfo.c21 int g_A, g_B; in main() local
35 g_B = NGA_Create_irreg(C_INT, DIM, dims, "array_B", block, map); in main()
40 GA_Fill(g_B, &val); in main()
41 GA_Print(g_B); in main()
44 GA_Get_block_info(g_B, n_block, block_dims); in main()
H A Dga_zerodiagonal.c21 int g_A, g_B, g_V, local_A[5][5], local_B[5][5], vsize=GSIZE; in main() local
38 g_B = GA_Duplicate(g_A, "array_B"); in main()
42 GA_Fill(g_B, &val2); in main()
45 NGA_Zero_patch(g_B, blo, bhi); in main()
48 GA_Print(g_B); in main()
H A Dga_copypatch.c22 int g_A, g_B, local_A[SIZE][SIZE]; in main() local
38 g_B = GA_Duplicate(g_A, "array_B"); in main()
40 GA_Fill(g_B, &val2); in main()
42 NGA_Copy_patch('N', g_A, alo, ahi, g_B, blo, bhi); in main()
45 NGA_Get(g_B, blo, bhi, local_A, &ld); in main()
H A Dga_add_diagonal.c21 int g_A, g_B, g_V, local_A[5][5], local_B[5][5], vsize=GSIZE; in main() local
41 g_B = GA_Duplicate(g_A, "array_B"); in main()
42 GA_Fill(g_B, &val2); in main()
44 NGA_Zero_patch(g_B, blo, bhi); in main()
45 GA_Print(g_B); in main()
H A Dga_add_patch.c22 int g_A, g_B, g_C, local_C[DIM][DIM], dims[DIM]={5,5}, val1=5, val2=4, alpha=3, beta=2, ld=5; in main() local
36 g_B = GA_Duplicate(g_A, "array_B"); in main()
40 GA_Fill(g_B, &val2); in main()
43 NGA_Add_patch(&alpha, g_A, clo, chi, &beta, g_B, blo, bhi, g_C, clo, chi); in main()
47 GA_Print(g_B); in main()
H A Dga_copy3.c23 int g_A, g_B, local_A[SIZE][SIZE], local_B[SIZE][SIZE]; in main() local
39 g_B = GA_Duplicate(g_A, "array_B"); in main()
42 GA_Copy(g_A, g_B); in main()
43 GA_Print(g_B); in main()
54 NGA_Get(g_B, lo, hi, local_B, &ld); in main()
H A Dga_add.c23 int g_A, g_B, g_C, **local_C=NULL, dims[DIM]={SIZE,SIZE}, val1=5, val2=4, alpha=3, beta=2; in main() local
46 g_B = GA_Duplicate(g_A, "array_B"); in main()
50 GA_Fill(g_B, &val2); in main()
52 GA_Add(&alpha, g_A, &beta, g_B, g_C); in main()
57 GA_Print(g_B); in main()
H A Dga_copy2.c23 double g_A, g_B; in main() local
40 g_B = GA_Duplicate(g_A, "array_B"); in main()
43 GA_Copy(g_A, g_B); in main()
44 GA_Print(g_B); in main()
55 NGA_Get(g_B, lo, hi, local_B, &ld); in main()
H A Dga_transpose2.c38 int g_A, g_B, **local_value=NULL; in main() local
65 g_B = NGA_Create(C_INT, DIM, dims, "array_B", NULL); in main()
71 GA_Transpose(g_A, g_B); in main()
73 GA_Print(g_B); in main()
78 NGA_Get(g_B, lo, hi, local_B, &ld); in main()
H A Dga_transpose.c22 int g_A, g_B, value=5, local_GA[SIZE][SIZE], local_A[SIZE][SIZE], local_B[SIZE][SIZE]; in main() local
35 g_B = NGA_Create(C_INT, DIM, dims, "array_B", NULL); in main()
41 GA_Transpose(g_A, g_B); in main()
43 GA_Print(g_B); in main()
48 NGA_Get(g_B, lo, hi, local_B, &ld); in main()
H A Dga_dot.c14 int g_A, g_B; in integer_dot() local
20 g_B = NGA_Create(C_INT, DIM, dims, "array_B", NULL); in integer_dot()
23 GA_Fill(g_B, &val_B); in integer_dot()
27 op=GA_Idot(g_A, g_B); in integer_dot()
H A Dga_duplicate.c20 double g_A, g_B; in main() local
36 g_B = GA_Duplicate(g_A, "array_B"); in main()
39 GA_Fill(g_B, &val2); in main()
40 GA_Print(g_B); in main()
/dports/devel/ga/ga-5.8/global/testing/
H A Dtestspd.F236 integer g_A, g_B, g_X, g_Y
307 g_B = ga_create_handle()
310 if (.not.ga_allocate(g_B))
415 call ga_copy(g_BB, g_B)
421 call ga_copy(g_B, g_A)
428 call ga_copy(g_BB,g_B)
512 call ga_copy(g_B, g_X)
606 call ga_copy(g_B, g_X)
822 call ga_copy(g_B, g_X)
863 call ga_copy(g_B, g_X1)
[all …]
H A Dtestmult.c32 int g_a, g_b, g_c, g_A, g_B, g_C; in test() local
106 g_B = GA_Duplicate(g_A, "array B_"); in test()
108 if(!g_A || !g_B || !g_C) GA_Error("Create failed: A, B or C",n); in test()
110 GA_Fill(g_B, value2); in test()
116 GA_Sgemm('N', 'N', m, n, k, alpha_flt, g_A, g_B, beta_flt, g_C); in test()
120 GA_Dgemm('N', 'N', m, n, k, alpha_dbl, g_A, g_B, beta_dbl, g_C); in test()
124 GA_Zgemm('N', 'N', m, n, k, alpha_dcpl, g_A, g_B, beta_dcpl, g_C); in test()
128 GA_Cgemm('N', 'N', m, n, k, alpha_scpl, g_A, g_B, beta_scpl, g_C); in test()
136 GA_Destroy(g_B); in test()
/dports/science/nwchem-data/nwchem-7.0.2-release/contrib/openmp_tests/dgemm/
H A Ddgemm_ga.F18 subroutine dgemm_ga(ndim,ldim,g_A,g_B,g_C,a,b,c) argument
23 integer, intent(in) :: g_B ! global array handle for B local
51 integer :: g_B
197 if (.not.ga_create(MT_DBL,ndim,ndim,"g_B",ldim,ldim,g_B))
208 call ga_put(g_B,1,ndim,1,ndim,dbl_mb(k_B1),ndim)
235 call dgemm_ga(ndim,ldim,g_A,g_B,g_C,
277 if (.not.ga_destroy(g_B))
310 subroutine dgemm_ga(ndim,ldim,g_A,g_B,g_C,a,b,c) argument
319 integer g_B !< [Input] Handle of GA B
394 call ga_get(g_B,ilo,ihi,jlo,jhi,b,ldim)
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/contrib/openmp_tests/dgemm/
H A Ddgemm_ga.F18 subroutine dgemm_ga(ndim,ldim,g_A,g_B,g_C,a,b,c)
23 integer, intent(in) :: g_B ! global array handle for B local
51 integer :: g_B variable
197 if (.not.ga_create(MT_DBL,ndim,ndim,"g_B",ldim,ldim,g_B))
208 call ga_put(g_B,1,ndim,1,ndim,dbl_mb(k_B1),ndim)
235 call dgemm_ga(ndim,ldim,g_A,g_B,g_C,
277 if (.not.ga_destroy(g_B))
310 subroutine dgemm_ga(ndim,ldim,g_A,g_B,g_C,a,b,c) argument
319 integer g_B !< [Input] Handle of GA B local
394 call ga_get(g_B,ilo,ihi,jlo,jhi,b,ldim)

123456