Go to the source code of this file.
|
pure subroutine | rdiracint (sol, kpa, e, nr, r, vr, nn, g0, g1, f0, f1) |
|
pure real(8) function | poly3 (xa, ya, x) |
|
pure real(8) function | poly4i (xa, ya, x) |
|
◆ poly3()
pure real(8) function rdiracint::poly3 |
( |
real(8), dimension(3), intent(in) |
xa, |
|
|
real(8), dimension(3), intent(in) |
ya, |
|
|
real(8), intent(in) |
x |
|
) |
| |
|
private |
◆ poly4i()
pure real(8) function rdiracint::poly4i |
( |
real(8), dimension(4), intent(in) |
xa, |
|
|
real(8), dimension(4), intent(in) |
ya, |
|
|
real(8), intent(in) |
x |
|
) |
| |
|
private |
◆ rdiracint()
pure subroutine rdiracint |
( |
real(8), intent(in) |
sol, |
|
|
integer, intent(in) |
kpa, |
|
|
real(8), intent(in) |
e, |
|
|
integer, intent(in) |
nr, |
|
|
real(8), dimension(nr), intent(in) |
r, |
|
|
real(8), dimension(nr), intent(in) |
vr, |
|
|
integer, intent(out) |
nn, |
|
|
real(8), dimension(nr), intent(out) |
g0, |
|
|
real(8), dimension(nr), intent(out) |
g1, |
|
|
real(8), dimension(nr), intent(out) |
f0, |
|
|
real(8), dimension(nr), intent(out) |
f1 |
|
) |
| |