subroutine qshep_oct_m::qs3grd::qs3grd |
( |
real(real64) |
px, |
|
|
real(real64) |
py, |
|
|
real(real64) |
pz, |
|
|
integer(int64) |
n, |
|
|
real(real64), dimension(n) |
x, |
|
|
real(real64), dimension(n) |
y, |
|
|
real(real64), dimension(n) |
z, |
|
|
real(real64), dimension(n) |
f, |
|
|
integer(int64) |
nr, |
|
|
integer(int64), dimension(nr, nr, nr) |
lcell, |
|
|
integer(int64), dimension(n) |
lnext, |
|
|
real(real64), dimension(3) |
xyzmin, |
|
|
real(real64), dimension(3) |
xyzdel, |
|
|
real(real64) |
rmax, |
|
|
real(real64), dimension(n) |
rsq, |
|
|
real(real64), dimension(9, n) |
a, |
|
|
real(real64) |
q, |
|
|
real(real64) |
qx, |
|
|
real(real64) |
qy, |
|
|
real(real64) |
qz, |
|
|
integer(int64) |
ier |
|
) |
| |
|
private |