calculate_lifetime_minmem Subroutine

private subroutine calculate_lifetime_minmem(myrank_grid, comm_grid, ndegen, nsqa, nkpts, nkpt1, nkpt2, ioff1, ioff2, BZVol, weights, Pkksub, tau, tau2, tau_avg)

!!$omp parallel private(ikp1, ispin1) !!$omp do collapse (2) !!$omp end do !!$omp end parallel

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	myrank_grid
integer,	intent(in)			::	comm_grid
integer,	intent(in)			::	ndegen
integer,	intent(in)			::	nsqa
integer,	intent(in)			::	nkpts
integer,	intent(in)			::	nkpt1
integer,	intent(in)			::	nkpt2
integer,	intent(in)			::	ioff1
integer,	intent(in)			::	ioff2
double precision,	intent(in)			::	BZVol
double precision,	intent(in)			::	weights(nkpts)
double precision,	intent(in)			::	Pkksub(ndegen,nkpt1,ndegen,nsqa,nkpt2)
double precision,	intent(out),		allocatable	::	tau(:,:,:)
double precision,	intent(out),		allocatable	::	tau2(:,:,:)
double precision,	intent(out),		allocatable	::	tau_avg(:,:)