/dports/devel/ga/ga-5.8/global/src/ |
H A D | ga.h | 18 extern void GA_Abs_value(int g_a); 24 extern int GA_Allocate(int g_a); 27 extern SingleComplex GA_Cdot(int g_a, int g_b); 41 extern void GA_Destroy(int g_a); 70 extern int GA_Get_pgroup(int g_a); 102 extern int GA_Ndim(int g_a); 132 extern void GA_Print(int g_a); 136 extern void GA_Recip(int g_a); 190 extern void GA_Zero(int g_a); 274 extern int NGA_Ndim(int g_a); [all …]
|
H A D | fapi.c | 38 return wnga_allocate(*g_a); in ga_allocate_() 83 Integer *g_a, int slen in nga_create_() argument 107 Integer *g_a in nga_create_config_() 141 Integer *g_a, in nga_create_ghosts_config_() argument 149 Integer *g_a in nga_create_ghosts_config_() 349 wnga_fill(*g_a, val); in ga_fill_() 354 wnga_fill(*g_a, val); in nga_fill_() 1872 wnga_recip(*g_a); in ga_recip_() 2034 wnga_print(*g_a); in ga_print_() 2268 wnga_zero(*g_a); in ga_zero_() [all …]
|
H A D | ga-papi.h | 13 extern logical pnga_allocate(Integer g_a); 21 Integer *g_a); 50 extern logical pnga_destroy(Integer g_a); 62 extern logical pnga_has_ghosts(Integer g_a); 78 extern Integer pnga_ndim(Integer g_a); 105 extern Integer pnga_get_pgroup(Integer g_a); 219 extern void pnga_abs_value(Integer g_a); 221 extern void pnga_recip(Integer g_a); 250 extern void pnga_print(Integer g_a); 288 extern void pnga_zero(Integer g_a); [all …]
|
H A D | complex.F | 31 complex function ga_cdot(g_a,g_b) 33 integer g_a, g_b local 36 call gai_cdot(g_a,g_b,ga_cdot) 41 integer g_a, g_b local 44 call ngai_cdot(g_a,g_b,nga_cdot) 49 integer g_a, g_b local 52 call gai_zdot(g_a,g_b,ga_zdot) 57 integer g_a, g_b local 78 $ g_a, t_a, alo, ahi, 81 integer g_a, alo, ahi local [all …]
|
H A D | capi.c | 234 Integer g_a; in NGA_Create_irreg() local 257 Integer g_a; in NGA_Create_irreg64() local 281 Integer g_a; in NGA_Create_irreg_config() local 304 Integer g_a; in NGA_Create_irreg_config64() local 327 Integer g_a; in NGA_Create_ghosts_irreg() local 352 Integer g_a; in NGA_Create_ghosts_irreg64() local 377 Integer g_a; in NGA_Create_ghosts_irreg_config() local 403 Integer g_a; in NGA_Create_ghosts_irreg_config64() local 523 Integer g_a; in GA_Create_handle() local 525 return (int)g_a; in GA_Create_handle() [all …]
|
H A D | global.nalg.c | 56 void pnga_zero(Integer g_a) in pnga_zero() argument 70 p_handle = pnga_get_pgroup(g_a); in pnga_zero() 76 pnga_check_handle(g_a, "ga_zero"); in pnga_zero() 86 if (pnga_has_ghosts(g_a)) { in pnga_zero() 196 a_grp = pnga_get_pgroup(g_a); in pnga_copy() 413 a_grp = pnga_get_pgroup(g_a); in pnga_dot() 455 if(g_a == g_b){ in pnga_dot() 607 grp_id = pnga_get_pgroup(g_a); in pnga_scale() 618 if (pnga_has_ghosts(g_a)) { in pnga_scale() 792 if(g_a == g_c){ in pnga_add() [all …]
|
/dports/devel/ga/ga-5.8/global/testing/unit-tests/ |
H A D | mock.c | 16 ITER_DECLARE_VARS(g_a) in Mock_Abs_value() 318 g_a->strides[i] = (i == nd_m1) ? 1 : g_a->strides[i+1]*g_a->dims[i+1]; in Mock_Create() 319 g_a->backstrides[i] = g_a->dims_m1[i]*g_a->strides[i]; in Mock_Create() 324 g_a->strides[i] *= g_a->itemsize; in Mock_Create() 325 g_a->backstrides[i] *= g_a->itemsize; in Mock_Create() 328 g_a->buf = malloc(g_a->size * g_a->itemsize); in Mock_Create() 331 aprint("dims", g_a->dims, g_a->ndim); in Mock_Create() 332 aprint("dims_m1", g_a->dims_m1, g_a->ndim); in Mock_Create() 333 aprint("strides", g_a->strides, g_a->ndim); in Mock_Create() 334 aprint("backstrides", g_a->backstrides, g_a->ndim); in Mock_Create() [all …]
|
H A D | mock.h | 175 NGA_Put(g_a, lo, hi, mock_a->buf, ld); in mock_to_global() 194 NGA_Get(g_a, lo, hi, mock_a->buf, ld); in global_to_mock() 242 void Mock_Abs_value(mock_ga_t *g_a); 256 int Mock_Allocate(mock_ga_t *g_a); 285 void Mock_Destroy(mock_ga_t *g_a); 322 int Mock_Get_pgroup(mock_ga_t *g_a); 327 int Mock_Has_ghosts(mock_ga_t *g_a); 371 int Mock_Ndim(mock_ga_t *g_a); 401 void Mock_Print(mock_ga_t *g_a); 410 void Mock_Recip(mock_ga_t *g_a); [all …]
|
/dports/devel/ga/ga-5.8/global/testing/ |
H A D | normc.c | 25 int g_a; in do_work() local 49 NGA_Allocate(g_a); in do_work() 74 NGA_Destroy(g_a); in do_work() 80 NGA_Allocate(g_a); in do_work() 105 NGA_Destroy(g_a); in do_work() 111 NGA_Allocate(g_a); in do_work() 140 NGA_Destroy(g_a); in do_work() 146 NGA_Allocate(g_a); in do_work() 174 NGA_Destroy(g_a); in do_work() 209 NGA_Destroy(g_a); in do_work() [all …]
|
H A D | mir_perf2.F | 57 integer g_a 68 if (.not. ga_create(MT_DBL, n, 1, 'a', 0, 0, g_a)) 74 call ga_zero(g_a) 90 call ga_distribution(g_a, me, ilo, ihi, jlo, jhi) 110 integer n, ilo, ihi, jlo,jhi,g_a 186 integer g_a, chunk, jump, count, is, js, ie, je 226 integer g_a, chunk, jump, count, is, js, ie, je 267 integer g_a, chunk, jump, count, is, js, ie, je 313 integer g_a 329 call ga_zero(g_a) [all …]
|
H A D | patch_enumf.F | 53 integer g_a local 70 call nga_get(g_a, lo, dims, get, ld) 80 rc = ga_destroy(g_a) 89 integer g_a local 116 rc = ga_destroy(g_a) 125 integer g_a local 152 rc = ga_destroy(g_a) 161 integer g_a local 188 rc = ga_destroy(g_a) 197 integer g_a local [all …]
|
H A D | perf.F | 60 integer g_a 72 if (.not. ga_create(MT_DBL, n, 1, 'a', 0, 0, g_a)) 86 call ga_zero(g_a) 102 call ga_distribution(g_a, me, ilo, ihi, jlo, jhi) 125 integer n, ilo, ihi, jlo,jhi,g_a 203 integer g_a, chunk, jump, count, is, js, ie, je 246 integer g_a, chunk, jump, count, is, js, ie, je 290 integer g_a, chunk, jump, count, is, js, ie, je 339 integer g_a 364 call ga_zero(g_a) [all …]
|
H A D | mir_perf1.F | 54 integer g_a 73 + p_handle, g_a)) 79 call ga_zero(g_a) 95 call ga_distribution(g_a, me, ilo, ihi, jlo, jhi) 115 integer n, ilo, ihi, jlo,jhi,g_a 197 integer g_a, chunk, jump, count, is, js, ie, je 237 integer g_a, chunk, jump, count, is, js, ie, je 278 integer g_a, chunk, jump, count, is, js, ie, je 324 integer g_a 340 call ga_zero(g_a) [all …]
|
H A D | print.c | 16 int g_a = 0; in main() local 33 g_a = NGA_Create(C_INT, 1, &size_dst, "dst", NULL); in main() 34 GA_Fill(g_a, &I_NEG_ONE); in main() 37 GA_Fill(g_a, &L_NEG_ONE); in main() 40 GA_Fill(g_a, &LL_NEG_ONE); in main() 43 GA_Print(g_a); in main() 44 NGA_Print_patch(g_a, &FIVE, &TEN, 0); in main() 45 NGA_Print_patch(g_a, &FIVE, &TEN, 1); in main() 46 NGA_Distribution(g_a, GA_Nodeid(), &lo, &hi); in main() 47 NGA_Access(g_a, &lo, &hi, &ptr, NULL); in main() [all …]
|
/dports/devel/ga/ga-5.8/tools/ |
H A D | ga-wapi.c | 14 void wnga_abs_value(Integer g_a) in wnga_abs_value() argument 18 pnga_abs_value(g_a); in wnga_abs_value() 37 GET_SIZE(g_a, lo, hi, sz); in wnga_acc() 352 pnga_copy(g_a, g_b); in wnga_copy() 792 pnga_fill(g_a, val); in wnga_fill() 826 OBTAIN_ESIZE(tp, g_a); in wnga_gather2d() 1441 pnga_norm1(g_a, nm); in wnga_norm1() 1675 pnga_print(g_a); in wnga_print() 1810 pnga_recip(g_a); in wnga_recip() 2393 pnga_symmetrize(g_a); in wnga_symmetrize() [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/util/ |
H A D | ga_extra.F | 1 subroutine ga_scale_lh(g_a,vector) argument 7 integer g_a 26 call ga_inquire(g_a, ma_type, dim1, dim2) 64 subroutine ga_scale_rh(g_a,vector) 69 integer g_a 115 integer g_a 162 integer g_a 204 subroutine ga_copy_todiag(g_a,vector) 209 integer g_a 245 subroutine ga_add_todiag(g_a,value) [all …]
|
H A D | util_perf_test.F | 61 integer g_a 78 call ga_zero(g_a) 94 call ga_distribution(g_a, me, ilo, ihi, jlo, jhi) 104 if (.not. ga_destroy(g_a)) 116 integer n, ilo, ihi, jlo,jhi,g_a 192 integer g_a, chunk, jump, count, is, js, ie, je 235 integer g_a, chunk, jump, count, is, js, ie, je 328 integer g_a 344 call ga_zero(g_a) 368 if (.not. ga_destroy(g_a)) [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/util/ |
H A D | ga_extra.F | 1 subroutine ga_scale_lh(g_a,vector) argument 7 integer g_a 26 call ga_inquire(g_a, ma_type, dim1, dim2) 64 subroutine ga_scale_rh(g_a,vector) 69 integer g_a 115 integer g_a 162 integer g_a 204 subroutine ga_copy_todiag(g_a,vector) 209 integer g_a 245 subroutine ga_add_todiag(g_a,value) [all …]
|
H A D | util_perf_test.F | 61 integer g_a 78 call ga_zero(g_a) 94 call ga_distribution(g_a, me, ilo, ihi, jlo, jhi) 104 if (.not. ga_destroy(g_a)) 116 integer n, ilo, ihi, jlo,jhi,g_a 192 integer g_a, chunk, jump, count, is, js, ie, je 235 integer g_a, chunk, jump, count, is, js, ie, je 328 integer g_a 344 call ga_zero(g_a) 368 if (.not. ga_destroy(g_a)) [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwdft/rt_tddft/matutils/ |
H A D | matutils.F | 57 call ga_check_handle (g_a, 126 call ga_check_handle (g_a, 148 call ga_dgemm ("n","n",n1,n1,n1, 1d0, g_a, g_a, 0d0, g_tmp) 152 call ga_zgemm ("n","n",n1,n1,n1, zone, g_a, g_a, zzero, g_tmp) 254 call ga_check_handle (g_a, 271 call ga_copy (g_a, g_tmp) 330 call ga_check_handle (g_a, 470 call ga_zero (g_a) 478 call ga_zero (g_a) 486 call ga_zero (g_a) [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwdft/rt_tddft/matutils/ |
H A D | matutils.F | 57 call ga_check_handle (g_a, 126 call ga_check_handle (g_a, 148 call ga_dgemm ("n","n",n1,n1,n1, 1d0, g_a, g_a, 0d0, g_tmp) 152 call ga_zgemm ("n","n",n1,n1,n1, zone, g_a, g_a, zzero, g_tmp) 254 call ga_check_handle (g_a, 271 call ga_copy (g_a, g_tmp) 330 call ga_check_handle (g_a, 470 call ga_zero (g_a) 478 call ga_zero (g_a) 486 call ga_zero (g_a) [all …]
|
/dports/devel/ga/ga-5.8/cca/ga_cca_classic/ |
H A D | GlobalArray.h | 269 void add(void *alpha, const GlobalArray * g_a, 304 int compareDistr(const GlobalArray *g_a) const; 313 void copy(const GlobalArray *g_a) const; 340 double ddot(const GlobalArray * g_a) const; 445 float fdot(const GlobalArray * g_a) const; 519 Integer idot(const GlobalArray * g_a) const; 556 long ldot(const GlobalArray * g_a) const; 576 int lltSolve(const GlobalArray * g_a) const; 651 const GlobalArray *g_a, 680 const GlobalArray *g_a, int *alo, int *ahi, [all …]
|
H A D | GlobalArray.cxx | 50 GA_Copy(g_a.mHandle, mHandle); in GlobalArray() 125 GA_Copy(g_a->mHandle, mHandle); in copy() 136 return GA_Ddot(mHandle, g_a->mHandle); in ddot() 194 return GA_Fdot(mHandle, g_a->mHandle); in fdot() 232 return GA_Idot(mHandle, g_a->mHandle); in idot() 254 return GA_Ldot(mHandle, g_a->mHandle); in ldot() 285 g_a->mHandle, ailo, aihi, ajlo, ajhi, in matmulPatch() 387 return GA_Solve(g_a->mHandle, mHandle); in solve() 415 GA_Transpose(mHandle, g_a->mHandle); in transpose() 430 return GA_Zdot(mHandle, g_a->mHandle); in zdot() [all …]
|
/dports/devel/ga/ga-5.8/ga++/testing/ |
H A D | mtest.cc | 1336 iresult = g_a->idot (g_a); in test_add_diagonal() 1350 lresult = g_a->ldot (g_a); in test_add_diagonal() 1364 fresult = g_a->fdot (g_a); in test_add_diagonal() 1378 dresult = g_a->ddot (g_a); in test_add_diagonal() 1393 zresult = g_a->zdot (g_a); in test_add_diagonal() 1469 iresult = g_a->idot (g_a); in test_set_diagonal() 1483 lresult = g_a->ldot (g_a); in test_set_diagonal() 1497 fresult = g_a->fdot (g_a); in test_set_diagonal() 1511 dresult = g_a->ddot (g_a); in test_set_diagonal() 1528 zresult = g_a->zdot (g_a); in test_set_diagonal() [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/uccsdt/ |
H A D | ga_long1d.F | 1 logical function ga_long1d_create(name, n, g_a) 7 integer g_a local 25 subroutine ga_long1d_put(g_a, start, finish, buf) argument 28 integer g_a local 80 subroutine ga_long1d_get(g_a, start, finish, buf) argument 83 integer g_a local 137 integer g_a local 195 integer g_a 203 if (.not. ga_long1d_create('test', rn, g_a)) 213 call ga_long1d_put(g_a, start, finish, mirror) [all …]
|