/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/rdmft/ |
H A D | wfn1_trace.F | 18 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 D | wfn1_exp.F | 110 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 D | wfn1_trace.F | 18 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 D | wfn1_exp.F | 110 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 D | types-test.F | 337 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 D | mir_perf2.F | 58 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 D | perf.F | 61 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 D | mir_perf1.F | 55 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 D | perform.F | 55 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 D | pg2test.F | 395 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 D | perfmod.F | 60 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 D | overlay.F | 358 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 D | util_perf_test.F | 62 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 D | ga_extra.F | 21 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 D | util_ga_test.F | 263 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 D | util_perf_test.F | 62 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 D | ga_extra.F | 21 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 D | util_ga_test.F | 263 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 D | jacobi.F | 9 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 D | jacobi.f | 7 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 D | xc_atomblock.F | 14 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 D | xc_atomblock.F | 14 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 D | joystick_controller.cpp | 49 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 D | ga_mat_to_vec.F | 1 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 D | ga_mat_to_vec.F | 1 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 …]
|