get_params_2 Subroutine
- Philipp Ruessmann
-
- communication, KKRhost
- 234 statements
- Source File
public subroutine get_params_2(t_params, krel, natyp, ipand, npotd, natomimpd, lmxspd, nfund, lmpot, ncelld, irmd, nembd1, nembd, irmind, nsra, ins, nspin, ipan, ircut, lcore, ncore, lmax, ntcell, lpot, nlbasis, nrbasis, nright, nleft, natomimp, atomimp, imix, qbound, fcm, itdbry, irns, kpre, kshape, kte, kvmad, kxc, icc, ishift, ixipol, kforce, ifunm, lmsp, imt, irc, irmin, irws, llmsp, ititle, nfu, hostimp, ilm_map, imaxsh, ielast, npol, npnt1, npnt2, npnt3, itscf, scfsteps, iesemicore, kaoez, iqat, noq, lly, npolsemi, n1semi, n2semi, n3semi, zrel, jwsrel, irshift, mixing, lambda_xc, a, b, thetas, drdi, r, zat, rmt, rmtnew, rws, emin, emax, tk, alat, efold, chrgold, cmomhost, conc, gsh, ebotsemi, emusemi, tksemi, vins, visp, rmrel, drdirel, vbc, fsold, r2drdirel, ecore, ez, wez, txc, linterface, lrhosym, ngshd, naez, irid, nspotd, iemxd, special_straight_mixing)
Uses
-
- mod_runoptions
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 main2
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(type_params), | intent(in) | :: | t_params | |||
| integer, | intent(in) | :: | krel | |||
| integer, | intent(inout) | :: | natyp | |||
| integer, | intent(in) | :: | ipand | |||
| integer, | intent(in) | :: | npotd | |||
| integer, | intent(in) | :: | natomimpd | |||
| integer, | intent(in) | :: | lmxspd | |||
| integer, | intent(in) | :: | nfund | |||
| integer, | intent(inout) | :: | lmpot | |||
| integer, | intent(in) | :: | ncelld | |||
| integer, | intent(in) | :: | irmd | |||
| integer, | intent(in) | :: | nembd1 | |||
| integer, | intent(in) | :: | nembd | |||
| integer, | intent(in) | :: | irmind | |||
| integer, | intent(inout) | :: | nsra | |||
| integer, | intent(inout) | :: | ins | |||
| integer, | intent(inout) | :: | nspin | |||
| integer, | intent(inout), | dimension (natyp) | :: | ipan | ||
| integer, | intent(inout), | dimension (0:ipand, natyp) | :: | ircut | ||
| integer, | intent(inout), | dimension (20, npotd) | :: | lcore | ||
| integer, | intent(inout), | dimension (npotd) | :: | ncore | ||
| integer, | intent(inout) | :: | lmax | |||
| integer, | intent(inout), | dimension (natyp) | :: | ntcell | ||
| integer, | intent(inout) | :: | lpot | |||
| integer, | intent(inout) | :: | nlbasis | |||
| integer, | intent(inout) | :: | nrbasis | |||
| integer, | intent(inout) | :: | nright | |||
| integer, | intent(inout) | :: | nleft | |||
| integer, | intent(inout) | :: | natomimp | |||
| integer, | intent(inout), | dimension (natomimpd) | :: | atomimp | ||
| integer, | intent(inout) | :: | imix | |||
| real(kind=dp), | intent(inout) | :: | qbound | |||
| real(kind=dp), | intent(inout) | :: | fcm | |||
| integer, | intent(inout) | :: | itdbry | |||
| integer, | intent(inout), | dimension (natyp) | :: | irns | ||
| integer, | intent(inout) | :: | kpre | |||
| integer, | intent(inout) | :: | kshape | |||
| integer, | intent(inout) | :: | kte | |||
| integer, | intent(inout) | :: | kvmad | |||
| integer, | intent(inout) | :: | kxc | |||
| integer, | intent(inout) | :: | icc | |||
| integer, | intent(inout) | :: | ishift | |||
| integer, | intent(inout), | dimension (natyp) | :: | ixipol | ||
| integer, | intent(inout) | :: | kforce | |||
| integer, | intent(inout), | dimension (natyp, lmxspd) | :: | ifunm | ||
| integer, | intent(inout), | dimension (natyp, lmxspd) | :: | lmsp | ||
| integer, | intent(inout), | dimension (natyp) | :: | imt | ||
| integer, | intent(inout), | dimension (natyp) | :: | irc | ||
| integer, | intent(inout), | dimension (natyp) | :: | irmin | ||
| integer, | intent(inout), | dimension (natyp) | :: | irws | ||
| integer, | intent(inout), | dimension (natyp, nfund) | :: | llmsp | ||
| integer, | intent(inout), | dimension (20, npotd) | :: | ititle | ||
| integer, | intent(inout), | dimension (natyp) | :: | nfu | ||
| integer, | intent(inout), | dimension (0:natyp) | :: | hostimp | ||
| integer, | intent(inout), | dimension (ngshd, 3) | :: | ilm_map | ||
| integer, | intent(inout), | dimension (0:lmpot) | :: | imaxsh | ||
| integer, | intent(inout) | :: | ielast | |||
| integer, | intent(inout) | :: | npol | |||
| integer, | intent(inout) | :: | npnt1 | |||
| integer, | intent(inout) | :: | npnt2 | |||
| integer, | intent(inout) | :: | npnt3 | |||
| integer, | intent(inout) | :: | itscf | |||
| integer, | intent(inout) | :: | scfsteps | |||
| integer, | intent(inout) | :: | iesemicore | |||
| integer, | intent(inout), | dimension (natyp, naez+nembd) | :: | kaoez | ||
| integer, | intent(inout), | dimension (natyp) | :: | iqat | ||
| integer, | intent(inout), | dimension (naez) | :: | noq | ||
| integer, | intent(inout) | :: | lly | |||
| integer, | intent(inout) | :: | npolsemi | |||
| integer, | intent(inout) | :: | n1semi | |||
| integer, | intent(inout) | :: | n2semi | |||
| integer, | intent(inout) | :: | n3semi | |||
| integer, | intent(inout), | dimension (natyp) | :: | zrel | ||
| integer, | intent(inout), | dimension (natyp) | :: | jwsrel | ||
| integer, | intent(inout), | dimension (natyp) | :: | irshift | ||
| real(kind=dp), | intent(inout) | :: | mixing | |||
| real(kind=dp), | intent(inout), | dimension (natyp) | :: | lambda_xc | ||
| real(kind=dp), | intent(inout), | dimension (natyp) | :: | a | ||
| real(kind=dp), | intent(inout), | dimension (natyp) | :: | b | ||
| real(kind=dp), | intent(inout), | dimension (irid, nfund, ncelld) | :: | thetas | ||
| real(kind=dp), | intent(inout), | dimension (irmd, natyp) | :: | drdi | ||
| real(kind=dp), | intent(inout), | dimension (irmd, natyp) | :: | r | ||
| real(kind=dp), | intent(inout), | dimension (natyp) | :: | zat | ||
| real(kind=dp), | intent(inout), | dimension (natyp) | :: | rmt | ||
| real(kind=dp), | intent(inout), | dimension (natyp) | :: | rmtnew | ||
| real(kind=dp), | intent(inout), | dimension (natyp) | :: | rws | ||
| real(kind=dp), | intent(inout) | :: | emin | |||
| real(kind=dp), | intent(inout) | :: | emax | |||
| real(kind=dp), | intent(inout) | :: | tk | |||
| real(kind=dp), | intent(inout) | :: | alat | |||
| real(kind=dp), | intent(inout) | :: | efold | |||
| real(kind=dp), | intent(inout) | :: | chrgold | |||
| real(kind=dp), | intent(inout), | dimension (lmpot, nembd1) | :: | cmomhost | ||
| real(kind=dp), | intent(inout), | dimension (natyp) | :: | conc | ||
| real(kind=dp), | intent(inout), | dimension (ngshd) | :: | gsh | ||
| real(kind=dp), | intent(inout) | :: | ebotsemi | |||
| real(kind=dp), | intent(inout) | :: | emusemi | |||
| real(kind=dp), | intent(inout) | :: | tksemi | |||
| real(kind=dp), | intent(inout), | dimension (irmind:irmd, lmpot, nspotd) | :: | vins | ||
| real(kind=dp), | intent(inout), | dimension (irmd, npotd) | :: | visp | ||
| real(kind=dp), | intent(inout), | dimension (irmd*krel+(1-krel), natyp) | :: | rmrel | ||
| real(kind=dp), | intent(inout), | dimension (irmd*krel+(1-krel), natyp) | :: | drdirel | ||
| real(kind=dp), | intent(inout), | dimension (2) | :: | vbc | ||
| real(kind=dp), | intent(inout) | :: | fsold | |||
| real(kind=dp), | intent(inout), | dimension (irmd*krel+(1-krel), natyp) | :: | r2drdirel | ||
| real(kind=dp), | intent(inout), | dimension (20, npotd) | :: | ecore | ||
| complex(kind=dp), | intent(inout), | dimension (iemxd) | :: | ez | ||
| complex(kind=dp), | intent(inout), | dimension (iemxd) | :: | wez | ||
| character(len=124), | intent(inout), | dimension (6) | :: | txc | ||
| logical, | intent(inout) | :: | linterface | |||
| logical, | intent(inout) | :: | lrhosym | |||
| integer, | intent(in) | :: | ngshd | |||
| integer, | intent(inout) | :: | naez | |||
| integer, | intent(in) | :: | irid | |||
| integer, | intent(in) | :: | nspotd | |||
| integer, | intent(in) | :: | iemxd | |||
| integer, | intent(inout) | :: | special_straight_mixing |