get_params_1c Subroutine

public subroutine get_params_1c(t_params, krel, naezd, natypd, ncleb, lm2d, ncheb, ipand, lmpotd, lmaxd, lmxspd, nfund, npotd, ntotd, mmaxd, iemxd, irmd, nsra, ins, nspin, nacls1, icst, kmrot, iqat, idoldau, irws, ipan, ircut, iend, icleb, loflm, jend, ifunm1, lmsp1, nfu, llmsp, lcore, ncore, ntcell, irmin, ititle, intervx, intervy, intervz, lly, itmpdir, iltmp, npan_eq, ipan_intervall, npan_log, npan_tot, ntldau, lopt, itldau, ielast, iesemicore, npol, irshift, jwsrel, zrel, itrunldau, qmtet, qmphi, conc, alat, zat, drdi, rmesh, a, b, cleb, thetas, socscale, rpan_intervall, cscl, rnew, socscl, thetasnew, efermi, erefldau, ueff, jeff, emin, emax, tk, vins, visp, ecore, drdirel, r2drdirel, rmrel, vtrel, btrel, wldau, uldau, ez, wez, phildau, tmpdir, solver, nspind, nspotd, irmind, lmaxd1, ncelld, irid, r_log, naez, natyp, lmax)

Set the values of the local variables according to the stored t_params so that they can be passed between different control modules, specifically for main1c

Arguments

Type	Intent	Optional	Attributes		Name
type(type_params),	intent(in)			::	t_params
integer,	intent(in)			::	krel
integer,	intent(in)			::	naezd
integer,	intent(in)			::	natypd
integer,	intent(in)			::	ncleb
integer,	intent(in)			::	lm2d
integer,	intent(inout)			::	ncheb
integer,	intent(in)			::	ipand
integer,	intent(in)			::	lmpotd
integer,	intent(in)			::	lmaxd
integer,	intent(in)			::	lmxspd
integer,	intent(in)			::	nfund
integer,	intent(in)			::	npotd
integer,	intent(in)			::	ntotd
integer,	intent(in)			::	mmaxd
integer,	intent(in)			::	iemxd
integer,	intent(in)			::	irmd
integer,	intent(inout)			::	nsra
integer,	intent(inout)			::	ins
integer,	intent(inout)			::	nspin
integer,	intent(inout)			::	nacls1
integer,	intent(inout)			::	icst
integer,	intent(inout)			::	kmrot
integer,	intent(inout),		dimension (natypd)	::	iqat
integer,	intent(inout)			::	idoldau
integer,	intent(inout),		dimension (natypd)	::	irws
integer,	intent(inout),		dimension (natypd)	::	ipan
integer,	intent(inout),		dimension (0:ipand, natypd)	::	ircut
integer,	intent(inout)			::	iend
integer,	intent(inout),		dimension (ncleb, 4)	::	icleb
integer,	intent(inout),		dimension (lm2d)	::	loflm
integer,	intent(inout),		dimension (lmpotd, 0:lmaxd, 0:lmaxd)	::	jend
integer,	intent(inout),		dimension (lmxspd, natypd)	::	ifunm1
integer,	intent(inout),		dimension (lmxspd, natypd)	::	lmsp1
integer,	intent(inout),		dimension (natypd)	::	nfu
integer,	intent(inout),		dimension (natypd, nfund)	::	llmsp
integer,	intent(inout),		dimension (20, npotd)	::	lcore
integer,	intent(inout),		dimension (npotd)	::	ncore
integer,	intent(inout),		dimension (natypd)	::	ntcell
integer,	intent(inout),		dimension (natypd)	::	irmin
integer,	intent(inout),		dimension (20, npotd)	::	ititle
integer,	intent(inout)			::	intervx
integer,	intent(inout)			::	intervy
integer,	intent(inout)			::	intervz
integer,	intent(inout)			::	lly
integer,	intent(inout)			::	itmpdir
integer,	intent(inout)			::	iltmp
integer,	intent(inout),		dimension (natypd)	::	npan_eq
integer,	intent(inout),		dimension (0:ntotd, natypd)	::	ipan_intervall
integer,	intent(inout),		dimension (natypd)	::	npan_log
integer,	intent(inout),		dimension (natypd)	::	npan_tot
integer,	intent(inout)			::	ntldau
integer,	intent(inout),		dimension (natypd)	::	lopt
integer,	intent(inout),		dimension (natypd)	::	itldau
integer,	intent(inout)			::	ielast
integer,	intent(inout)			::	iesemicore
integer,	intent(inout)			::	npol
integer,	intent(inout),		dimension (natypd)	::	irshift
integer,	intent(inout),		dimension (natypd)	::	jwsrel
integer,	intent(inout),		dimension (natypd)	::	zrel
integer,	intent(inout)			::	itrunldau
real(kind=dp),	intent(inout),		dimension (naezd)	::	qmtet
real(kind=dp),	intent(inout),		dimension (naezd)	::	qmphi
real(kind=dp),	intent(inout),		dimension (natypd)	::	conc
real(kind=dp),	intent(inout)			::	alat
real(kind=dp),	intent(inout),		dimension (natypd)	::	zat
real(kind=dp),	intent(inout),		dimension (irmd, natypd)	::	drdi
real(kind=dp),	intent(inout),		dimension (irmd, natypd)	::	rmesh
real(kind=dp),	intent(inout),		dimension (natypd)	::	a
real(kind=dp),	intent(inout),		dimension (natypd)	::	b
real(kind=dp),	intent(inout),		dimension (ncleb, 2)	::	cleb
real(kind=dp),	intent(inout),		dimension (irid, nfund, ncelld)	::	thetas
real(kind=dp),	intent(inout),		dimension (natypd)	::	socscale
real(kind=dp),	intent(inout),		dimension (0:ntotd, natypd)	::	rpan_intervall
real(kind=dp),	intent(inout),		dimension (krel*lmaxd+1, krel*natypd+(1-krel))	::	cscl	Speed of light scaling
real(kind=dp),	intent(inout),		dimension (ntotd*(ncheb+1), natypd)	::	rnew
real(kind=dp),	intent(inout),		dimension (krel*lmaxd+1, krel*natypd+(1-krel))	::	socscl
real(kind=dp),	intent(inout),		dimension (ntotd*(ncheb+1), nfund, ncelld)	::	thetasnew
real(kind=dp),	intent(inout)			::	efermi
real(kind=dp),	intent(inout),		dimension (natypd)	::	erefldau
real(kind=dp),	intent(inout),		dimension (natypd)	::	ueff
real(kind=dp),	intent(inout),		dimension (natypd)	::	jeff
real(kind=dp),	intent(inout)			::	emin
real(kind=dp),	intent(inout)			::	emax
real(kind=dp),	intent(inout)			::	tk
real(kind=dp),	intent(inout),		dimension (irmind:irmd, lmpotd, nspotd)	::	vins
real(kind=dp),	intent(inout),		dimension (irmd, npotd)	::	visp
real(kind=dp),	intent(inout),		dimension (20, npotd)	::	ecore
real(kind=dp),	intent(inout),		dimension (irmd*krel+(1-krel), natypd)	::	drdirel
real(kind=dp),	intent(inout),		dimension (irmd*krel+(1-krel), natypd)	::	r2drdirel	$r^2 \frac{\partial}{\partial \mathbf{r}}\frac{\partial}{\partial i}$ (r**2 * drdi)
real(kind=dp),	intent(inout),		dimension (irmd*krel+(1-krel), natypd)	::	rmrel	radial mesh
real(kind=dp),	intent(inout),		dimension (irmd*krel+(1-krel), natypd)	::	vtrel	potential (spherical part)
real(kind=dp),	intent(inout),		dimension (irmd*krel+(1-krel), natypd)	::	btrel	magnetic field
real(kind=dp),	intent(inout),		dimension (mmaxd, mmaxd, nspind, natypd)	::	wldau
real(kind=dp),	intent(inout),		dimension (mmaxd, mmaxd, mmaxd, mmaxd, natypd)	::	uldau
complex(kind=dp),	intent(inout),		dimension (iemxd)	::	ez
complex(kind=dp),	intent(inout),		dimension (iemxd)	::	wez
complex(kind=dp),	intent(inout),		dimension (irmd, natypd)	::	phildau
character(len=80),	intent(inout)			::	tmpdir
character(len=10),	intent(inout)			::	solver
integer,	intent(in)			::	nspind
integer,	intent(in)			::	nspotd
integer,	intent(in)			::	irmind
integer,	intent(in)			::	lmaxd1
integer,	intent(in)			::	ncelld
integer,	intent(in)			::	irid
real(kind=dp),	intent(inout)			::	r_log
integer,	intent(out)			::	naez
integer,	intent(out)			::	natyp
integer,	intent(out)			::	lmax