| /dports/misc/vxl/vxl-3.3.2/contrib/mul/ipts/ |
| H A D | ipts_draw.h | 28 int jlo = j0; if (jlo<0) jlo=0; in ipts_draw_j_line() local
30 for (int j=jlo;j<=jhi;++j) image(i0,j)=value; in ipts_draw_j_line()
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/util/ |
| H A D | ga_mix.F | 20 integer ilo, ihi, jlo, jhi
27 call ga_distribution(g_a, ga_nodeid(), ilo, ihi, jlo, jhi)
35 jdim = jhi - jlo + 1
36 if (jlo.ne.1 .or. jhi.ne.nvec) call errquit
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/uccsdt/ |
| H A D | moscreen.F | 24 integer ilo, ihi, jlo, jhi, klo, khi, llo, lhi
87 if (.not. bas_cn2bfr(basis, jsh, jlo, jhi))
89 jdim = jhi-jlo+1
126 $ jsh, jsh, jlo, jhi,
134 call moints_scr2(ilo,ihi,jlo,jhi,klo,khi,
260 subroutine moints_scr2(ilo,ihi,jlo,jhi,klo,khi,llo,lhi, argument
264 integer ilo, ihi, jlo, jhi, klo, khi, llo, lhi, nbf, nmo
265 double precision ints(llo:lhi,klo:khi,jlo:jhi,ilo:ihi)
274 do j = jlo,jhi
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/uccsdt/ |
| H A D | moscreen.F | 24 integer ilo, ihi, jlo, jhi, klo, khi, llo, lhi
87 if (.not. bas_cn2bfr(basis, jsh, jlo, jhi))
89 jdim = jhi-jlo+1
126 $ jsh, jsh, jlo, jhi,
134 call moints_scr2(ilo,ihi,jlo,jhi,klo,khi,
260 subroutine moints_scr2(ilo,ihi,jlo,jhi,klo,khi,llo,lhi, argument
264 integer ilo, ihi, jlo, jhi, klo, khi, llo, lhi, nbf, nmo
265 double precision ints(llo:lhi,klo:khi,jlo:jhi,ilo:ihi)
274 do j = jlo,jhi
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/contrib/socrates/ |
| H A D | socrates_util.F | 17 subroutine socrates_print_ao2e(ilo,ihi,jlo,jhi,klo,khi,llo,lhi, argument
22 integer ilo, ihi, jlo, jhi, klo, khi, llo, lhi local
24 double precision buf(llo:lhi,klo:khi,jlo:jhi,ilo:ihi)
26 do j = jlo, jhi
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/etrans/ |
| H A D | et_omega2_mult.F | 1 subroutine omega2_mult(ilo,ihi,jlo,jhi,klo,khi,llo,lhi, argument
20 integer ilo, ihi, jlo, jhi, klo, khi, llo, lhi
23 double precision gJ(llo:lhi,klo:khi,jlo:jhi,ilo:ihi)
40 do j = jlo, maxj
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/contrib/socrates/ |
| H A D | socrates_util.F | 17 subroutine socrates_print_ao2e(ilo,ihi,jlo,jhi,klo,khi,llo,lhi, argument
22 integer ilo, ihi, jlo, jhi, klo, khi, llo, lhi local
24 double precision buf(llo:lhi,klo:khi,jlo:jhi,ilo:ihi)
26 do j = jlo, jhi
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/util/ |
| H A D | ga_mix.F | 22 integer ilo, ihi, jlo, jhi
29 call ga_distribution(g_a, ga_nodeid(), ilo, ihi, jlo, jhi)
37 jdim = jhi - jlo + 1
38 if (jlo.ne.1 .or. jhi.ne.nvec) call errquit
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/etrans/ |
| H A D | et_omega2_mult.F | 1 subroutine omega2_mult(ilo,ihi,jlo,jhi,klo,khi,llo,lhi, argument
20 integer ilo, ihi, jlo, jhi, klo, khi, llo, lhi
23 double precision gJ(llo:lhi,klo:khi,jlo:jhi,ilo:ihi)
40 do j = jlo, maxj
|
| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/tools/matlab/solver/MATLAB_PB_SOLVER_4/ |
| H A D | discretization.m | 35 jlo=floor(jfloat);
40 dy=jfloat-double(jlo);
48 eme=(khi-1)*(dime(1))*(dime(2))+(jlo-1)*(dime(1))+ihi;
50 eme=(klo-1)*(dime(1))*(dime(2))+(jlo-1)*(dime(1))+ihi;
54 eme=(khi-1)*(dime(1))*(dime(2))+(jlo-1)*(dime(1))+ilo;
60 eme=(klo-1)*(dime(1))*(dime(2))+(jlo-1)*(dime(1))+ilo;
|
| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/tools/matlab/solver/MATLAB_PB_SOLVER_5/ |
| H A D | discretization.m | 32 jlo=floor(jfloat);
37 dy=jfloat-double(jlo);
45 eme=(khi-1)*(dime(1))*(dime(2))+(jlo-1)*(dime(1))+ihi;
47 eme=(klo-1)*(dime(1))*(dime(2))+(jlo-1)*(dime(1))+ihi;
51 eme=(khi-1)*(dime(1))*(dime(2))+(jlo-1)*(dime(1))+ilo;
57 eme=(klo-1)*(dime(1))*(dime(2))+(jlo-1)*(dime(1))+ilo;
|
| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/tools/matlab/solver/MATLAB_PB_SOLVER_7/ |
| H A D | discretization.m | 32 jlo=floor(jfloat);
37 dy=jfloat-double(jlo);
45 eme=(khi-1)*(dime(1))*(dime(2))+(jlo-1)*(dime(1))+ihi;
47 eme=(klo-1)*(dime(1))*(dime(2))+(jlo-1)*(dime(1))+ihi;
51 eme=(khi-1)*(dime(1))*(dime(2))+(jlo-1)*(dime(1))+ilo;
57 eme=(klo-1)*(dime(1))*(dime(2))+(jlo-1)*(dime(1))+ilo;
|
| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/tools/matlab/solver/MATLAB_PB_SOLVER_3/ |
| H A D | discretization.m | 35 jlo=floor(jfloat);
40 dy=jfloat-double(jlo);
48 eme=(khi-1)*(dime(1))*(dime(2))+(jlo-1)*(dime(1))+ihi;
50 eme=(klo-1)*(dime(1))*(dime(2))+(jlo-1)*(dime(1))+ihi;
54 eme=(khi-1)*(dime(1))*(dime(2))+(jlo-1)*(dime(1))+ilo;
60 eme=(klo-1)*(dime(1))*(dime(2))+(jlo-1)*(dime(1))+ilo;
|
| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/tools/matlab/solver/MATLAB_PB_SOLVER_6/ |
| H A D | discretization.m | 32 jlo=floor(jfloat);
37 dy=jfloat-double(jlo);
45 eme=(khi-1)*(dime(1))*(dime(2))+(jlo-1)*(dime(1))+ihi;
47 eme=(klo-1)*(dime(1))*(dime(2))+(jlo-1)*(dime(1))+ihi;
51 eme=(khi-1)*(dime(1))*(dime(2))+(jlo-1)*(dime(1))+ilo;
57 eme=(klo-1)*(dime(1))*(dime(2))+(jlo-1)*(dime(1))+ilo;
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/tce/ |
| H A D | tce_ao2e_cholesky.F | 30 integer ilo,ihi,jlo,jhi ! Integral shell index range local
181 if (.not.bas_cn2bfr(ao_bas_han,jsh,jlo,jhi))
184 jrange = jhi - jlo + 1
208 do j = jlo,jhi
214 3 )*jrange+(j-jlo)
239 write(LuOut,9900) 'j',jsh,jlo,jhi,jrange
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/tce/ |
| H A D | tce_ao2e_cholesky.F | 30 integer ilo,ihi,jlo,jhi ! Integral shell index range
181 if (.not.bas_cn2bfr(ao_bas_han,jsh,jlo,jhi))
184 jrange = jhi - jlo + 1
208 do j = jlo,jhi
214 3 )*jrange+(j-jlo)
239 write(LuOut,9900) 'j',jsh,jlo,jhi,jrange
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/prepar/ |
| H A D | pre_impctr.F | 2 + jlo,ilo,ihi,jhi,lbnd,mbnd,nbnd,lang,mang,nang,ldih,mdih,ndih,
36 integer matm,ilo,ihi,jlo,jhi,mbnd,nbnd,mang,nang,mdih,ndih
50 do 53 i=jlo,jhi
317 do 1 i=jlo,jhi
323 if(j.ge.jlo.and.j.le.jhi) then
329 if(k.ge.jlo.and.k.le.jhi) then
346 do 26 i=jlo,jhi
352 if(j.ge.jlo.and.j.le.jhi) then
363 do 45 i=jlo,jhi
371 if(j.ge.jlo.and.j.le.jhi) then
[all …]
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/hessian/analytic/ |
| H A D | hess_dipder.F | 29 integer me, nproc, ishell, jshell, ilo, ihi, jlo, jhi
99 if (.not. bas_cn2bfr(basis, jshell, jlo, jhi))
102 jdim = jhi - jlo + 1
107 call ga_get(g_dens, ilo, ihi, jlo, jhi,
322 integer me, nproc, ishell, jshell, ilo, ihi, jlo, jhi
378 if (.not. bas_cn2bfr(basis, jshell, jlo, jhi))
381 jdim = jhi - jlo + 1
391 & dbl_mb(k_scr), ilo, ihi, jlo, jhi, idim, jdim)
429 * ilo, ihi, jlo, jhi, idim, jdim)
435 integer jlo ! [input] low j index
[all …]
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/prepar/ |
| H A D | pre_impctr.F | 2 + jlo,ilo,ihi,jhi,lbnd,mbnd,nbnd,lang,mang,nang,ldih,mdih,ndih,
36 integer matm,ilo,ihi,jlo,jhi,mbnd,nbnd,mang,nang,mdih,ndih
50 do 53 i=jlo,jhi
317 do 1 i=jlo,jhi
323 if(j.ge.jlo.and.j.le.jhi) then
329 if(k.ge.jlo.and.k.le.jhi) then
346 do 26 i=jlo,jhi
352 if(j.ge.jlo.and.j.le.jhi) then
363 do 45 i=jlo,jhi
371 if(j.ge.jlo.and.j.le.jhi) then
[all …]
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/argos/ |
| H A D | argos_prep_impctr.F | 2 + jlo,ilo,ihi,jhi,lbnd,mbnd,nbnd,lang,mang,nang,ldih,mdih,ndih,
36 integer matm,ilo,ihi,jlo,jhi,mbnd,nbnd,mang,nang,mdih,ndih
50 do 53 i=jlo,jhi
317 do 1 i=jlo,jhi
323 if(j.ge.jlo.and.j.le.jhi) then
329 if(k.ge.jlo.and.k.le.jhi) then
346 do 26 i=jlo,jhi
352 if(j.ge.jlo.and.j.le.jhi) then
363 do 45 i=jlo,jhi
371 if(j.ge.jlo.and.j.le.jhi) then
[all …]
|
| H A D | argos_prepare_impctr.F | 2 + jlo,ilo,ihi,jhi,lbnd,mbnd,nbnd,lang,mang,nang,ldih,mdih,ndih,
36 integer matm,ilo,ihi,jlo,jhi,mbnd,nbnd,mang,nang,mdih,ndih
50 do 53 i=jlo,jhi
317 do 1 i=jlo,jhi
323 if(j.ge.jlo.and.j.le.jhi) then
329 if(k.ge.jlo.and.k.le.jhi) then
346 do 26 i=jlo,jhi
352 if(j.ge.jlo.and.j.le.jhi) then
363 do 45 i=jlo,jhi
371 if(j.ge.jlo.and.j.le.jhi) then
[all …]
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/hessian/analytic/ |
| H A D | hess_dipder.F | 29 integer me, nproc, ishell, jshell, ilo, ihi, jlo, jhi
99 if (.not. bas_cn2bfr(basis, jshell, jlo, jhi))
102 jdim = jhi - jlo + 1
107 call ga_get(g_dens, ilo, ihi, jlo, jhi,
322 integer me, nproc, ishell, jshell, ilo, ihi, jlo, jhi
378 if (.not. bas_cn2bfr(basis, jshell, jlo, jhi))
381 jdim = jhi - jlo + 1
391 & dbl_mb(k_scr), ilo, ihi, jlo, jhi, idim, jdim)
429 * ilo, ihi, jlo, jhi, idim, jdim)
435 integer jlo ! [input] low j index
[all …]
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/argos/ |
| H A D | argos_prepare_impctr.F | 2 + jlo,ilo,ihi,jhi,lbnd,mbnd,nbnd,lang,mang,nang,ldih,mdih,ndih,
36 integer matm,ilo,ihi,jlo,jhi,mbnd,nbnd,mang,nang,mdih,ndih
50 do 53 i=jlo,jhi
317 do 1 i=jlo,jhi
323 if(j.ge.jlo.and.j.le.jhi) then
329 if(k.ge.jlo.and.k.le.jhi) then
346 do 26 i=jlo,jhi
352 if(j.ge.jlo.and.j.le.jhi) then
363 do 45 i=jlo,jhi
371 if(j.ge.jlo.and.j.le.jhi) then
[all …]
|
| H A D | argos_prep_impctr.F | 2 + jlo,ilo,ihi,jhi,lbnd,mbnd,nbnd,lang,mang,nang,ldih,mdih,ndih,
36 integer matm,ilo,ihi,jlo,jhi,mbnd,nbnd,mang,nang,mdih,ndih
50 do 53 i=jlo,jhi
317 do 1 i=jlo,jhi
323 if(j.ge.jlo.and.j.le.jhi) then
329 if(k.ge.jlo.and.k.le.jhi) then
346 do 26 i=jlo,jhi
352 if(j.ge.jlo.and.j.le.jhi) then
363 do 45 i=jlo,jhi
371 if(j.ge.jlo.and.j.le.jhi) then
[all …]
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/mrpt/fci/ |
| H A D | dgemm.F | 267 do jlo = 1,n,jchunk ! blocking by rjh
268 jhi = min(jlo+jchunk-1,n)
271 do j = jlo,jhi
290 DO 90,J = jlo,jhi
309 DO 120,J = jlo,jhi
328 DO 170,J = jlo,jhi
342 DO 200,J = jlo,jhi
|