/dports/science/nwchem-data/nwchem-7.0.2-release/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 …]
|
/dports/devel/ga/ga-5.8/global/testing/ |
H A D | perform.F | 54 integer g_a 64 if (.not. ga_create(MT_DBL, n, n, 'a', 0, 0, g_a)) 70 call ga_zero(g_a) 83 call ga_distribution(g_a, me, ilo, ihi, jlo, jhi) 104 integer n, ilo, ihi, jlo,jhi,g_a 127 call ga_fill_patch(g_a, 1, n, 1, n , 1d0*me*loop) 135 call ga_fill_patch(g_a, 1, n, 1, n , 1d0*me*loop) 143 call ga_fill_patch(g_a, 1, n, 1, n , 1d0*me*loop) 170 integer g_a, chunk, jump, count, is, js, ie, je 201 integer g_a, chunk, jump, count, is, js, ie, je [all …]
|
H A D | blktest.F | 115 call ga_zero(g_a) 449 call ga_zero(g_a) 450 call ga_copy(g_a,g_c) 504 call ga_fill(g_a,1) 607 call ga_fill(g_a,1) 611 call ga_fill(g_a,1) 629 call ga_fill(g_a,1) 726 call ga_fill(g_a,-1) 824 call ga_zero(g_a) 880 call ga_zero(g_a) [all …]
|
H A D | test.F | 261 integer g_a, g_b local 388 if(.not.ga_valid_handle(g_a)) call ga_error("invalid handle",g_a) 405 call ga_zero(g_a) 952 call ga_zero(g_a) 1131 call ga_zero(g_a) 1237 integer g_a, g_b local 1361 call ga_zero(g_a) 1825 integer g_a, g_b local 2454 integer g_a local 3001 integer g_a, g_b local [all …]
|
H A D | field-test.F | 173 integer g_a, g_b 231 g_a = ga_create_handle() 241 status = ga_allocate(g_a) 294 call ga_zero(g_a) 488 call ga_copy(g_a, g_b) 518 status = ga_destroy(g_a) 543 integer g_a, g_b 617 g_a = ga_create_handle() 694 call ga_zero(g_a) 893 call ga_copy(g_a, g_b) [all …]
|
H A D | perfmod.F | 59 integer g_a 69 if (.not. ga_create(MT_DBL, n, n, 'a', 0, 0, g_a)) 75 call ga_zero(g_a) 87 call ga_distribution(g_a, me, ilo, ihi, jlo, jhi) 106 integer n, ilo, ihi, jlo,jhi,g_a 135 call ga_fill_patch(g_a, 1, n, 1, n , 1d0*me*loop) 144 call ga_fill_patch(g_a, 1, n, 1, n , 1d0*me*loop) 153 call ga_fill_patch(g_a, 1, n, 1, n , 1d0*me*loop) 180 integer g_a, chunk, jump, count, is, js, ie, je 229 integer g_a, chunk, jump, count, is, js, ie, je [all …]
|
H A D | pgtest.F | 288 integer g_a, g_b 379 if(.not.ga_valid_handle(g_a)) call ga_error("invalid handle",g_a) 391 call ga_zero(g_a) 919 call ga_zero(g_a) 1077 call ga_zero(g_a) 1183 integer g_a, g_b 1296 call ga_zero(g_a) 1756 integer g_a 1841 call ga_zero(g_a) 2218 integer g_a, g_b [all …]
|
H A D | types-test.F | 170 integer g_a, g_b 230 g_a = ga_create_handle() 240 status = ga_allocate(g_a) 293 call ga_zero(g_a) 433 call ga_copy(g_a, g_b) 536 status = ga_destroy(g_a) 562 integer g_a, g_b 635 g_a = ga_create_handle() 712 call ga_zero(g_a) 854 call ga_copy(g_a, g_b) [all …]
|
H A D | testeig.F | 56 integer g_a,g_b,g_c,g_d 107 g_a = ga_create_handle() 110 if (.not.ga_allocate(g_a)) 242 call ga_copy(g_a, g_aa) 247 call ga_copy(g_aa, g_a) 263 call ga_copy(g_a, g_aa) 267 call ga_copy(g_aa, g_a) 335 call ga_copy(g_a, g_aa) 339 call ga_copy(g_aa, g_a) 352 call ga_copy(g_a, g_aa) [all …]
|
H A D | enormous.c | 38 GA_Zero(g_a); in main() 40 GA_Print_distribution(g_a); in main() 53 NGA_Distribution64(g_a, me, lo, hi); in main() 54 NGA_Access64(g_a, lo, hi, &ptr, ld); in main() 67 GA_Destroy(g_a); in main() 79 GA_Zero(g_a); in main() 81 GA_Print_distribution(g_a); in main() 96 NGA_Put64(g_a, lo, hi, buf, ld); in main() 101 NGA_Distribution64(g_a, me, lo, hi); in main() 102 NGA_Access64(g_a, lo, hi, &ptr, ld); in main() [all …]
|
H A D | sparse.F | 93 if (.not. nga_create(MT_DBL, ndim, dims, 'array', chunck, g_a)) 97 call nga_distribution(g_a,me,ilo,ihi) 103 call ga_fill(g_a,0.0d+00) 109 if(num.gt.0)call NGA_scatter(g_a,v,iv,Min(num,m)) 117 call nga_put(g_a,ilocmin,ilocmin,xmin1,1) 118 call nga_put(g_a,ilocmax,ilocmax,xmax1,1) 123 call nga_select_elem(g_a,'max',xmax_ga,ilocmax_ga) 125 call nga_select_elem(g_a,'min',xmin_ga,ilocmin_ga) 181 call nga_distribution(g_a,me,ilo,ihi) 188 call nga_put(g_a,i,i+nelem -1,iv,1) [all …]
|
H A D | pg2test.F | 276 if(.not.ga_valid_handle(g_a)) call ga_error("invalid handle",g_a) 288 call ga_zero(g_a) 665 call ga_zero(g_a) 694 call ga_zero(g_a) 719 call ga_zero(g_a) 871 call ga_zero(g_a) 968 integer g_a, g_b 1033 call ga_zero(g_a) 1454 integer g_a 1855 integer g_a, g_b [all …]
|
H A D | matrixc.c | 25 int g_a, g_v; in do_work() local 61 g_a = NGA_Create_handle(); in do_work() 66 NGA_Allocate(g_a); in do_work() 82 GA_Get_diag(g_a, g_v); in do_work() 111 GA_Get_diag(g_a, g_v); in do_work() 149 GA_Get_diag(g_a, g_v); in do_work() 178 GA_Get_diag(g_a, g_v); in do_work() 205 GA_Zero_diagonal(g_a); in do_work() 207 GA_Get_diag(g_a, g_v); in do_work() 242 GA_Scale_rows(g_a,g_v); in do_work() [all …]
|
H A D | testc.c | 22 int g_a, g_b; in do_work() local 33 g_a = NGA_Create(type, 2, dims, "A", NULL); in do_work() 34 if(!g_a) GA_Error("create failed: A",n); in do_work() 39 g_b = GA_Duplicate(g_a, "B"); in do_work() 43 GA_Zero(g_a); /* zero the matrix */ in do_work() 52 NGA_Put(g_a, lo, hi, buf, &n); in do_work() 62 GA_Transpose(g_a, g_b); /* B=A' */ in do_work() 71 GA_Zero(g_a); /* zero the matrix */ in do_work() 80 NGA_Acc(g_a, lo, hi, buf, &ld, &alpha ); in do_work() 85 NGA_Get(g_a, lo, hi, buf,&ld); in do_work() [all …]
|
/dports/devel/ga/ga-5.8/global/src/ |
H A D | sclstubs.c | 51 gai_lu_solve_alt_(&tran, &g_a, &g_b); in pnga_lu_solve_alt() 70 pnga_check_handle(g_a, "ga_lu_solve: a"); in pnga_lu_solve() 72 pnga_inquire (g_a, &typeA, &ndim, dimsA); in pnga_lu_solve() 82 pnga_lu_solve_seq(tran, g_a, g_b); in pnga_lu_solve() 88 Integer pnga_llt_solve(Integer g_a, Integer g_b) { in pnga_llt_solve() argument 92 return gai_llt_solve_(&g_a, &g_b); in pnga_llt_solve() 106 Integer pnga_solve(Integer g_a, Integer g_b) { in pnga_solve() argument 110 return gai_solve_(&g_a, &g_b); in pnga_solve() 124 Integer pnga_spd_invert(Integer g_a) { in pnga_spd_invert() argument 127 Integer gai_spd_invert_(Integer *g_a); in pnga_spd_invert() [all …]
|
H A D | matrix.c | 307 Integer g_A = g_a, g_B = g_b; 945 pnga_release_update(g_a, lo, hi); in pnga_norm_infinity() 949 if (!pnga_uses_proc_grid(g_a)) { in pnga_norm_infinity() 1258 if (!pnga_uses_proc_grid(g_a)) { in pnga_norm1() 1540 if (!pnga_uses_proc_grid(g_a)) { in pnga_get_diag() 1767 if (!pnga_uses_proc_grid(g_a)) { in pnga_add_diagonal() 1998 if (!pnga_uses_proc_grid(g_a)) { in pnga_set_diagonal() 2181 if (!pnga_uses_proc_grid(g_a)) { in pnga_shift_diagonal() 2291 void pnga_zero_diagonal(Integer g_a) in pnga_zero_diagonal() argument 2351 if (!pnga_uses_proc_grid(g_a)) { in pnga_zero_diagonal() [all …]
|
/dports/devel/ga/ga-5.8/ga++/src/ |
H A D | GlobalArray.h | 250 GlobalArray(const GlobalArray &g_a); 466 void add(void *alpha, const GlobalArray * g_a, 550 void copy(const GlobalArray *g_a) const; 589 double ddot(const GlobalArray * g_a) const; 738 float fdot(const GlobalArray * g_a) const; 870 int idot(const GlobalArray * g_a) const; 933 long ldot(const GlobalArray * g_a) const; 976 int lltSolve(const GlobalArray * g_a) const; 1078 const GlobalArray *g_a, 1088 const GlobalArray *g_a, [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/util/ |
H A D | util_ga_test.F | 170 integer g_a, g_b 215 if(.not.ga_valid_handle(g_a)) call ga_error("invalid handle",g_a) 222 call ga_zero(g_a) 616 call ga_zero(g_a) 705 integer g_a, g_b 750 call ga_zero(g_a) 1155 integer g_a 1193 call ga_zero(g_a) 1358 call ga_zero(g_a) 1509 integer g_a, g_b [all …]
|
H A D | testsolve.F | 12 common /info/ n, g_a 72 call ga_orthog(g_a, -999999, .false.) 146 call ga_diag_std_seq(g_a, g_v, evals) 171 status = ga_destroy(g_a) 183 integer n, g_a local 184 common /info/ n, g_a local 192 integer n, g_a local 194 common /info/ n, g_a local 227 integer g_grad, g_work, g_s, g_x, g_a 276 call ga_symmetrize(g_a) [all …]
|
H A D | util_ndim_test.F | 70 integer g_a 102 call nga_distribution(g_a, me, lo,hi) 116 call ga_fill(g_a,dble(me)) 141 call ga_fill(g_a,-1d0) 226 status= ga_destroy(g_a) 241 integer g_a 276 call nga_distribution(g_a, me, lo,hi) 290 call ga_fill(g_a,dble(me)) 315 call ga_fill(g_a,-1d0) 400 status= ga_destroy(g_a) [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/util/ |
H A D | util_ga_test.F | 170 integer g_a, g_b 215 if(.not.ga_valid_handle(g_a)) call ga_error("invalid handle",g_a) 222 call ga_zero(g_a) 616 call ga_zero(g_a) 705 integer g_a, g_b 750 call ga_zero(g_a) 1155 integer g_a 1193 call ga_zero(g_a) 1358 call ga_zero(g_a) 1509 integer g_a, g_b [all …]
|
H A D | testsolve.F | 12 common /info/ n, g_a 72 call ga_orthog(g_a, -999999, .false.) 146 call ga_diag_std_seq(g_a, g_v, evals) 171 status = ga_destroy(g_a) 183 integer n, g_a local 184 common /info/ n, g_a local 192 integer n, g_a local 194 common /info/ n, g_a local 227 integer g_grad, g_work, g_s, g_x, g_a 276 call ga_symmetrize(g_a) [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/ddscf/ |
H A D | ga_atom_blk.F | 21 integer nbf,g_a 34 write(0,*) nblock(1),' m1 ',(int_mb(k_map+g_a),g_a=0,nblock(1)-1) 36 A g_a=0,nblock(2)-1) 43 call ga_distribution(g_a, 58 ga_create_atom_blocked = g_a 80 integer nbf,g_a 91 do g_a=1,nblock(3) 92 int_mb(k_map+nblock(2)+g_a)=int_mb(k_map+ga_nnodes()+g_a) 99 do g_a=1,2*ga_nnodes() 100 write(0,*) '3d i m ',g_a,int_mb(k_map+g_a) [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/ddscf/ |
H A D | ga_atom_blk.F | 21 integer nbf,g_a 34 write(0,*) nblock(1),' m1 ',(int_mb(k_map+g_a),g_a=0,nblock(1)-1) 36 A g_a=0,nblock(2)-1) 43 call ga_distribution(g_a, 58 ga_create_atom_blocked = g_a 80 integer nbf,g_a 91 do g_a=1,nblock(3) 92 int_mb(k_map+nblock(2)+g_a)=int_mb(k_map+ga_nnodes()+g_a) 99 do g_a=1,2*ga_nnodes() 100 write(0,*) '3d i m ',g_a,int_mb(k_map+g_a) [all …]
|
/dports/devel/ga/ga-5.8/cca/ga_cca_classic/ |
H A D | overload.cxx | 17 GA::GlobalArray::operator=(const GA::GlobalArray &g_a) { in operator =() argument 19 if(this != &g_a) { in operator =() 22 mHandle = GA_Duplicate(g_a.mHandle, g_a.inquireName()); in operator =() 25 GA_Copy(g_a.mHandle, mHandle); in operator =() 31 GA::GlobalArray::operator==(const GA::GlobalArray &g_a) const { in operator ==() 39 NGA_Inquire(g_a.mHandle, &type2, &ndim2, dims2); in operator ==() 41 if(GA_Compare_distr(mHandle, g_a.mHandle)) isEqual = FALSE; in operator ==() 43 NGA_Distribution(g_a.mHandle, GA_Nodeid(), blo, bhi); in operator ==() 53 NGA_Access(g_a.mHandle, blo, bhi, &ptr2, ld2); in operator ==() 79 NGA_Release(g_a.mHandle, blo, bhi); in operator ==() [all …]
|