| /dports/devel/ga/ga-5.8/global/testing/ |
| H A D | random.F | 62 integer iran, i,j, loop, maxloop, ilo, ihi, jlo, jhi, range
85 call ga_distribution(g_a,me,ilo, ihi, jlo, jhi)
86 call ga_access(g_a, ilo,ihi,jlo,jhi, index, ld)
88 call fill_local(DBL_MB(index), ihi-ilo+1, jhi-jlo+1, ilo, jlo, ld)
106 jlo = iran(range)
108 jhi = jlo+n-1
110 call ga_get(g_a, ilo, ihi, jlo, jhi, a, n)
113 call check_data(a,n,n, ilo, jlo, n)
116 call ga_put(g_a, ilo, ihi, jlo, jhi, a, n)
118 print *, me, 'OK', ilo, ihi, jlo, jhi
|
| H A D | jacobi.F | 48 integer ilo, ihi, jlo, jhi, ld, ni, nj local
73 call ga_distribution(g_ux, me, ilo, ihi, jlo, jhi)
85 call ga_access(g_ux, ilo, ihi, jlo, jhi, index, ld)
89 & DBL_MB(index), ilo, ihi, jlo, jhi, ld)
92 call ga_release_update(g_ux, ilo, ihi, jlo, jhi)
125 call ga_release_update(g_u, ilo, ihi, jlo, jhi)
140 if(jlo.eq.1) index_first = index_first + ni+2
144 & max(1,jlo-1), min(m,jhi+1),
183 & ilo, ihi, jlo, jhi, ldu )
188 integer ilo, ihi, jlo, jhi, ldu, ldd, i, j
[all …]
|
| H A D | merge.F | 47 integer i, j, ilo, ihi, jlo, jhi
94 jlo = 1
104 write(6,100)trial, ilo,ihi,jlo,jhi
113 jlo = 1
116 call ga_dfill_patch(g_a, ilo,ihi,jlo,jhi,0d0)
119 jlo = 1
123 call ga_copy_patch('n', g_b,ilo,ihi,jlo,jhi,
124 $ g_a,ilo,ihi,jlo,jhi)
128 write(6,101)trial, ilo,ihi,jlo,jhi
136 call ga_net_merge(g_a, ilo, ihi, jlo, jhi)
|
| H A D | field-test.F | 347 jlo = j
413 jlo = iran(loop)
417 jhi = jlo
418 jlo = itmp
425 lo(2) = jlo
436 do j = jlo, jhi
747 jlo = j
820 jhi = jlo
821 jlo = itmp
830 lo(2) = jlo
[all …]
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/ddscf/ |
| H A D | fock_get_blk.F | 2 $ jlo, jhi, buf, tmp)
15 integer ilo, ihi, jlo, jhi
21 jlen = jhi - jlo + 1
44 call ga_get(varray(iarray), ilo, ihi, jlo, jhi,
56 call ga_get(varray(1), ilo, ihi, jlo, jhi, buf, ilen )
72 integer ilo, ihi, jlo, jhi
81 if (.not. bas_ce2bfr(basis, jat, jlo, jhi))
84 jdim = jhi - jlo + 1
87 call ga_get(g_array, ilo, ihi, jlo, jhi, buf, idim)
|
| H A D | int_dip_ga.F | 18 integer ijshell, ilo, ihi, jlo, jhi local
104 double precision buf(jlo:jhi,3,ilo:ihi)
107 do j = jlo, jhi
133 integer ijshell, ilo, ihi, jlo, jhi local
227 integer ilo, ihi, jlo, jhi local
228 double precision buf(jlo:jhi,6,ilo:ihi)
231 do j = jlo, jhi
264 integer ijshell, ilo, ihi, jlo, jhi local
364 3 ilo, ihi, jlo, jhi, buf) argument
369 integer ilo, ihi, jlo, jhi local
[all …]
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/ddscf/ |
| H A D | fock_get_blk.F | 2 $ jlo, jhi, buf, tmp)
15 integer ilo, ihi, jlo, jhi
21 jlen = jhi - jlo + 1
44 call ga_get(varray(iarray), ilo, ihi, jlo, jhi,
56 call ga_get(varray(1), ilo, ihi, jlo, jhi, buf, ilen )
72 integer ilo, ihi, jlo, jhi
81 if (.not. bas_ce2bfr(basis, jat, jlo, jhi))
84 jdim = jhi - jlo + 1
87 call ga_get(g_array, ilo, ihi, jlo, jhi, buf, idim)
|
| H A D | int_dip_ga.F | 18 integer ijshell, ilo, ihi, jlo, jhi local
104 double precision buf(jlo:jhi,3,ilo:ihi)
107 do j = jlo, jhi
133 integer ijshell, ilo, ihi, jlo, jhi
227 integer ilo, ihi, jlo, jhi
228 double precision buf(jlo:jhi,6,ilo:ihi)
231 do j = jlo, jhi
264 integer ijshell, ilo, ihi, jlo, jhi
364 3 ilo, ihi, jlo, jhi, buf)
369 integer ilo, ihi, jlo, jhi
[all …]
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/rdmft/recycling/wfn1/ |
| H A D | wfn1_1el_ints.F | 33 integer ilo, ihi, jlo, jhi, idim
73 if (.not. bas_cn2bfr(ibasis, jshell, jlo, jhi))
83 call dfill(idim*(jhi-jlo+1),0.0d0,dbl_mb(k_buf),1)
86 do jj = jlo, jhi
87 call dcopy(idim,dbl_mb(k_buf+idim*(jj-jlo)),1,
90 call dfill(idim*(jhi-jlo+1),0.0d0,dbl_mb(k_buf),1)
93 do jj = jlo, jhi
136 integer ilo, ihi, jlo, jhi, idim
176 if (.not. bas_cn2bfr(ibasis, jshell, jlo, jhi))
188 do jj = 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
131 jlo = 1
133 do while (jlo.le.ncol)
136 write(luout,100)(j,j=jlo,jhi)
138 write(luout,110)i,(a(i,j),j=jlo,jhi)
140 jlo = jhi + 1
170 integer i,j,jlo,jhi
178 jlo = icol
180 do while (jlo.le.jcol)
183 write(luout,100)(j,j=jlo,jhi)
[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
131 jlo = 1
133 do while (jlo.le.ncol)
136 write(luout,100)(j,j=jlo,jhi)
138 write(luout,110)i,(a(i,j),j=jlo,jhi)
140 jlo = jhi + 1
170 integer i,j,jlo,jhi
178 jlo = icol
180 do while (jlo.le.jcol)
183 write(luout,100)(j,j=jlo,jhi)
[all …]
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/rdmft/recycling/wfn1/ |
| H A D | wfn1_1el_ints.F | 33 integer ilo, ihi, jlo, jhi, idim
73 if (.not. bas_cn2bfr(ibasis, jshell, jlo, jhi))
83 call dfill(idim*(jhi-jlo+1),0.0d0,dbl_mb(k_buf),1)
86 do jj = jlo, jhi
87 call dcopy(idim,dbl_mb(k_buf+idim*(jj-jlo)),1,
90 call dfill(idim*(jhi-jlo+1),0.0d0,dbl_mb(k_buf),1)
93 do jj = jlo, jhi
136 integer ilo, ihi, jlo, jhi, idim
176 if (.not. bas_cn2bfr(ibasis, jshell, jlo, jhi))
188 do jj = jlo, jhi
[all …]
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/rdmft/ |
| H A D | wfn1_guess_corr.F | 40 integer jlo,jhi ! loop limits
73 allocate(buf(ilo:ihi,jlo:jhi))
78 do jj = jlo, jhi
117 do jj = jlo, jhi
132 do jj = jlo, jhi
147 do jj = jlo, jhi
174 allocate(buf(ilo:ihi,jlo:jhi))
179 do jj = jlo, jhi
218 do jj = jlo, jhi
233 do jj = jlo, jhi
[all …]
|
| H A D | wfn1_ortho.F | 54 integer :: jlo, jhi ! local matrix block limits local
69 call ga_distribution(g_momo,iproc,ilo,ihi,jlo,jhi)
70 do ii = max(ilo,jlo),min(ihi,jhi)
89 call ga_distribution(g_momo,iproc,ilo,ihi,jlo,jhi)
90 do ii = max(ilo,jlo),min(ihi,jhi)
107 call ga_distribution(g_momo,iproc,ilo,ihi,jlo,jhi)
108 do ii = max(ilo,jlo),min(ihi,jhi)
125 call ga_distribution(g_momo,iproc,ilo,ihi,jlo,jhi)
126 do ii = max(ilo,jlo),min(ihi,jhi)
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/rdmft/ |
| H A D | wfn1_guess_corr.F | 40 integer jlo,jhi ! loop limits
73 allocate(buf(ilo:ihi,jlo:jhi))
78 do jj = jlo, jhi
117 do jj = jlo, jhi
132 do jj = jlo, jhi
147 do jj = jlo, jhi
174 allocate(buf(ilo:ihi,jlo:jhi))
179 do jj = jlo, jhi
218 do jj = jlo, jhi
233 do jj = jlo, jhi
[all …]
|
| H A D | wfn1_ortho.F | 54 integer :: jlo, jhi ! local matrix block limits
69 call ga_distribution(g_momo,iproc,ilo,ihi,jlo,jhi)
70 do ii = max(ilo,jlo),min(ihi,jhi)
89 call ga_distribution(g_momo,iproc,ilo,ihi,jlo,jhi)
90 do ii = max(ilo,jlo),min(ihi,jhi)
107 call ga_distribution(g_momo,iproc,ilo,ihi,jlo,jhi)
108 do ii = max(ilo,jlo),min(ihi,jhi)
125 call ga_distribution(g_momo,iproc,ilo,ihi,jlo,jhi)
126 do ii = max(ilo,jlo),min(ihi,jhi)
|
| /dports/devel/ga/ga-5.8/global/src/ |
| H A D | ga_dgemmf.F | 104 jlo=j0
106 jdim = jhi - jlo + 1
164 jlor=min(bn2,jlo)
172 jlor=min(bn1,jlo)
208 I ilo, ihi, jlo, jhi, buf,
212 integer ilo, ihi, jlo, jhi,ld
218 do j=jlo,jhi
238 . ga_nodeid(), ilo, ihi, jlo, jhi)
241 numj = jhi-jlo+1
247 do j=jlo,jhi
[all …]
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/util/ |
| H A D | ga_antisymmetr.F | 24 Integer ilo, ihi, jlo, jhi, myelem, nrow,ncol, lda
44 call ga_distribution(g_a, myproc, ilo, ihi, jlo, jhi)
46 if(.not.ma_push_get(MT_DBL,(ihi-ilo+1)*(jhi-jlo+1),
58 call ga_get(g_a, ilo, ihi, jlo, jhi, dbl_mb(adrA), lda)
60 call ga_access(g_a, ilo, ihi, jlo, jhi, adrA, lda)
63 ncol = jhi-jlo+1
79 call ga_put(g_a, ilo, ihi, jlo, jhi, dbl_mb(adrA), lda)
81 call ga_release_update(g_a, ilo, ihi, jlo, jhi)
144 jlo = lo(3)
150 lob(2) = jlo ! switch i and j
[all …]
|
| H A D | ga_screen.F | 14 integer ilo, ihi, jlo, jhi
19 call ga_distribution(g_a, ga_nodeid(), ilo, ihi, jlo, jhi)
22 $ g_a, ilo, ihi, jlo, jhi,ga_screenb, value,
30 $ g_a, ilo, ihi, jlo, jhi, a, ld, value,
33 integer g_a, ilo, ihi, jlo, jhi, ld,
35 double precision a(ilo:ilo+ld-1,jlo:jhi), value
40 do j = jlo, jhi
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/util/ |
| H A D | ga_antisymmetr.F | 24 Integer ilo, ihi, jlo, jhi, myelem, nrow,ncol, lda
44 call ga_distribution(g_a, myproc, ilo, ihi, jlo, jhi)
46 if(.not.ma_push_get(MT_DBL,(ihi-ilo+1)*(jhi-jlo+1),
58 call ga_get(g_a, ilo, ihi, jlo, jhi, dbl_mb(adrA), lda)
60 call ga_access(g_a, ilo, ihi, jlo, jhi, adrA, lda)
63 ncol = jhi-jlo+1
79 call ga_put(g_a, ilo, ihi, jlo, jhi, dbl_mb(adrA), lda)
81 call ga_release_update(g_a, ilo, ihi, jlo, jhi)
144 jlo = lo(3)
150 lob(2) = jlo ! switch i and j
[all …]
|
| H A D | ga_screen.F | 14 integer ilo, ihi, jlo, jhi
19 call ga_distribution(g_a, ga_nodeid(), ilo, ihi, jlo, jhi)
22 $ g_a, ilo, ihi, jlo, jhi,ga_screenb, value,
30 $ g_a, ilo, ihi, jlo, jhi, a, ld, value,
33 integer g_a, ilo, ihi, jlo, jhi, ld,
35 double precision a(ilo:ilo+ld-1,jlo:jhi), value
40 do j = jlo, jhi
|
| /dports/science/cgnslib/CGNS-4.1.2/src/Test_UserGuideCode/C_code/ |
| H A D | write_bc_str.c | 33 int ilo,ihi,jlo,jhi,klo,khi; in main() local
50 jlo=1; in main()
58 ipnts[0][1]=jlo; in main()
70 ipnts[0][1]=jlo; in main()
82 ipnts[0][1]=jlo; in main()
86 ipnts[1][1]=jlo; in main()
106 ipnts[0][1]=jlo; in main()
118 ipnts[0][1]=jlo; in main()
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/ncc/ |
| H A D | ncc_util.F | 26 subroutine ncc_print_ao2e(ilo,ihi,jlo,jhi,klo,khi,llo,lhi, argument
31 integer ilo, ihi, jlo, jhi, klo, khi, llo, lhi
33 double precision buf(llo:lhi,klo:khi,jlo:jhi,ilo:ihi)
35 do j = jlo, jhi
107 subroutine put_ao2e_to_buf(ilo,ihi,jlo,jhi, argument
112 integer ilo, ihi, jlo, jhi, klo, khi, llo, lhi, nbf
113 double precision buf_in(llo:lhi,klo:khi,jlo:jhi,ilo:ihi)
116 do j = jlo, jhi
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/ncc/ |
| H A D | ncc_util.F | 26 subroutine ncc_print_ao2e(ilo,ihi,jlo,jhi,klo,khi,llo,lhi, argument
31 integer ilo, ihi, jlo, jhi, klo, khi, llo, lhi
33 double precision buf(llo:lhi,klo:khi,jlo:jhi,ilo:ihi)
35 do j = jlo, jhi
107 subroutine put_ao2e_to_buf(ilo,ihi,jlo,jhi, argument
112 integer ilo, ihi, jlo, jhi, klo, khi, llo, lhi, nbf
113 double precision buf_in(llo:lhi,klo:khi,jlo:jhi,ilo:ihi)
116 do j = jlo, jhi
|
| /dports/science/cgnslib/CGNS-4.1.2/src/Test_UserGuideCode/Fortran_code/ |
| H A D | write_bc_str.F90 | 29 integer ilo,ihi,jlo,jhi,klo,khi variable
53 jlo=1
61 ipnts(2,1)=jlo
73 ipnts(2,1)=jlo
85 ipnts(2,1)=jlo
89 ipnts(2,2)=jlo
109 ipnts(2,1)=jlo
121 ipnts(2,1)=jlo
|