| /dports/science/siesta/siesta-4.1.5/Util/COOP/ |
| H A D | write_dm.f | 9 . listdptr, listd, dm, found )
55 integer, intent(inout) :: listdptr(nbasis)
195 listdptr(1) = 0
197 listdptr(m) = listdptr(m-1) + numd(m-1)
227 . (listd(listdptr(ml)+im),im=1,numd(ml))
229 read(unit1) (listd(listdptr(ml)+im),im=1,numd(ml))
239 . (dm(listdptr(ml)+im,is),im=1,numd(ml))
299 . (listd(listdptr(ml)+im),im=1,numd(ml))
301 write(unit1) (listd(listdptr(ml)+im),im=1,numd(ml))
312 . (dm(listdptr(ml)+im,is),im=1,numd(ml))
[all …]
|
| H A D | iodm_netcdf.F90 | 43 numd, listdptr, listd) argument
53 integer, intent(in) :: listdptr(nbasis) local
173 call check( nf90_put_var(ncid,row_pointer_id,listdptr,count=(/norbs/)))
|
| /dports/science/siesta/siesta-4.1.5/Src/ |
| H A D | m_iodm_old.F | 77 integer, pointer :: listdptr(:)
177 listdptr(1) = 0
179 listdptr(m) = listdptr(m-1) + numd(m-1)
205 . (listd(listdptr(ml)+im),im=1,numd(ml))
221 call MPI_IRecv(listd(listdptr(ml)+1),numd(ml),
317 integer, intent(out) :: listdptr(no_l)
408 listdptr(1) = 0
411 listdptr(m) = listdptr(m-1) + numd(m-1)
438 . (listd(listdptr(ml)+im),im=1,numd(ml))
522 $ numd, listdptr, listd, dm, userfile)
[all …]
|
| H A D | iodm.F | 9 . listdptr, listd, dm, found )
53 integer, intent(inout) :: listdptr(nbasis)
208 listdptr(1) = 0
210 listdptr(m) = listdptr(m-1) + numd(m-1)
237 . (listd(listdptr(ml)+im),im=1,numd(ml))
253 call MPI_IRecv(listd(listdptr(ml)+1),numd(ml),
278 . (dm(listdptr(ml)+im,is),im=1,numd(ml))
294 call MPI_IRecv(dm(listdptr(ml)+1,is),numd(ml),
391 . (listd(listdptr(ml)+im),im=1,numd(ml))
437 . (dm(listdptr(ml)+im,is),im=1,numd(ml))
[all …]
|
| H A D | m_matio.F90 | 23 numd, listdptr, listd, mat, userfile, compatible) argument
38 integer, intent(in) :: listdptr(1:no_l) local
75 write(lun) (listd(j),j=listdptr(i)+1,listdptr(i)+numd(i))
79 write(lun) (mat(j,is),j=listdptr(i)+1,listdptr(i)+numd(i))
208 base_l = listdptr(n_l+1)
283 base_l = listdptr(n_l+1)
|
| H A D | diagon.F | 17 . listdptr, listd, H, S, qtot, fixspin,
131 . listhptr(*), listdptr(*)
217 . numh, listhptr, listh, numd, listdptr, listd,
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,
300 . listhptr, listh, numd, listdptr, listd,
310 . listhptr, listh, numd, listdptr, listd,
326 . listhptr, listh, numd, listdptr, listd,
|
| H A D | meshdscf.F | 57 & listdptr, listd )
107 integer, intent(in) :: listdptr(*)
237 listdl(listdlptr(iu)+i) = listd(listdptr(iio)+i)
252 ibuffer(mm+1:mm+numd(iio)) = listd(listdptr(iio)+1:
253 & listdptr(iio)+numd(iio))
287 subroutine matrixOtoM( maxnd, numd, listdptr, maxndl, nuo, argument
326 & listdptr(nuo)
355 & Dscf(listdptr(iio)+1:listdptr(iio)+numd(iio),ispin)
368 buffer(mm+1:mm+numd(iio)) = Dscf(listdptr(iio)+1:
369 & listdptr(iio)+numd(iio),ispin)
[all …]
|
| H A D | m_fire_mixing.f | 25 . listdptr,nspin,alpha,nkick,alpha_kick,
56 integer, intent(in) :: numd(:), listdptr(:)
123 k = listdptr(i) + j
166 k = listdptr(i) + j
194 k = listdptr(i)+j
|
| H A D | m_broyden_mixing.f | 26 . listdptr,nspin,alpha,nkick,alpha_kick,
58 integer, intent(in) :: numd(:), listdptr(:)
130 k = listdptr(i) + j
183 k = listdptr(i) + j
245 k = listdptr(i)+j
|
| H A D | overfsm.f90 | 27 lasto, iphorb, isa, maxnd, numd, listdptr, listd, & argument
63 integer, intent(in) :: listd(maxnd), numd(no_l), listdptr(no_l) local
106 ind = listdptr(iio)+j
139 jo = listd(listdptr(iio)+j)
|
| H A D | kinefsm.f | 13 . numd, listdptr, listd, numh, listhptr, listh,
76 . listd(maxnd), listh(maxnh), numd(*), numh(*), listdptr(*),
131 ind = listdptr(iio) + j
169 jo = listd(listdptr(iio)+j)
|
| H A D | diagk.F | 9 . maxo, numh, listhptr, listh, numd, listdptr,
123 . listdptr(nuo)
220 nd = listdptr(nuo) + numd(nuo)
400 do ind = listdptr(iuo) + 1 ,
401 & listdptr(iuo) + numd(iuo)
426 do ind = listdptr(iuo) + 1 ,
427 & listdptr(iuo) + numd(iuo)
|
| H A D | m_pulay.F90 | 80 listdptr,nspin,maxsav,alpha,nkick,alphakick, & argument
165 integer , intent(in) :: numd(*),listdptr(*) local
362 ind = listdptr(ii) + jj
377 ind = listdptr(ii) + jj
385 ind = listdptr(ii) + jj
405 ind = listdptr(ii) + jj
420 ind = listdptr(ii) + jj
428 ind = listdptr(ii) + jj
|
| H A D | diagg.F | 10 & listdptr, listd, H, S,
112 & listd(maxnd), numd(nuo), listdptr(nuo)
250 nd = listdptr(nuo) + numd(nuo)
300 ind = listdptr(io) + j
|
| H A D | rhoofdsp.F90 | 16 subroutine rhoofdsp( no, nml, nmpl, maxnd, numd, listdptr, & argument
66 iphorb(*), isa(*), numd(nuo), listdptr(nuo), listd(maxnd) local
143 call matrixOtoM( maxnd, numd, listdptr, maxndl, nuo, &
228 ind = listdptr(iu)+ii
238 ind = listdptr(iu)+ii
|
| H A D | diagk_file.F | 14 . maxo, numh, listhptr, listh, numd, listdptr,
121 . listdptr(nuo)
218 nd = listdptr(nuo) + numd(nuo)
270 ind = listdptr(iuo) + j
|
| H A D | dhscf.F | 60 & maxnd, numd, listdptr, listd, datm,
360 call CreateLocalDscfPointers( nmpl, nuotot, numd, listdptr,
518 & listdptr, listd, Dscf, datm, maxnh, Hmat,
690 & istr, listd(*), listdptr(nuo), ntm(3), numd(nuo)
928 call rhoofd( norb, nmpl, maxnd, numd, listdptr, listd,
1659 & numd, listdptr, listd, Hmat, nuo,
1663 & numd, listdptr, listd, Hmat, nuo,
1805 & maxnd, numd, listdptr, listd, Dscf, datm,
1908 & numd, listdptr, listd,
1926 & listdptr(nuo), listd(maxnd)
[all …]
|
| H A D | dfscf.f | 16 . maxnd, numd, listdptr, listd, Dscf, Datm,
81 . maxnd, numd(nuo), listdptr(nuo), listd(maxnd)
171 call matrixOtoM( maxnd, numd, listdptr, maxndl, nuo,
267 ind = listdptr(iul)+ii
|
| H A D | rhoofd.F90 | 72 isa(*), listdptr(nuo), listd(maxnd) local
121 call matrixOtoM( maxnd, numd, listdptr, maxndl, nuo, &
244 ind = listdptr(iul)+ii
258 ind = listdptr(iul)+ii
|
| H A D | diag2g.F | 9 . numh, listhptr, listh, numd, listdptr,
99 integer listd(maxnd), numd(nuo), listdptr(nuo)
283 ind = listdptr(io) + j
|
| H A D | diag3g.F | 9 . numh, listhptr, listh, numd, listdptr,
94 integer listd(maxnd), numd(nuo), listdptr(nuo)
279 ind = listdptr(io) + j
|
| H A D | iodm_netcdf.F90 | 41 numd, listdptr, listd, geom_step) argument
51 integer, intent(in) :: listdptr(nbasis) local
192 call check( nf90_put_var(ncid,row_pointer_id,listdptr,count=(/norbs/)))
|
| H A D | diag2kspiral.F90 | 9 numh, listhptr, listh, numd, listdptr, & argument
108 listhptr(nuo), listdptr(nuo) local
263 ind = listdptr(iuo) + j
|
| H A D | iodmhs_netcdf.F90 | 42 numd, listdptr, listd, & argument
53 integer, intent(in) :: listdptr(nbasis) local
200 call check( nf90_put_var(ncid,row_pointer_id,listdptr,count=(/norbs/)))
|
| H A D | diag2k.F | 9 . numh, listhptr, listh, numd, listdptr,
112 integer listhptr(*), listdptr(*)
443 ind = listdptr(iuo) + j
|