calc_gwakw.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	calc_gwakw (NWF, NTK, nsgm, Na1, Na2, Na3, nkb1, nkb2, nkb3, NSK_BAND_DISP, idlt, shift_ef, SK_BAND_DISP, a1, a2, a3, sgmw, KS_R, XC_R, SX_R, SC_R, AKW, gw_sigma_kw)

---

Function Documentation

subroutine calc_gwakw	(	integer	NWF,
		integer	NTK,
		integer	nsgm,
		integer	Na1,
		integer	Na2,
		integer	Na3,
		integer	nkb1,
		integer	nkb2,
		integer	nkb3,
		integer	NSK_BAND_DISP,
		real(8)	idlt,
		real(8)	shift_ef,
		real(8),dimension(3,nsk_band_disp)	SK_BAND_DISP,
		real(8),dimension(3)	a1,
		real(8),dimension(3)	a2,
		real(8),dimension(3)	a3,
		real(8),dimension(nsgm)	sgmw,
		complex(8),dimension(nwf,nwf,-na1:na1,-na2:na2,-na3:na3)	KS_R,
		complex(8),dimension(nwf,nwf,-na1:na1,-na2:na2,-na3:na3)	XC_R,
		complex(8),dimension(nwf,nwf,-na1:na1,-na2:na2,-na3:na3)	SX_R,
		complex(4),dimension(nwf,nwf,-na1:na1,-na2:na2,-na3:na3,nsgm)	SC_R,
		real(8),dimension(nsk_band_disp,nsgm),intent(out)	AKW,
		real(8),dimension(nsk_band_disp,nsgm),intent(out)	gw_sigma_kw
	)

Definition at line 1 of file calc_gwakw.f90.

References make_emk(), and search_Rmin().

Referenced by GW().

Here is the call graph for this function:

Here is the caller graph for this function: