Home
last modified time | relevance | path

Searched refs:listh (Results 1 – 25 of 117) sorted by relevance

12345

/dports/science/siesta/siesta-4.1.5/Src/
H A Ddiagon.F16 . maxo, numh, listhptr, listh, numd,
130 . indxuo(no), listh(maxnh), numh(*), listd(maxnd), numd(*),
250 . maxo, numh, listhptr, listh, numd, listdptr,
260 . maxo, numh, listhptr, listh, numd, listdptr,
276 . listhptr, listh, numd, listdptr, listd,
283 . numh, listhptr, listh, numd, listdptr,
292 . maxnh, numh, listhptr, listh, H, S, getD,
300 . listhptr, listh, numd, listdptr, listd,
310 . listhptr, listh, numd, listdptr, listd,
318 . maxnh, numh, listhptr, listh, H, S, getD,
[all …]
H A Dsetup_H0.F23 use sparse_matrices, only: listh, listhptr, numh, maxnh
103 & numh, listhptr, listh, numh, listhptr, listh,
114 & numh, listhptr, listh, numh, listhptr, listh,
132 & maxnh,numh,listhptr,listh,Dscf,H_so,Eso)
145 & maxnh, numh, listhptr, listh, datm,
H A Dcompute_dm.F122 $ maxnh, numh, listhptr, listh,
153 $ maxnh, numh, listhptr, listh, H, S)
167 & numh, listhptr, listh, numh, listhptr, listh,
182 & listhptr, listh, H, S, chebef, noeta, rcoorcp,
197 & spin%H, no_u, maxnh, numh, listhptr, listh, Dscf,
203 & spin%H, no_u, maxnh, numh, listhptr, listh, Dscf,
213 & numh, listhptr, listh, numh, listhptr, listh,
H A Dchempot.F252 ii = listh(listhptr(mu)+i)
297 ii = listh(listhptr(mu)+i)
309 ii = listh(listhptr(mu)+i)
455 m = listh(listhptr(ji)+i)
930 ii=listh(listhptr(j)+i)
949 ii=listh(listhptr(j)+i)
1172 ii=listh(listhptr(j)+i)
1178 ii=listh(listhptr(j)+i)
1198 ii=listh(listhptr(j)+i)
1204 ii=listh(listhptr(j)+i)
[all …]
H A Dfinal_H_f_stress.F23 use sparse_matrices, only: numh, listh, listhptr
139 & numh, listhptr, listh, numh, listhptr, listh,
152 & numh, listhptr, listh, numh, listhptr, listh,
169 & maxnh,numh,listhptr,listh,Dscf,H_tmp(:,3:),Eso)
182 . numh, listhptr, listh, numh, listhptr, listh,
211 & maxnh, numh, listhptr, listh, Dscf, Datm, H_tmp,
217 & lasto, iphorb, isa, maxnh, numh, listhptr, listh,
283 & maxnh, numh, listhptr, listh, H, S, Qtot,
H A Degandd.F11 subroutine eandg(iopt,eta,qs,lam,nhmax,numh,listh,listhptr, argument
92 . listc(ncmax,no_cl),listh(nhmax),listhptr(no_l),
212 call axb_build1(no_u,maxnct,numct,listct,nhmax,numh,listh,
231 call setglobalise(no_u,no_l,no_cl,nhmax,numh,listh,
258 . numct,listct,cttoc,numf,listf,numh,listh,
264 . listct,cttoc,numf,listf,numh,listh,listhptr,
277 . listft,fttof,numh,listh,listhptr,numhij,
283 . listft,fttof,numh,listh,listhptr,numhij,
297 . numh,listh,listhptr,numhij,listhij,dm,edm,
303 . numh,listh,listhptr,numhij,listhij,dm,edm,
H A Doverlap.f32 & numh, listhptr, listh, S)
61 & lasto(0:na), listh(maxnh), numh(*),
114 jo = listh(ind)
129 & numh, listhptr, listh, S,
133 & numh, listhptr, listh, S,
138 & numh, listhptr, listh, S,
H A Dwritewave.F396 . numh, listhptr, listh, H, S, ef, xij, indxuo,
463 . nuotot, indxuo(no), listh(maxnh), numh(*),
582 . maxo, numh, listhptr, listh, numh, listhptr,
583 . listh, H, S, getD, getPSI,
589 . maxo, numh, listhptr, listh, numh, listhptr,
590 . listh, H, S, getD, getPSI,
601 . listhptr, listh, numh, listhptr, listh,
608 . listhptr, listh, numh, listhptr, listh,
618 . listhptr, listh, numh, listhptr, listh,
625 . listhptr, listh, numh, listhptr, listh,
H A Dpost_scf_work.F20 use sparse_matrices, only: xijo, listh, listhptr, numh
77 & numh, listhptr, listh, numh, listhptr, listh,
86 & maxnh, numh, listhptr, listh, Escf, eta, qtots)
91 & maxnh, numh, listhptr, listh, Escf, eta, qtots,
H A Dsiesta_analysis.F30 use sparse_matrices, only: maxnh, listh, listhptr, numh
130 . listhptr, listh, H, found, userfile="H_IN")
140 $ maxnh, numh, listhptr, listh, H, S, qtot, ef)
285 & numh, listhptr, listh, H, S, Ef, xijo, indxuo,
306 . numh, listhptr, listh, H, S, Ef, xijo, indxuo,
337 . numh, listhptr, listh, H, S, Ef, xijo, indxuo,
476 & maxnh, nkpol, numh, listhptr, listh,
486 & maxnh, numh, listhptr, listh, H, S, xijo,
518 & maxnh, numh, listhptr, listh, Dscf, Datm,
H A Dm_hs_matrix.f90176 xij,numh,listhptr,listh,H,S, & argument
197 integer, intent(in) :: listh(maxnh) local
443 xij,numh,listhptr,listh,H,S, & argument
464 integer, intent(in) :: listh(maxnh) local
710 xij,numh,listhptr,listh,H,S, & argument
730 integer, intent(in) :: listh(maxnh) local
895 xij,numh,listhptr,listh,H,S, & argument
915 integer, intent(in) :: listh(maxnh) local
1077 xij,numh,listhptr,listh,transfer_cell) argument
1092 integer, intent(in) :: listh(maxnh) local
[all …]
H A Dstate_init.F22 use sparse_matrices, only: maxnh, numh, listh, listhptr
349 nullify(numh,listhptr,listh)
438 & numh,listhptr,listh, name = oname)
439 deallocate(numh,listhptr,listh)
441 & n_col = numh, list_ptr = listhptr, list_col = listh )
596 & lasto, iphorb, isa, numh, listhptr, listh, S )
687 & numh, listhptr, listh)
692 & numh, listhptr, listh,
698 & numh, listhptr, listh,
704 & numh, listhptr, listh,
H A Dbands.F301 . numh, listhptr, listh, H, S, ef, xij, indxuo, argument
379 . indxuo(no_s), listh(maxnh), numh(no_l), local
473 . no_u, numh, listhptr, listh, numh, listhptr,
474 . listh, H, S, getD, getPSI, fixspin, qtot, qs, temp,
482 . numh, listhptr, listh, numh, listhptr,
483 . listh, H, S, getD, getPSI, qtot, temp, e1, e2,
491 . listhptr, listh, numh, listhptr, listh,
H A Ddiagpol.f9 . maxnh, numh, listhptr, listh, H, S,
58 . maxnh, nuotot, no, nspin, nuo, indxuo(no), listh(maxnh),
79 jo = listh(ind)
114 jo = listh(ind)
H A Dsetup_hamiltonian.F18 use sparse_matrices, only: listh, listhptr, numh, maxnh
204 . numh, listhptr, listh, numh, listhptr, listh,
240 . maxnh, numh, listhptr, listh, Dscf, Datm,
259 & maxnh, numh, listhptr, listh, H, S, qtot,
H A Dordern.F24 . listh,h,s,chebef,noeta,rcoorcp,beta,ipcheb,
111 . isa(natoms), lasto(0:natoms), listh(nhmax),
224 . qa,rcoor,rh,cell,xa,nhmax,numh,listh,
274 call chempot(h,s,numh,listhptr,listh,rcoorcp,ipcheb,beta,
343 . listh,listhptr,Node,Nodes)
354 . nhmax,numh,listh,listhptr,maxnc,h,s,fe,iter,dm,
H A Dpdosg.F9 . maxo, numh, listhptr, listh, H, S,
70 . numh(nuo), listhptr(nuo), listh(maxnh),
111 jo = listh(ind)
138 jo = listh(ind)
155 jo = listh(ind)
H A Doptical.F10 & listhptr, listh, H, S,
84 integer indxuo(no), listh(maxnh), numh(nuo)
439 & listhptr, listh, efield, matrix, aux(1,1) )
447 & listh, inplane(1,1), matrix, aux(1,1) )
450 & listh, inplane(1,2), matrix, aux(1,2) )
460 & listhptr, listh, xv, matrix, aux(1,ix) )
484 & maxnh, numh, listhptr, listh, H, S,
519 . listhptr, listh, indxuo, no,
H A Dcgwf.F12 . nhmax,numh,listh,listhptr,ncmax,h,s,fe,iter,dm,
76 . listh(nhmax),listhptr(no_l),numh(no_l)
121 call eandg(iopt,eta,qs,lam,nhmax,numh,listh,listhptr,ncmax,
128 call eandg(iopt,eta,qs,lam,nhmax,numh,listh,listhptr,ncmax,
185 call eandg(iopt,eta,qs,lam,nhmax,numh,listh,listhptr,ncmax,
223 call eandg(iopt,eta,qs,lam,nhmax,numh,listh,listhptr,ncmax,
332 call eandg(iopt,eta,qs,lam,nhmax,numh,listh,listhptr,ncmax,
H A Dgradient.F14 . numft,listft,fttof,numh,listh,
98 . listh(nhmax),listhptr(no_l),listhij(nhijmax,nbandsloc),
210 aux1(listh(indk+kn)) = aux1(listh(indk+kn)) +
212 aux2(listh(indk+kn)) = aux2(listh(indk+kn)) +
H A Dm_hsx.F12 . numh, listhptr, listh, H, S, qtot, temp, xij)
64 integer indxuo(no_s), listh(maxnh), numh(*), listhptr(*)
168 write(iu) (listh(listhptr(hl)+im),im = 1,numh(hl))
176 call MPI_ISend(listh(listhptr(hl)+1),numh(hl),MPI_integer,
352 $ maxnh, numh, listhptr, listh, H, S)
385 integer listh(maxnh), numh(*), listhptr(*)
478 write(iu,*) (listh(listhptr(hl)+im),im = 1,numh(hl))
486 call MPI_ISend(listh(listhptr(hl)+1),numh(hl),MPI_integer,
/dports/science/siesta/siesta-4.1.5/Src/Orphans/
H A Dnew_dm.F110 integer, intent(in) :: listhptr(:), listh(:) local
186 . numh, listhptr, listh, iaorb, inspn,
197 call re_alloc(listold,1,size(listh),shrink=.true.)
199 listold = listh
228 call new_extrapol(no_l, numh, listhptr, listh, Dscf)
488 integer :: listhptr(:), listh(:) local
600 $ numh,listh)
767 jo = listh(ind)
808 jo = listh(ind)
857 jo = listh(ind)
[all …]
/dports/science/siesta/siesta-4.1.5/Docs/developer/ford-pages/datastructures/
H A D2-sparse.md32 index pointer to listh such that `listh(listhptr(1) + 1)`
34 `listh(listhptr(io) + 1)` is thus the first non-zero element
35 of orbital 'io' while `listh(listhptr(io) + numh(io))` is the
43 * `listh(maxnh)`:
45 `listh(listhptr(io)+1)`
46 would correspond to the element `M(io, listh(listhptr(io)+1))`
/dports/x11-wm/enlightenment/enlightenment-0.24.2/src/modules/xkbswitch/
H A De_mod_config.c598 Evas_Object *listh, *frame; in _config_basic_create() local
636 listh = elm_box_add(mainn); in _config_basic_create()
640 o = elm_label_add(listh); in _config_basic_create()
644 elm_box_pack_end(listh, o); in _config_basic_create()
646 o = elm_button_add(listh); in _config_basic_create()
652 elm_box_pack_end(listh, o); in _config_basic_create()
653 evas_object_show(listh); in _config_basic_create()
657 listh = elm_box_add(mainn); in _config_basic_create()
661 elm_box_pack_end(listh, o); in _config_basic_create()
670 evas_object_show(listh); in _config_basic_create()
[all …]
/dports/science/siesta/siesta-4.1.5/Util/TS/tshs2tshs/
H A Dm_ts_io_version.f9023 numh, listhptr, listh, xij, & argument
41 integer, intent(in) :: listh(maxnh) local
98 write(iu) listh(listhptr(i)+1:listhptr(i)+numh(i))

12345