Searched refs:norbl (Results 1 – 4 of 4) sorted by relevance
| /dports/science/quantum-espresso/q-e-qe-6.7.0/PWCOND/src/ |
| H A D | init_orbitals.f90 | 321 norbl = norb
329 IF (norbl>0) THEN
330 allocate( taunewl(4,norbl) )
331 allocate( tblml(4,norbl) )
332 allocate( crosl(norbl, nrzl) )
334 allocate(zpseul_nc(2, norbl, norbl, nspin))
336 allocate( zpseul(2, norbl, norbl) )
353 norbf = norbl
|
| H A D | cond_out.f90 | 86 write (stdout, 200) nocrosl, noinsl, norbl, norbf, nrzl
99 & (taunewl(ipol,iorb),ipol=1,3), iorb=1, norbl )
100 if(norbl.le.80) then
105 k,zl(k),zl(k+1),zl(k+1)-zl(k),(crosl(iorb,k),iorb=1,norbl)
|
| H A D | do_cond.f90 | 280 norbl,rl,rabl,betarl)
284 norbr = norbl
367 norbl,rl,rabl,betarl)
445 CALL local_set(nocrosl,noinsl,norbl,noinss,norbs,nocrosr,noinsr,norbr)
519 CALL scatter_forw(nrzl, nrzpl, zl, psiperl, zkl, norbl, &
521 CALL compbs(1, nocrosl, norbl, nchanl, kvall, kfunl, kfundl, &
|
| H A D | condcom.f90 | 67 norbl, & ! number of orbitals for the left lead variable
|