Home
last modified time | relevance | path

Searched refs:g_a (Results 26 – 50 of 619) sorted by relevance

12345678910>>...25

/dports/science/nwchem-data/nwchem-7.0.2-release/src/uccsdt/
H A Dga_long1d.F1 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 Dperform.F54 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 Dblktest.F115 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 Dtest.F261 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 Dfield-test.F173 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 Dperfmod.F59 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 Dpgtest.F288 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 Dtypes-test.F170 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 Dtesteig.F56 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 Denormous.c38 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 Dsparse.F93 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 Dpg2test.F276 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 Dmatrixc.c25 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 Dtestc.c22 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 Dsclstubs.c51 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 Dmatrix.c307 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 DGlobalArray.h250 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 Dutil_ga_test.F170 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 Dtestsolve.F12 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 Dutil_ndim_test.F70 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 Dutil_ga_test.F170 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 Dtestsolve.F12 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 Dga_atom_blk.F21 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 Dga_atom_blk.F21 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 Doverload.cxx17 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 …]

12345678910>>...25