converge_meanfreepath Subroutine

private subroutine converge_meanfreepath(myrank_grid, comm_grid, nkpts, nkpt1, nkpt2, ioff1, ioff2, nsqa, ndegen, BZVol, weights, fermivel, tau, tau_avg, Pkksub, meanfreepath_new, add_gamma_mode, gammaval, impconc)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	myrank_grid
integer,	intent(in)			::	comm_grid
integer,	intent(in)			::	nkpts
integer,	intent(in)			::	nkpt1
integer,	intent(in)			::	nkpt2
integer,	intent(in)			::	ioff1
integer,	intent(in)			::	ioff2
integer,	intent(in)			::	nsqa
integer,	intent(in)			::	ndegen
double precision,	intent(in)			::	BZVol
double precision,	intent(in)			::	weights(nkpts)
double precision,	intent(in)			::	fermivel(3,nkpts)
double precision,	intent(in)			::	tau(ndegen,nsqa,nkpts)
double precision,	intent(in)			::	tau_avg(ndegen,nsqa)
double precision,	intent(in)			::	Pkksub(ndegen,nkpt1,ndegen,nsqa,nkpt2)
double precision,	intent(out),		allocatable	::	meanfreepath_new(:,:,:,:)
integer,	intent(in)			::	add_gamma_mode
double precision,	intent(in),	optional		::	gammaval
double precision,	intent(in),	optional		::	impconc