/dports/devel/ga/ga-5.8/global/testing/unit-tests/ |
H A D | ga_create_irreg.c | 23 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 D | ga_create_irreg2.c | 22 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 D | ga_get_diagonal.c | 22 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 D | ga_copypatch2.c | 23 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 D | ga_fillpatch1.c | 20 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 D | ga_zeropatch.c | 23 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 D | ga_zeropatch2.c | 23 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 D | ga_transpose3.c | 21 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 D | ga_solve.c | 22 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 D | ga_get_blockinfo.c | 21 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 D | ga_zerodiagonal.c | 21 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 D | ga_copypatch.c | 22 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 D | ga_add_diagonal.c | 21 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 D | ga_add_patch.c | 22 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 D | ga_copy3.c | 23 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 D | ga_add.c | 23 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 D | ga_copy2.c | 23 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 D | ga_transpose2.c | 38 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 D | ga_transpose.c | 22 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 D | ga_dot.c | 14 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 D | ga_duplicate.c | 20 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 D | testspd.F | 236 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 D | testmult.c | 32 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 D | dgemm_ga.F | 18 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 D | dgemm_ga.F | 18 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)
|