subroutine PINTG(X1, X2, DLT, S, LMAX, ISI, ARG, FD, ITYPE)
@# KKRtags: VORONOI numerical-tools radial-grid
THIS ROUTINE ACCOMPLISHES THE FI-INTEGRATION OF REAL SPHERICAL
HARMONICS BY THE REPEATED SIMPSON'S METHOD , OR ANALYTICALLY ACCOR
DING TO THE VALUE OF ITYPE. THE OBTAINED RESULTS HAVE TO BE MULTI-
PLIED BY THE APPROPRIATE EXPANSION COEFFICIENTS.
.. PARAMETER STATEMENTS ..
Arguments
Type |
Intent | Optional | Attributes |
|
Name |
|
real(kind=8)
|
|
|
|
:: |
X1 |
|
real(kind=8)
|
|
|
|
:: |
X2 |
|
real(kind=8)
|
|
|
|
:: |
DLT |
|
real(kind=8)
|
|
|
|
:: |
S(-LMAXD1:LMAXD1,0:LMAXD1) |
|
integer
|
|
|
|
:: |
LMAX |
|
integer
|
|
|
|
:: |
ISI |
|
real(kind=8)
|
|
|
|
:: |
ARG |
|
real(kind=8)
|
|
|
|
:: |
FD |
|
integer
|
|
|
|
:: |
ITYPE |
|