Searched refs:dylmaux (Results 1 – 1 of 1) sorted by relevance
| /dports/science/quantum-espresso/q-e-qe-6.7.0/CPV/src/ |
| H A D | cplib.f90 | 1395 real(DP), allocatable :: dylmaux (:,:,:) local
1397 allocate ( dylmaux(ngy,nylm,3) )
1399 dylmaux(:,:,:) = 0.d0
1402 call dylmr2 (nylm, ngy, g, gg, dylmaux(1,1,ipol), ipol)
1409 dylm (ig,lm,ipol,jpol) = (dylmaux(ig,lm,1) * ainv(jpol,1) + &
1410 dylmaux(ig,lm,2) * ainv(jpol,2) + &
1411 dylmaux(ig,lm,3) * ainv(jpol,3) ) &
1418 deallocate ( dylmaux )
|