mod_WFTSCA Module
- R. Zeller
-
- 45 statements
- Source File
Get wavefunctions of same magnitude by scaling with efac
Subroutines
public subroutine WFTSCA(DRDI, EFAC, PZ, QZ, FZ, SZ, NSRA, PZLM, QZLM, PZEKDR, QZEKDR, EK, LOFLM, IRMIND, IRMD, LMAXATOM, LMMAXATOM)
- Author
- R. Zeller
- License
- Category
- numerical-tools, single-site, KKRhost
G e t
w a v e f u n c t i o n s
o f
s a m e
m a g n i t u d e
b y
s c a l i n g
w i t h
e
f
a
c
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| double precision | :: | DRDI(:) | ||||
| double complex | :: | EFAC(LMMAXATOM) | ||||
| double complex | :: | PZ(IRMD,0:LMAXATOM) | ||||
| double complex | :: | QZ(IRMD,0:LMAXATOM) | ||||
| double complex | :: | FZ(IRMD,0:LMAXATOM) | ||||
| double complex | :: | SZ(IRMD,0:LMAXATOM) | ||||
| integer | :: | NSRA | ||||
| double complex | :: | PZLM(LMMAXATOM,IRMIND:IRMD,2) | ||||
| double complex | :: | QZLM(LMMAXATOM,IRMIND:IRMD,2) | ||||
| double complex | :: | PZEKDR(LMMAXATOM,IRMIND:IRMD,2) | ||||
| double complex | :: | QZEKDR(LMMAXATOM,IRMIND:IRMD,2) | ||||
| double complex | :: | EK | ||||
| integer | :: | LOFLM(:) | ||||
| integer | :: | IRMIND | ||||
| integer | :: | IRMD | ||||
| integer | :: | LMAXATOM | ||||
| integer | :: | LMMAXATOM |