sub_eps.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	make_LG0 (NTG, b1, b2, b3, Gcut_for_eps, Gcut_for_psi, q1, q2, q3, LG0, NG_for_eps, NG_for_psi)
subroutine	make_eps (NTG, NTGQ, ne, itrs, NG, LGtmp, RWtmp, rginvtmp, pgtmp, nnp, L1, L2, L3, packtmp, epsirr, epsmk)

---

Function Documentation

subroutine make_eps	(	integer	NTG,
		integer	NTGQ,
		integer	ne,
		integer	itrs,
		integer	NG,
		integer,dimension(3,ntg)	LGtmp,
		integer,dimension(3)	RWtmp,
		real(8),dimension(3,3)	rginvtmp,
		integer,dimension(3)	pgtmp,
		integer	nnp,
		integer	L1,
		integer	L2,
		integer	L3,
		integer,dimension(-l1:l1,-l2:l2,-l3:l3)	packtmp,
		complex(4),dimension(ntgq,ntgq,ne)	epsirr,
		complex(4),dimension(ntgq,ntgq,ne)	epsmk
	)

Definition at line 55 of file sub_eps.f90.

subroutine make_LG0	(	integer	NTG,
		real(8),dimension(3)	b1,
		real(8),dimension(3)	b2,
		real(8),dimension(3)	b3,
		real(8)	Gcut_for_eps,
		real(8)	Gcut_for_psi,
		real(8)	q1,
		real(8)	q2,
		real(8)	q3,
		integer,dimension(3,ntg)	LG0,
		integer	NG_for_eps,
		integer	NG_for_psi
	)

Definition at line 1 of file sub_eps.f90.