Home
last modified time | relevance | path

Searched refs:epsm1 (Results 1 – 6 of 6) sorted by relevance

/dports/science/quantum-espresso/q-e-qe-6.7.0/TDDFPT/src/
H A Dlr_eels_main.f9029 & chirz, chizz, chizr, epsm1
163 ALLOCATE(epsm1(nfs))
168 epsm1=(0.0_DP,0.0_DP)
191 DEALLOCATE(epsm1)
356 chizr, epsm1, units
474 IF (ABS(epsm1(iu))>1.D-10) epsi = CMPLX(1.0_DP,0.0_DP) / epsm1(iu)
477 DREAL(epsm1(iu)), -DIMAG(epsm1(iu)), &
481 DREAL(epsm1(iu)), -DIMAG(epsm1(iu)), &
H A Dlr_sternheimer.f9073 chirr, chirz, chizr, chizz, epsm1, &
646 epsm1(iu)=(0.0_DP,0.0_DP)
658 epsm1(iu) = CMPLX(1.0_DP,0.0_DP)+ chirr(iu)*fpi*e2/xqmod2
668 CALL mp_sum(epsm1(iu),intra_bgrp_comm)
680 WRITE(stdout,'(/,6x,"epsilon^-1(q,w) =",2f15.6)') epsm1(iu)
H A Dlr_variables.f9056 epsm1(:) ! epsm1 variable
/dports/science/quantum-espresso/q-e-qe-6.7.0/test-suite/
H A Dextract-tddfpt.sh57 epsm1=`tail -n +2 $fname | awk '{print $4}'`
71 if test "$epsm1" != ""; then
72 echo epsm1
73 for x in $epsm1; do echo $x; done
H A Duserconfig.tmp152 (1.0e-4, 1.0e-4, 'epsm1'),
/dports/science/quantum-espresso/q-e-qe-6.7.0/TDDFPT/tools/
H A Dtddfpt_calculate_spectrum.f9060 epsm1(3,3) ! inverse dielectric function variable
548 …epsm1(1,1) = cmplx( 1.0d0 + factor_eels*dble(green(1,1)), factor_eels*aimag(green(1,1)), kind=dp )
554 eps(1,1) = cmplx( dble(epsm1(1,1))/(dble(epsm1(1,1))**2 + aimag(epsm1(1,1))**2), &
555 … -aimag(epsm1(1,1))/(dble(epsm1(1,1))**2 + aimag(epsm1(1,1))**2), kind=dp )
558 …WRITE(18,'(5x,5(e21.15,2x))') start, dble(epsm1(1,1)), -aimag(epsm1(1,1)), dble(eps(1,1)), aim…
568 integration_function = -aimag(epsm1(1,1)) * start * volume/(2.0d0*pi**2)