2
c General operating parameters
4
character ispp*1, icorr*2, nameat*2
5
character irel*3, nicore*4
6
double precision rsh, zel, znuc, zsh
8
integer indd(5), indu(5)
9
double precision rc(5), rc_input(5), cfac, rcfac,
11
integer scheme, ncore, job, ifcore
12
logical normal, polarized, relativistic, is_gga
14
common /param/ scheme, job, ifcore, ncore,
15
& rsh, zel, znuc, zsh, rc, rc_input, cfac, rcfac,
16
& logder_radius, indu, indd
17
common /par_char/ nameat, ispp, icorr, irel, nicore
18
common /par_log/ normal, polarized, relativistic, is_gga
19
save /param/, /par_char/, /par_log/