Home
last modified time | relevance | path

Searched refs:dnsscf_all_modes_cart (Results 1 – 3 of 3) sorted by relevance

/dports/science/quantum-espresso/q-e-qe-6.7.0/PHonon/PH/
H A Dwrite_hub.f9039 COMPLEX(DP), ALLOCATABLE :: dnsscf_all_modes_cart(:,:,:,:,:) local
42 dnsscf_all_modes_cart = (0.d0, 0.d0)
54 dnsscf_all_modes_cart(m1,m2,is,nah,na_icart) = &
55 dnsscf_all_modes_cart(m1,m2,is,nah,na_icart) + &
88 DEALLOCATE(dnsscf_all_modes_cart)
118 COMPLEX(DP), ALLOCATABLE :: dnsscf_all_modes_cart(:,:,:,:,:) local
120 ALLOCATE (dnsscf_all_modes_cart(2*Hubbard_lmax+1,2*Hubbard_lmax+1,nspin,nat,3))
121 dnsscf_all_modes_cart = (0.d0, 0.d0)
133 dnsscf_all_modes_cart(m1,m2,is,nah,icart) = &
134 dnsscf_all_modes_cart(m1,m2,is,nah,icart) + &
[all …]
H A Delphon.f90602 COMPLEX(DP), ALLOCATABLE :: dnsscf_all_modes_cart(:,:,:,:,:) local
605 ALLOCATE(dnsscf_all_modes_cart (2*Hubbard_lmax+1, 2*Hubbard_lmax+1, nspin, nat, nmodes))
606 dnsscf_all_modes_cart = (0.d0, 0.d0)
619 dnsscf_all_modes_cart (m1, m2, is, nah, na_icart) = &
620 dnsscf_all_modes_cart (m1, m2, is, nah, na_icart) + &
647 WRITE(stdout,'(14(f15.10,1x))') dnsscf_all_modes_cart (m1,:,is,nah,na_icart)
656 DEALLOCATE(dnsscf_all_modes_cart)
/dports/science/quantum-espresso/q-e-qe-6.7.0/test-suite/not_epw_comp/
H A Delphon.f90551 COMPLEX(DP), ALLOCATABLE :: dnsscf_all_modes_cart(:,:,:,:,:) local
554 ALLOCATE(dnsscf_all_modes_cart (2*Hubbard_lmax+1, 2*Hubbard_lmax+1, nspin, nat, nmodes))
555 dnsscf_all_modes_cart = (0.d0, 0.d0)
568 dnsscf_all_modes_cart (m1, m2, is, nah, na_icart) = &
569 dnsscf_all_modes_cart (m1, m2, is, nah, na_icart) + &
596 WRITE(stdout,'(14(f15.10,1x))') dnsscf_all_modes_cart (m1,:,is,nah,na_icart)
605 DEALLOCATE(dnsscf_all_modes_cart)