Searched refs:intw1 (Results 1 – 8 of 8) sorted by relevance
/dports/science/quantum-espresso/q-e-qe-6.7.0/PWCOND/src/ |
H A D | rotproc.f90 | 12 fundl1, intw1, intw2, n2d, norbf, norb, nrzp) argument 213 vec(n2d+lam, 2*n2d+iorb1)*intw1(iorb, n2d+lam) 222 intw1(iorb, n)=intw1(iorb, n)+ & 223 vec(n2d+lam, n)*intw1(iorb, n2d+lam) 227 intw1(iorb, n2d+n)=x(n) 252 vec(lam, 2*n2d+iorb1)*intw1(iorb, lam) 260 x(n)=x(n)+vec(lam, n)*intw1(iorb, lam) 261 intw1(iorb, n2d+n)=intw1(iorb, n2d+n)+ & 262 vec(lam, n2d+n)*intw1(iorb, lam) 266 intw1(iorb, n)=x(n) [all …]
|
H A D | scatter_forw.f90 | 105 intw1=(0.d0,0.d0) 322 f_aux(i,j) = intw1(i,j) 326 xmat(1,n2d+1),2*n2d,one,intw1(1,n2d+1),norbf*npol) 330 2*n2d,zero,intw1,norbf*npol) 378 intw1(iorb,n) = intw1(iorb,n) + xmat(n2d+lam,n)*ci(iorb,lam) 379 intw1(iorb,n2d+n) = intw1(iorb,n2d+n) + & 382 intw1(iorb,n)=intw1(iorb,n)+di(iorb,n) 485 CALL dscal(2*norbf*npol*2*n2d, sarea, intw1, 1) 495 fundl1, intw1, intw2, n2d, norbf, norb, nrzp)
|
H A D | compbs.f90 | 156 zps_nc(aorb, iorb1)*intw1(iorb1,n) 158 bmat(2*n2d+iorb,n)-zps_nc(borb,iorb1)*intw1(iorb1,n) 161 zps(aorb,iorb1)*intw1(iorb1,n) 163 bmat(2*n2d+iorb,n)-zps(borb,iorb1)*intw1(iorb1,n) 245 kfun, kfund, vec, kval, intw1, intw2, nchan, npol) 363 intw1(iorb1,ig)*vec(ig,ik) 374 x1 = x1 + intw1(iorb,ig)*vec(ig,ik)
|
H A D | free_mem.f90 | 46 deallocate(intw1)
|
H A D | transmit.f90 | 168 zps_nc(iorb,iorb1)*intw1(iorb1,n) 171 zps(iorb,iorb1)*intw1(iorb1,n) 384 xi1(ipol) = xi1(ipol)+intw1(iorba, ig)*vec2(ig, n)
|
H A D | allocate_cond.f90 | 59 allocate( intw1(norbf*npol, 2*n2d) )
|
H A D | condcom.f90 | 195 intw1(:,:), &! integrals with beta-fun. of loc. fun. variable
|
H A D | scat_states_plot.f90 | 229 USE cond, ONLY : ngper, newbg, intw1, intw2, & 328 intw1(iorb,ir)*vec(ir,ichan)
|