/dports/science/siesta/siesta-4.1.5/Src/ |
H A D | pdosg.F | 67 . 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 D | diagon.F | 162 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 D | diagpol.f | 8 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 D | pdoskp.F | 84 . 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 D | pdosk.F | 72 . 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 D | transition_rate.F | 77 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 D | pdos2g.F | 67 . 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 D | diagg.F | 13 & 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 D | savepsi.F | 8 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 D | writewave.F | 497 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 D | pdos3g.F | 67 . 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 D | diagkp.F | 119 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 D | diagk_file.F | 128 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 D | m_overkkneig.F90 | 287 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 D | reordpsi.F | 8 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 D | diagk.F | 131 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 D | pdos2k.F | 79 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 D | pdos3k.F | 79 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 D | diag2g.F | 13 . 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 D | diag3g.F | 13 . 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 D | detover.F | 10 . 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 D | wfsx2wfs.f | 22 . 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 D | wfs2wfsx.f | 30 . 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 D | wfsnc2wfsx.F90 | 77 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 D | readwfx.f90 | 125 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 …]
|