Searched refs:tmpspacei (Results 1 – 2 of 2) sorted by relevance
| /dports/science/quantum-espresso/q-e-qe-6.7.0/GWW/pw4gww/ |
| H A D | wannier_uterms.f90 | 45 COMPLEX(kind=DP), ALLOCATABLE :: tmpspacei(:,:) local
86 allocate(tmpspacei(max_ngm,n_set),tmpspacej(max_ngm,n_set),fac(max_ngm))
133 CALL davcio(tmpspacei(:,iw-(iiw-1)*n_set),max_ngm*2,iungprod,iw,-1)
136 tmpspacei(1,iw-(iiw-1)*n_set)=dble(tmpspacei(1,iw-(iiw-1)*n_set))
162 …call zgemm('C','N',n_set,n_set,ngm_max,(1.d0,0.d0),tmpspacei,max_ngm,tmpspacej,max_ngm,(0.d0,0.d0)…
215 deallocate(tmpspacei,tmpspacej,fac,uterms)
|
| H A D | calculate_wing.f90 | 43 COMPLEX(kind=DP), ALLOCATABLE :: tmpspacei(:,:) local
122 allocate(tmpspacei(max_ngm,n_set))
142 CALL davcio(tmpspacei(:,iw-(iiw-1)*n_set),max_ngm*2,iungprod,iw,-1)
157 … sca=sca+2.d0*dble((tmpspacei(ig,iw-(iiw-1)*n_set))*conjg(e_head(ig,i,ipol)))!*fact(ig)!ATTENZIONE
192 deallocate(tmpspacei)
|