/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 | mir_perf2.F | 58 integer ilo, ihi, jlo, jhi 190 integer ilo, ihi, jlo, jhi 197 jhi = je 230 integer ilo, ihi, jlo, jhi 237 jhi = je 271 integer ilo, ihi, jlo, jhi 278 jhi = je 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 216 jhi = je 250 integer ilo, ihi, jlo, jhi 259 jhi = je 294 integer ilo, ihi, jlo, jhi 303 jhi = je 381 & jlo, jhi, .true.) [all …]
|
H A D | mir_perf1.F | 55 integer ilo, ihi, jlo, jhi 201 integer ilo, ihi, jlo, jhi 208 jhi = je 241 integer ilo, ihi, jlo, jhi 248 jhi = je 282 integer ilo, ihi, jlo, jhi 289 jhi = je 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) 89 call ga_distribution(g_a, nproc-1, ilo, ihi, jlo, jhi) 104 integer n, ilo, ihi, jlo,jhi,g_a 115 & ilo,ihi,jlo,jhi 172 integer ilo, ihi, jlo, jhi 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 | 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 204 jhi = jlo + chunk -1 233 integer ilo, ihi, jlo, jhi 253 jhi = jlo + chunk -1 260 $ jlo+shiftj(indx), jhi+shiftj(indx), 283 integer ilo, ihi, jlo, jhi [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 205 jhi = je 239 integer ilo, ihi, jlo, jhi 248 jhi = je 283 integer ilo, ihi, jlo, jhi 292 jhi = je 329 integer ilo, ihi, jlo, jhi 459 integer ilo, ihi, jlo, jhi 508 integer ilo, ihi, jlo, jhi [all …]
|
H A D | ga_normf.F | 12 integer ilo, ihi, jlo, jhi, idim, jdim, ld 25 jdim = jhi - jlo + 1 28 call ga_release(g_a, ilo, ihi, jlo, jhi) 79 jhi(i) = 1 83 jdim(i) = max(0, jhi(i) - jlo(i) + 1) 121 call nga_release(g_a, jlo, jhi) 170 jhi(i) = 1 178 jhi(i) = min(jhi(i),ihi(i)) 223 call nga_release(g_a, jlo, jhi) 269 jhi(i) = 1 [all …]
|
H A D | ga_extra.F | 21 integer i, j, ilo, ihi, jlo, jhi 43 do j = jlo,jhi 51 do j = jlo,jhi 83 integer i, j, ilo, ihi, jlo, jhi 98 do j = jlo,jhi 145 do j = jlo,jhi 192 do j = jlo,jhi 221 integer i, ilo, ihi, jlo, jhi 235 ihi = min(ihi,jhi) 262 integer i, ilo, ihi, jlo, jhi [all …]
|
H A D | ga_maxelt.F | 14 integer ilo, ihi, jlo, jhi 25 call ga_distribution(g_a, ga_nodeid(), ilo, ihi, jlo, jhi) 30 $ g_a, ilo, ihi, jlo, jhi,ga_maxelt_dbl_doit, value, 54 $ g_a, ilo, ihi, jlo, jhi, a, ld, value, 60 integer g_a, ilo, ihi, jlo, jhi, ld, 62 double precision a(ilo:ilo+ld-1,jlo:jhi), value 66 do j = jlo, jhi 76 $ g_a, ilo, ihi, jlo, jhi, a, ld, value, 82 integer g_a, ilo, ihi, jlo, jhi, ld, 84 double complex a(ilo:ilo+ld-1,jlo:jhi) [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 205 jhi = je 239 integer ilo, ihi, jlo, jhi 248 jhi = je 283 integer ilo, ihi, jlo, jhi 292 jhi = je 329 integer ilo, ihi, jlo, jhi 459 integer ilo, ihi, jlo, jhi 508 integer ilo, ihi, jlo, jhi [all …]
|
H A D | ga_normf.F | 12 integer ilo, ihi, jlo, jhi, idim, jdim, ld 25 jdim = jhi - jlo + 1 28 call ga_release(g_a, ilo, ihi, jlo, jhi) 79 jhi(i) = 1 83 jdim(i) = max(0, jhi(i) - jlo(i) + 1) 121 call nga_release(g_a, jlo, jhi) 170 jhi(i) = 1 178 jhi(i) = min(jhi(i),ihi(i)) 223 call nga_release(g_a, jlo, jhi) 269 jhi(i) = 1 [all …]
|
H A D | ga_extra.F | 21 integer i, j, ilo, ihi, jlo, jhi 43 do j = jlo,jhi 51 do j = jlo,jhi 83 integer i, j, ilo, ihi, jlo, jhi 98 do j = jlo,jhi 145 do j = jlo,jhi 192 do j = jlo,jhi 221 integer i, ilo, ihi, jlo, jhi 235 ihi = min(ihi,jhi) 262 integer i, ilo, ihi, jlo, jhi [all …]
|
H A D | ga_maxelt.F | 14 integer ilo, ihi, jlo, jhi 25 call ga_distribution(g_a, ga_nodeid(), ilo, ihi, jlo, jhi) 30 $ g_a, ilo, ihi, jlo, jhi,ga_maxelt_dbl_doit, value, 54 $ g_a, ilo, ihi, jlo, jhi, a, ld, value, 60 integer g_a, ilo, ihi, jlo, jhi, ld, 62 double precision a(ilo:ilo+ld-1,jlo:jhi), value 66 do j = jlo, jhi 76 $ g_a, ilo, ihi, jlo, jhi, a, ld, value, 82 integer g_a, ilo, ihi, jlo, jhi, ld, 84 double complex a(ilo:ilo+ld-1,jlo:jhi) [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwdft/lr_tddft_grad/ |
H A D | tddft_grad_print_array.F | 126 integer i,j,jlo,jhi 132 jhi = 0 134 jhi = jhi+mxcol 135 jhi = min(jhi,ncol) 136 write(luout,100)(j,j=jlo,jhi) 140 jlo = jhi + 1 170 integer i,j,jlo,jhi 179 jhi = icol-1 181 jhi = jhi+mxcol 182 jhi = min(jhi,jcol) [all …]
|
H A D | tddft_grad_get_dens.F | 16 + ilo,ihi,jlo,jhi,klo,khi,llo,lhi,g_d) 27 integer jlo, jhi ! limits on the j-label 73 call ga_get(g_d(1),ilo,ihi,jlo,jhi,dija,blen) 75 call ga_get(g_d(3),ilo,ihi,jlo,jhi,pija,blen) 77 call ga_get(g_d(5),ilo,ihi,jlo,jhi,xpyija,blen) 87 call ga_get(g_d(1),klo,khi,jlo,jhi,dkja,blen) 88 call ga_get(g_d(1),jlo,jhi,llo,lhi,djla,blen) 91 call ga_get(g_d(3),klo,khi,jlo,jhi,pkja,blen) 92 call ga_get(g_d(3),jlo,jhi,llo,lhi,pjla,blen) 109 call ga_get(g_d(2),ilo,ihi,jlo,jhi,dijb,blen) [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwdft/lr_tddft_grad/ |
H A D | tddft_grad_print_array.F | 126 integer i,j,jlo,jhi 132 jhi = 0 134 jhi = jhi+mxcol 135 jhi = min(jhi,ncol) 136 write(luout,100)(j,j=jlo,jhi) 140 jlo = jhi + 1 170 integer i,j,jlo,jhi 179 jhi = icol-1 181 jhi = jhi+mxcol 182 jhi = min(jhi,jcol) [all …]
|
H A D | tddft_grad_get_dens.F | 16 + ilo,ihi,jlo,jhi,klo,khi,llo,lhi,g_d) 27 integer jlo, jhi ! limits on the j-label 73 call ga_get(g_d(1),ilo,ihi,jlo,jhi,dija,blen) 75 call ga_get(g_d(3),ilo,ihi,jlo,jhi,pija,blen) 77 call ga_get(g_d(5),ilo,ihi,jlo,jhi,xpyija,blen) 87 call ga_get(g_d(1),klo,khi,jlo,jhi,dkja,blen) 88 call ga_get(g_d(1),jlo,jhi,llo,lhi,djla,blen) 91 call ga_get(g_d(3),klo,khi,jlo,jhi,pkja,blen) 92 call ga_get(g_d(3),jlo,jhi,llo,lhi,pjla,blen) 109 call ga_get(g_d(2),ilo,ihi,jlo,jhi,dijb,blen) [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 …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/hessian/analytic/ |
H A D | get_wdens.F | 28 integer ilo, ihi, jlo, jhi, index, nrows, ncols, ld 77 if (my_diag_patch(g_wdens,ilo,ihi,jlo,jhi)) then 78 call ga_access(g_wdens,ilo,ihi,jlo,jhi,index,ld) 80 ncols = jhi-jlo+1 106 logical function my_diag_patch(g_a,ilo,ihi,jlo,jhi) 112 integer g_a,ilo,ihi,jlo,jhi 124 jhi = jhig 129 * ilo,ihi,jlo,jhi) 133 * (ilo, ihi, jlo, jhi, ilop, ihip, jlop, jhip) 137 integer ilo, ihi, jlo, jhi, ilop, ihip, jlop, jhip [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/hessian/analytic/ |
H A D | get_wdens.F | 28 integer ilo, ihi, jlo, jhi, index, nrows, ncols, ld 77 if (my_diag_patch(g_wdens,ilo,ihi,jlo,jhi)) then 78 call ga_access(g_wdens,ilo,ihi,jlo,jhi,index,ld) 80 ncols = jhi-jlo+1 106 logical function my_diag_patch(g_a,ilo,ihi,jlo,jhi) 112 integer g_a,ilo,ihi,jlo,jhi 124 jhi = jhig 129 * ilo,ihi,jlo,jhi) 133 * (ilo, ihi, jlo, jhi, ilop, ihip, jlop, jhip) 137 integer ilo, ihi, jlo, jhi, ilop, ihip, jlop, jhip [all …]
|