Home
last modified time | relevance | path

Searched refs:nuotot (Results 1 – 25 of 50) sorted by relevance

12

/dports/science/siesta/siesta-4.1.5/Src/
H A Dpdosg.F67 . maxo, nhist, nuotot
75 . haux(nuotot,nuo), saux(nuotot,nuo), psi(nuotot,nuo),
102 do juo = 1, nuotot
121 call rdiag( haux, saux, nuotot, nuo, nuotot, eo(1,ispin),
130 do juo = 1, nuotot
144 call rdiag( haux, saux, nuotot, nuo, nuotot, eo(1,ispin),
150 do juo = 1, nuotot
179 Sloc(1:nuotot,1:Bnuo) = Saux(1:nuotot,1:Bnuo)
229 do iuo = 1, nuotot
254 dpr(1:nhist,1:nuotot,1:nspin) = tmp(1:nhist,1:nuotot,1:nspin)
[all …]
H A Ddiagon.F162 nuo = nuotot
172 nhs = nuotot * nuo
173 npsi = nuotot * maxuo * nspin
174 naux = nuotot * 5
176 nhs = 2 * nuotot * nuo
177 npsi = 2 * nuotot * nuo
181 nhs = 2 * nuotot * nuotot
182 npsi = 2 * nuotot * nuotot
192 nhs = 2 * 2 * nuotot * 2 * nuotot
193 npsi = 2 * 2 * nuotot * 2 * nuotot
[all …]
H A Ddiagpol.f8 subroutine diagpol( ispin, nspin, nuo, no, nuotot, argument
63 . xij(3,*), psi(ng,nuotot,nuo), Haux(ng,nuotot,nuo),
64 . Saux(ng,nuotot,nuo)
98 call cdiag( Haux, Saux, nuotot, nuo, nuotot, eo, psi,
99 . nuotot, 1, ierror, BlockSize)
101 call rdiag( Haux, Saux, nuotot, nuo, nuotot, eo, psi,
102 . nuotot, 1, ierror, BlockSize)
133 call cdiag( Haux, Saux, nuotot, nuo, nuotot, eo, psi,
134 . nuotot, 1, ierror, BlockSize)
136 call rdiag( Haux, Saux, nuotot, nuo, nuotot, eo, psi,
[all …]
H A Dpdoskp.F84 . Haux(2,nuotot,nuotot), Saux(2,nuotot,nuotot),
85 . psi(2,nuotot,nuotot),
122 do io = 1,nuotot
136 do io = 2,nuotot
141 maxnhg = listhptrg(nuotot) + numhg(nuotot)
145 do io = 1,nuotot
161 nuog = nuotot
173 do io = 1,nuotot
238 call cdiag( Haux, Saux, nuotot, nuog, nuotot,
271 call cdiag( Haux, Saux, nuotot, nuog, nuotot,
[all …]
H A Dpdosk.F72 . maxo, nhist, nuotot
81 . Haux(2,nuotot,nuo), Saux(2,nuotot,nuo), psi(2,nuotot,nuo),
114 do juo = 1,nuotot
143 call cdiag( Haux, Saux, nuotot, nuo, nuotot,
153 do juo = 1,nuotot
176 call cdiag( Haux, Saux, nuotot, nuo, nuotot,
183 do juo = 1, nuotot
226 Sloc(1:2,1:nuotot,1:Bnuo) = Saux(1:2,1:nuotot,1:Bnuo)
280 do iuo = 1, nuotot
311 dpr(1:nhist,1:nuotot,1:nspin) = Sloc(1:nhist,1:nuotot,1:nspin)
[all …]
H A Dtransition_rate.F77 integer nuo, nuotot, maxnh, no,
83 . psi(ng,nuotot,nuo), kpoint(3), Aux(ng,nuotot,nuo),
84 . Aux2(ng,nuotot,nuo), ek(nuotot), temp, efermi,
119 do juo = 1,nuotot
176 do j = 1,nuotot
195 do juo = 1,nuotot
236 AuxLocal(1:ng,1:nuotot) = 0.0d0
254 do j = 1,nuotot
267 do juo = 1,nuotot
308 Aux(1:ng,1:nuotot,iie) = AuxLocal2(1:ng,1:nuotot)
[all …]
H A Dpdos2g.F67 . maxo, nhist, nuotot
74 . dtot(nhist,4), dpr(nhist,nuotot,4)
77 complex(dp) Haux(2,nuotot,2,nuo), Saux(2,nuotot,2,nuo)
120 call cdiag( Haux, Saux, 2*nuotot, 2*nuo, 2*nuotot,
141 call cdiag(Haux,Saux,2*nuotot,2*nuo,2*nuotot,eo,psi,
174 Sloc(1:nuotot,1:Bnuo) = Spr(1:nuotot,1:Bnuo)
190 do io = 1, nuotot
221 do jo = 1, nuotot
222 do io = 1, nuotot
245 do io= 1, nuotot
[all …]
H A Ddiagg.F13 & Haux, Saux, psi, nuotot, occtol,
120 real(dp) Haux(nuotot,nuo), Saux(nuotot,nuo)
167 call rdiag( Haux, Saux, nuotot, nuo, nuotot,
192 call rdiag( Haux, Saux, nuotot, nuo, nuotot, eo(1,ispin),
207 call writew(nuotot,nuo,1,k,ispin,
239 do io = 1,nuotot
278 PSI_TMP(mm+1:mm+nuotot) = PSI(1:nuotot,io, ispin)
279 mm = mm + nuotot
291 mm = (ispin-1)*nuo_LOC(Bnode)*nuotot
296 paux => PSI_TMP(mm+1:mm+nuotot)
[all …]
H A Dsavepsi.F8 subroutine savepsi(psiprev, psi, nuo, nuotot, nocc) argument
34 integer nuo, nuotot, nocc
37 . psiprev(2,nuo,nuotot),
38 . psi(2,nuotot,nuo)
57 call re_alloc( psitmp, 1, 2, 1, nuotot, 1, noccloc,
66 psitmp(1:2,1:nuotot,1:noccloc) = psi(1:2,1:nuotot,1:noccloc)
68 call MPI_Bcast(psitmp(1,1,1),2*nuotot*noccloc,
88 psiprev(1:2,1:nuotot,1:nocc) = psi(1:2,1:nuotot,1:nocc)
H A Dwritewave.F497 nuo = nuotot
519 nhs = 2 * nuotot * nuo
525 naux = 2*nuotot*5
549 write(iu) nuotot
586 . Haux, Saux, psi, nuotot, occtol, 1, nuotot )
605 . nuotot, occtol, 1, nuotot )
613 . nuotot, occtol, 1, nuotot )
622 . nuotot, occtol, 1, nuotot )
630 . nuotot, occtol, 1, nuotot )
804 do j = 1,nuotot
[all …]
H A Dpdos3g.F67 . maxo, nhist, nuotot
74 . dtot(nhist,4), dpr(nhist,nuotot,4)
75 complex(dp), target :: psi(2,nuotot,2*nuo)
76 complex(dp) Haux(2,nuotot,2,nuo), Saux(2,nuotot,2,nuo)
91 real(dp) :: tmp(nhist,nuotot,4)
118 call cdiag( Haux, Saux, 2*nuotot, 2*nuo, 2*nuotot,
139 call cdiag(Haux,Saux,2*nuotot,2*nuo,2*nuotot,eo,psi,
172 Sloc(1:nuotot,1:Bnuo) = Spr(1:nuotot,1:Bnuo)
188 do io = 1, nuotot
220 do jo = 1, nuotot
[all …]
H A Ddiagkp.F119 real(dp) Dk(2,nuotot,nuotot), Ek(2,nuotot,nuotot),
120 & Haux(2,nuotot,nuotot), Saux(2,nuotot,nuotot),
121 & psi(2,nuotot,nuotot), aux(2,nuotot)
163 do io = 1,nuotot
175 do io = 2,nuotot
180 maxnhg = listhptrg(nuotot) + numhg(nuotot)
184 do io = 1,nuotot
198 nuog = nuotot
269 call cdiag(Haux,Saux,nuotot,nuotot,nuog,eo(1,ispin,ik),psi,
365 call cdiag(Haux,Saux,nuotot,nuotot,nuog,aux,psi,
[all …]
H A Ddiagk_file.F128 real(dp) Dk(2,nuotot,nuo), Ek(2,nuotot,nuo),
129 . Haux(2,nuotot,nuo), Saux(2,nuotot,nuo),
130 . psi(2,nuotot,nuo)
165 call cdiag(Haux,Saux,nuotot,nuo,nuotot,eo(1,ispin,ik),psi,
166 . nuotot,iscf,ierror, BlockSize)
175 call cdiag(Haux,Saux,nuotot,nuo,nuotot,eo(1,ispin,ik),psi,
176 . nuotot,iscf,ierror, BlockSize)
183 call write_wfs_netcdf(nuotot,nuo,ik,ispin, psi,
208 do io = 1,nuotot
225 allocate(psi_block(2,nuotot,max_block_size))
[all …]
H A Dm_overkkneig.F90287 call re_alloc( aux2, 1, nbandsocc, 1, nuotot, &
297 call GetNodeOrbs( nuotot, 0, Nodes, norb_max_loc)
310 call re_alloc( auxtmp, 1, nuotot, 1, norb_max_loc, &
325 call GetNodeOrbs( nuotot, inode, Nodes, norb_loc )
330 do inu = 1, nuotot
337 call MPI_Bcast( auxtmp(1,1), nuotot*norb_loc, &
357 do inu = 1, nuotot
376 call re_alloc( aux2loc, 1, nbandsocc, 1, nuotot, &
385 do inu = 1, nuotot
386 do imu = 1, nuotot
[all …]
H A Dreordpsi.F8 subroutine reordpsi(psisave, psi, nuo, nuotot, nocc, ninc) argument
51 integer, intent(in) :: nuo, nuotot, nocc, ninc
52 real(dp), intent(in) :: psi(2,nuotot,nuo)
53 complex(dp), intent(out) :: psisave(nuotot,ninc)
78 call re_alloc( psitmp, 1, 2, 1, nuotot, 1, noccloc,
90 psitmp(1:2,1:nuotot,1:noccloc) = psi(1:2,1:nuotot,1:noccloc)
92 call MPI_Bcast(psitmp(1,1,1),2*nuotot*noccloc,
114 do juo = 1, nuotot
H A Ddiagk.F131 real(dp) Dk(2,nuotot,nuo), Ek(2,nuotot,nuo),
132 . Haux(2,nuotot,nuo), Saux(2,nuotot,nuo)
133 real(dp), target :: psi(2,nuotot,nuo), aux(2,nuotot)
161 allocate(done_juo(nuotot))
194 call cdiag( Haux, Saux, nuotot, nuo, nuotot, eo(1,ispin,ik),
231 do io = 1,nuotot
265 ie = nuotot
301 call cdiag(Haux,Saux,nuotot,nuo,nuotot,aux,psi,
330 call cdiag(Haux,Saux,nuotot,nuo,nuotot,aux,psi,
359 do juo = 1,nuotot
[all …]
H A Dpdos2k.F79 complex(dp), target :: psi(2,nuotot,2*nuo)
81 complex(dp) Haux(2,nuotot,2,nuo), Saux(2,nuotot,2,nuo)
104 real(dp) :: tmp(nhist,nuotot,4)
144 call cdiag( Haux, Saux, 2*nuotot, 2*nuo, 2*nuotot,
175 call cdiag( Haux, Saux, 2*nuotot, 2*nuo, 2*nuotot,
205 call re_alloc( Sloc, 1, nuotot, 1, maxnuo,
216 Sloc(1:nuotot,1:Bnuo) = Spr(1:nuotot,1:Bnuo)
218 call MPI_Bcast(Sloc(1,1),nuotot*Bnuo,
234 do io = 1, nuotot
268 do io = 1, nuotot
[all …]
H A Dpdos3k.F79 complex(dp), target :: psi(2,nuotot,2*nuo)
81 complex(dp) Haux(2,nuotot,2,nuo), Saux(2,nuotot,2,nuo)
104 real(dp) :: tmp(nhist,nuotot,4)
146 call cdiag( Haux, Saux, 2*nuotot, 2*nuo, 2*nuotot,
179 call cdiag( Haux, Saux, 2*nuotot, 2*nuo, 2*nuotot,
209 call re_alloc( Sloc, 1, nuotot, 1, maxnuo,
220 Sloc(1:nuotot,1:Bnuo) = Spr(1:nuotot,1:Bnuo)
222 call MPI_Bcast(Sloc(1,1),nuotot*Bnuo,
238 do io = 1, nuotot
272 do io = 1, nuotot
[all …]
H A Ddiag2g.F13 . nuotot, occtol, iscf, neigwanted)
96 integer no, nuo, nuotot, iscf, neigwanted
105 complex(dp), dimension(2,nuotot,2*nuo), target :: psi
106 complex(dp), dimension(2,nuotot,2,nuo) :: Haux, Saux
107 complex(dp), dimension(2,nuotot), target :: caux
182 call cdiag(Haux,Saux,2*nuotot,2*nuo,2*nuotot,eo,psi,
206 call cdiag(Haux,Saux,2*nuotot,2*nuo,2*nuotot,eo,psi,
213 call writew(nuotot,nuo,1,k,1,
228 do io = 1, nuotot*2
261 do ie = 1,2*nuotot
[all …]
H A Ddiag3g.F13 . nuotot, occtol, iscf, neigwanted)
91 integer no, nuo, nuotot, iscf, neigwanted
100 complex(dp), dimension(2,nuotot,2*nuo), target :: psi
102 complex(dp), dimension(2,nuotot,2,nuo) :: Haux, Saux
103 complex(dp), dimension(2,nuotot) :: caux
171 call cdiag(Haux,Saux,2*nuotot,2*nuo,2*nuotot,eo,psi,
195 call cdiag(Haux,Saux,2*nuotot,2*nuo,2*nuotot,eo,psi,
207 call writew(nuotot,nuo,1,k,1,
225 do io = 1, nuotot*2
257 do ie = 1,2*nuotot
[all …]
H A Ddetover.F10 . no, nuo, xij, maxnh, nuotot, nocc,
62 . nuo, maxnh, nuotot, no, nocc,
68 . psiprev(2,nuo,nuotot), dk(3),detr, deti,
70 . psi(2,nuotot,nuo), kpoint(3)
91 call re_alloc( Aux2, 1, nuotot, 1, nuo, name='Aux2',
114 call GetNodeOrbs(nuotot,0,Nodes,noccmax)
124 call GetNodeOrbs(nuotot,n,Nodes,noccmax)
127 do juo = 1,nuotot
133 call MPI_Bcast(psitmp(1,1,1),2*nuotot*noccmax,
141 do juo=1,nuotot
[all …]
/dports/science/siesta/siesta-4.1.5/Util/WFS/
H A Dwfsx2wfs.f22 . nwflist, iw, indwf, j, nuotot, jj
42 read(iu) nuotot
47 write(io) nuotot
50 allocate(psi(1,nuotot))
52 allocate(psi(2,nuotot))
55 allocate(iaorb(nuotot), labelfis(nuotot),
56 $ iphorb(nuotot), cnfigfio(nuotot),
57 $ symfio(nuotot))
61 . symfio(j), j=1,nuotot)
84 read(iu) (psi(1:,j), j=1,nuotot)
[all …]
H A Dwfs2wfsx.f30 . nwflist, iw, indwf, j, nuotot, jj
55 read(iu) nuotot
69 write(io) nuotot
71 allocate(psir(nuotot),psii(nuotot))
73 allocate(iaorb(nuotot), labelfis(nuotot),
74 $ iphorb(nuotot), cnfigfio(nuotot),
75 $ symfio(nuotot))
101 do jj = 1,nuotot
111 . symfio(j), j=1,nuotot)
125 write(io) (real(psir(j),kind=sp), j=1,nuotot)
[all …]
H A Dwfsnc2wfsx.F9077 allocate(psir(nuotot),psii(nuotot))
94 write(io) nuotot
97 allocate(iaorb(nuotot), labelfis(nuotot), &
98 iphorb(nuotot), cnfigfio(nuotot), &
99 symfio(nuotot))
107 symfio(j), j=1,nuotot)
129 count = (/1, nuotot, 1, 1, 1/) )
131 write(io) (psir(j), j=1,nuotot)
135 count = (/1, nuotot, 1, 1, 1/) )
138 count = (/1, nuotot, 1, 1, 1/) )
[all …]
H A Dreadwfx.f90125 read(wfs_u) nuotot
187 read(wfs_u) nuotot
199 allocate(psi(4,nuotot))
201 allocate(psi(1,nuotot))
205 allocate(psi(4,nuotot))
207 allocate(psi(2,nuotot))
211 allocate(iaorb(nuotot), labelfis(nuotot), &
212 iphorb(nuotot), cnfigfio(nuotot), &
213 symfio(nuotot))
281 read(wfs_u) (psi(1:,j), j=1,nuotot)
[all …]

12