Driver routine for the convolution of potential with shapefunction.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer | :: | NRMAXD | ||||
integer | :: | LMAXD | ||||
integer | :: | NSPIN | ||||
integer | :: | NATOM | ||||
integer | :: | LMAXATOM(NATOM) | ||||
type(CELL_TYPE) | :: | cell(NATOM) | ||||
type(gauntshape_type) | :: | gauntshape(lmaxd) | ||||
type(shapefun_type) | :: | shapefun(NATOM) | ||||
real(kind=8) | :: | ZAT(NATOM) | ||||
real(kind=8) | :: | vons(nrmaxd,(2*lmaxd+1)**2,nspin,natom) |
thetas(iri,nfund,*), |