Home
last modified time | relevance | path

Searched refs:jlo (Results 1 – 25 of 1110) sorted by relevance

12345678910>>...45

/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/rdmft/
H A Dwfn1_trace.F18 integer ilo, ihi, jlo, jhi
65 allocate(bufa(ilo:ihi,jlo:jhi))
69 do jj = jlo, jhi
82 do jj = jlo, jhi
95 do jj = jlo, jhi
108 do jj = jlo, jhi
150 integer ilo, ihi, jlo, jhi
232 do jj = jlo, jhi
247 do jj = jlo, jhi
262 do jj = jlo, jhi
[all …]
H A Dwfn1_exp.F110 jdim = jhi-jlo+1
111 call ga_distribution(g_x,0,ilo,ihi,jlo,jhi)
113 jdim = max(idim,jhi-jlo+1)
126 block(ilo:ihi,jlo:jhi)=>buf
128 do jj = jlo, jhi
172 block(ilo:ihi,jlo:jhi)=>buf
173 do jj = jlo, jhi
277 do ii = max(ilo,jlo),min(ihi,jhi)
294 do ii = max(ilo,jlo),min(ihi,jhi)
358 do ii = max(ilo,jlo),min(ihi,jhi)
[all …]
/dports/science/nwchem-data/nwchem-7.0.2-release/src/rdmft/
H A Dwfn1_trace.F18 integer ilo, ihi, jlo, jhi
65 allocate(bufa(ilo:ihi,jlo:jhi))
69 do jj = jlo, jhi
82 do jj = jlo, jhi
95 do jj = jlo, jhi
108 do jj = jlo, jhi
150 integer ilo, ihi, jlo, jhi
232 do jj = jlo, jhi
247 do jj = jlo, jhi
262 do jj = jlo, jhi
[all …]
H A Dwfn1_exp.F110 jdim = jhi-jlo+1
111 call ga_distribution(g_x,0,ilo,ihi,jlo,jhi)
113 jdim = max(idim,jhi-jlo+1)
126 block(ilo:ihi,jlo:jhi)=>buf
128 do jj = jlo, jhi
172 block(ilo:ihi,jlo:jhi)=>buf
173 do jj = jlo, jhi
277 do ii = max(ilo,jlo),min(ihi,jhi)
294 do ii = max(ilo,jlo),min(ihi,jhi)
358 do ii = max(ilo,jlo),min(ihi,jhi)
[all …]
/dports/devel/ga/ga-5.8/global/testing/
H A Dtypes-test.F337 call ga_put(g_a, ilo, ihi, jlo, jhi, a(ilo, jlo), n)
388 jhi = jlo
394 call ga_get(g_a, ilo, ihi, jlo, jhi, b(ilo, jlo), n)
479 call ga_get(g_a,ilo,ilo,jlo,jlo,v(loop),1)
481 write(6,*)me,' gather ', ilo,',',jlo,',', a(ilo,jlo)
515 call ga_get(g_a,ilo,ilo,jlo,jlo,w(loop),1)
756 call ga_put(g_a, ilo, ihi, jlo, jhi, a(ilo, jlo), n)
815 call ga_get(g_a, ilo, ihi, jlo, jhi, b(ilo, jlo), n)
900 call ga_get(g_a,ilo,ilo,jlo,jlo,v(loop),1)
902 write(6,*)me,' gather ', ilo,',',jlo,',', a(ilo,jlo)
[all …]
H A Dmir_perf2.F58 integer ilo, ihi, jlo, jhi
190 integer ilo, ihi, jlo, jhi
196 jlo = js
230 integer ilo, ihi, jlo, jhi
236 jlo = js
271 integer ilo, ihi, jlo, jhi
277 jlo = js
314 integer ilo, ihi, jlo, jhi
443 integer ilo, ihi, jlo, jhi
492 integer ilo, ihi, jlo, jhi
[all …]
H A Dperf.F61 integer ilo, ihi, jlo, jhi
105 & jlo, jhi, .true.)
111 & jlo, jhi,.false.)
207 integer ilo, ihi, jlo, jhi
215 jlo = js
250 integer ilo, ihi, jlo, jhi
258 jlo = js
294 integer ilo, ihi, jlo, jhi
302 jlo = js
381 & jlo, jhi, .true.)
[all …]
H A Dmir_perf1.F55 integer ilo, ihi, jlo, jhi
201 integer ilo, ihi, jlo, jhi
207 jlo = js
241 integer ilo, ihi, jlo, jhi
247 jlo = js
282 integer ilo, ihi, jlo, jhi
288 jlo = js
325 integer ilo, ihi, jlo, jhi
454 integer ilo, ihi, jlo, jhi
503 integer ilo, ihi, jlo, jhi
[all …]
H A Dperform.F55 integer ilo, ihi, jlo, jhi
83 call ga_distribution(g_a, me, ilo, ihi, jlo, jhi)
104 integer n, ilo, ihi, jlo,jhi,g_a
115 & ilo,ihi,jlo,jhi
172 integer ilo, ihi, jlo, jhi
182 do jlo = js, je -chunk-jump +1, chunk+jump
183 jhi = jlo + chunk -1
203 integer ilo, ihi, jlo, jhi
214 jhi = jlo + chunk -1
235 integer ilo, ihi, jlo, jhi
[all …]
H A Dpg2test.F395 call ga_get(g_a, ilo, ihi, jlo, jhi, b(ilo, jlo), n)
763 call ga_get(g_a,ilo,ilo,jlo,jlo,v(loop),1)
782 call ga_get(g_a,ilo,ilo,jlo,jlo,v(loop),1)
818 call ga_get(g_a,ilo,ilo,jlo,jlo,w(loop),1)
840 call ga_get(g_a,ilo,ilo,jlo,jlo,w(loop),1)
1132 call ga_get(g_a, ilo, ihi, jlo, jhi, b(ilo, jlo), n)
1316 call ga_get(g_a,ilo,ilo,jlo,jlo,v(loop),1)
1348 call ga_get(g_a,ilo,ilo,jlo,jlo,w(loop),1)
1611 call ga_get(g_a, ilo, ihi, jlo, jhi, b(ilo, jlo), n)
2281 call ga_get(g_a,ilo,ilo,jlo,jlo,v(loop),1)
[all …]
H A Dperfmod.F60 integer ilo, ihi, jlo, jhi
87 call ga_distribution(g_a, me, ilo, ihi, jlo, jhi)
106 integer n, ilo, ihi, jlo,jhi,g_a
119 & ilo,ihi,jlo,jhi
184 integer ilo, ihi, jlo, jhi
203 do jlo = js, je -chunk-jump +1, chunk+jump
204 jhi = jlo + chunk -1
233 integer ilo, ihi, jlo, jhi
253 jhi = jlo + chunk -1
283 integer ilo, ihi, jlo, jhi
[all …]
H A Doverlay.F358 call ga_get(g_a, ilo, ihi, jlo, jhi, b(ilo, jlo), n)
631 call ga_get(g_a,ilo,ilo,jlo,jlo,v(loop),1)
664 call ga_get(g_a,ilo,ilo,jlo,jlo,w(loop),1)
958 call ga_get(g_a, ilo, ihi, jlo, jhi, b(ilo, jlo), n)
1142 call ga_get(g_a,ilo,ilo,jlo,jlo,v(loop),1)
1174 call ga_get(g_a,ilo,ilo,jlo,jlo,w(loop),1)
1465 call ga_get(g_a, ilo, ihi, jlo, jhi, b(ilo, jlo), n)
1649 call ga_get(g_a,ilo,ilo,jlo,jlo,v(loop),1)
1681 call ga_get(g_a,ilo,ilo,jlo,jlo,w(loop),1)
2633 call ga_get(g_a,ilo,ilo,jlo,jlo,v(loop),1)
[all …]
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/util/
H A Dutil_perf_test.F62 integer ilo, ihi, jlo, jhi
196 integer ilo, ihi, jlo, jhi
204 jlo = js
239 integer ilo, ihi, jlo, jhi
247 jlo = js
283 integer ilo, ihi, jlo, jhi
291 jlo = js
329 integer ilo, ihi, jlo, jhi
459 integer ilo, ihi, jlo, jhi
508 integer ilo, ihi, jlo, jhi
[all …]
H A Dga_extra.F21 integer i, j, ilo, ihi, jlo, jhi
40 if (ilo.gt.0 .and. jlo.gt.0) then
43 do j = jlo,jhi
51 do j = jlo,jhi
98 do j = jlo,jhi
145 do j = jlo,jhi
192 do j = jlo,jhi
221 integer i, ilo, ihi, jlo, jhi
234 ilo = max(ilo,jlo)
262 integer i, ilo, ihi, jlo, jhi
[all …]
H A Dutil_ga_test.F263 call ga_put(g_a, ilo, ihi, jlo, jhi, a(ilo, jlo), n)
322 call ga_get(g_a, ilo, ihi, jlo, jhi, b(ilo, jlo), n)
558 call ga_get(g_a,ilo,ilo,jlo,jlo,v(loop),1)
591 call ga_get(g_a,ilo,ilo,jlo,jlo,w(loop),1)
844 call ga_get(g_a, ilo, ihi, jlo, jhi, b(ilo, jlo), n)
1016 call ga_get(g_a,ilo,ilo,jlo,jlo,v(loop),1)
1048 call ga_get(g_a,ilo,ilo,jlo,jlo,w(loop),1)
1290 call ga_get(g_a, ilo, ihi, jlo, jhi, b(ilo, jlo), n)
1646 call ga_get(g_a, ilo, ihi, jlo, jhi, b(ilo, jlo), n)
1874 call ga_get(g_a,ilo,ilo,jlo,jlo,v(loop),1)
[all …]
/dports/science/nwchem-data/nwchem-7.0.2-release/src/util/
H A Dutil_perf_test.F62 integer ilo, ihi, jlo, jhi
196 integer ilo, ihi, jlo, jhi
204 jlo = js
239 integer ilo, ihi, jlo, jhi
247 jlo = js
283 integer ilo, ihi, jlo, jhi
291 jlo = js
329 integer ilo, ihi, jlo, jhi
459 integer ilo, ihi, jlo, jhi
508 integer ilo, ihi, jlo, jhi
[all …]
H A Dga_extra.F21 integer i, j, ilo, ihi, jlo, jhi
40 if (ilo.gt.0 .and. jlo.gt.0) then
43 do j = jlo,jhi
51 do j = jlo,jhi
98 do j = jlo,jhi
145 do j = jlo,jhi
192 do j = jlo,jhi
221 integer i, ilo, ihi, jlo, jhi
234 ilo = max(ilo,jlo)
262 integer i, ilo, ihi, jlo, jhi
[all …]
H A Dutil_ga_test.F263 call ga_put(g_a, ilo, ihi, jlo, jhi, a(ilo, jlo), n)
322 call ga_get(g_a, ilo, ihi, jlo, jhi, b(ilo, jlo), n)
558 call ga_get(g_a,ilo,ilo,jlo,jlo,v(loop),1)
591 call ga_get(g_a,ilo,ilo,jlo,jlo,w(loop),1)
844 call ga_get(g_a, ilo, ihi, jlo, jhi, b(ilo, jlo), n)
1016 call ga_get(g_a,ilo,ilo,jlo,jlo,v(loop),1)
1048 call ga_get(g_a,ilo,ilo,jlo,jlo,w(loop),1)
1290 call ga_get(g_a, ilo, ihi, jlo, jhi, b(ilo, jlo), n)
1646 call ga_get(g_a, ilo, ihi, jlo, jhi, b(ilo, jlo), n)
1874 call ga_get(g_a,ilo,ilo,jlo,jlo,v(loop),1)
[all …]
/dports/devel/ga/ga-5.8/tcgmsg/tests/
H A Djacobi.F9 dimension jlo(0:maxp), nj(0:maxp)
32 call makjlo(n, jlo, nj)
71 $ jlo(0:*), nj(0:*)
96 do 20 j = jlo(me), jlo(me) + nj(me) - 1
97 jj = j - jlo(me) + 1
116 jhi = jlo + nj - 1
117 do 10 j = jlo, jhi
118 jj = j - jlo + 1
128 subroutine makjlo(n, jlo, nj) argument
129 dimension jlo(0:*), nj(0:*)
[all …]
/dports/devel/ga/ga-5.8/tcgmsg/examples/
H A Djacobi.f7 dimension jlo(0:maxp), nj(0:maxp)
30 call makjlo(n, jlo, nj)
69 $ jlo(0:*), nj(0:*)
94 do 20 j = jlo(me), jlo(me) + nj(me) - 1
95 jj = j - jlo(me) + 1
114 jhi = jlo + nj - 1
115 do 10 j = jlo, jhi
116 jj = j - jlo + 1
126 subroutine makjlo(n, jlo, nj) argument
127 dimension jlo(0:*), nj(0:*)
[all …]
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwdft/xc/
H A Dxc_atomblock.F14 integer ilo, ihi, jlo, jhi, idim, jdim
25 jdim = jhi - jlo + 1
28 do j=jlo,jhi
29 icount=1+(j-jlo)*idim
49 integer ilo, ihi, jlo, jhi, idim, jdim
61 jdim = jhi - jlo + 1
64 if(ilo.ne.jlo) then
65 do j=jlo,jhi
66 icount=1+(j-jlo)*idim
73 do j=jlo,jhi
[all …]
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwdft/xc/
H A Dxc_atomblock.F14 integer ilo, ihi, jlo, jhi, idim, jdim
25 jdim = jhi - jlo + 1
28 do j=jlo,jhi
29 icount=1+(j-jlo)*idim
49 integer ilo, ihi, jlo, jhi, idim, jdim
61 jdim = jhi - jlo + 1
64 if(ilo.ne.jlo) then
65 do j=jlo,jhi
66 icount=1+(j-jlo)*idim
73 do j=jlo,jhi
[all …]
/dports/games/minetest/minetest-5.4.1/src/client/
H A Djoystick_controller.cpp49 JoystickLayout jlo; in create_default_layout() local
59 memcpy(jlo.axes, axes, sizeof(jlo.axes)); in create_default_layout()
96 JLO_A_PB(KeyType::FORWARD, 1, 1, jlo.axes_deadzone); in create_default_layout()
97 JLO_A_PB(KeyType::BACKWARD, 1, -1, jlo.axes_deadzone); in create_default_layout()
98 JLO_A_PB(KeyType::LEFT, 0, 1, jlo.axes_deadzone); in create_default_layout()
99 JLO_A_PB(KeyType::RIGHT, 0, -1, jlo.axes_deadzone); in create_default_layout()
105 return jlo; in create_default_layout()
110 JoystickLayout jlo; in create_xbox_layout() local
112 jlo.axes_deadzone = 7000; in create_xbox_layout()
120 memcpy(jlo.axes, axes, sizeof(jlo.axes)); in create_xbox_layout()
[all …]
/dports/science/nwchem-data/nwchem-7.0.2-release/src/ddscf/
H A Dga_mat_to_vec.F1 subroutine ga_mat_to_vec(g_m, ilo, ihi, jlo, jhi, g_v, klo, col, argument
27 integer ilo, ihi, jlo, jhi, klo, col
37 $ g_m, ilo, ihi, jlo, jhi,
42 $ g_m, ilo, ihi, jlo, jhi,
54 numj = min(jhi,jphi) - max(jlo,jplo) + 1
57 do j = max(jlo,jplo), min(jhi,jphi)
93 integer ilo, ihi, jlo, jhi, klo, col
100 $ g_v, klo, klo+(ihi-ilo+1)*(jhi-jlo+1)-1, col, col,
101 $ g_m, ilo, ihi, jlo, jhi)
108 numj = min(jhi,jphi) - max(jlo,jplo) + 1
[all …]
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/ddscf/
H A Dga_mat_to_vec.F1 subroutine ga_mat_to_vec(g_m, ilo, ihi, jlo, jhi, g_v, klo, col, argument
27 integer ilo, ihi, jlo, jhi, klo, col
37 $ g_m, ilo, ihi, jlo, jhi,
42 $ g_m, ilo, ihi, jlo, jhi,
54 numj = min(jhi,jphi) - max(jlo,jplo) + 1
57 do j = max(jlo,jplo), min(jhi,jphi)
93 integer ilo, ihi, jlo, jhi, klo, col
100 $ g_v, klo, klo+(ihi-ilo+1)*(jhi-jlo+1)-1, col, col,
101 $ g_m, ilo, ihi, jlo, jhi)
108 numj = min(jhi,jphi) - max(jlo,jplo) + 1
[all …]

12345678910>>...45