Go to the source code of this file.
|
subroutine | zfpts (np, vrl, zfmt, zfir, fp) |
|
subroutine | zfip (ip) |
|
pure complex(8) function | poly4 (xa, ya, x) |
|
◆ poly4()
pure complex(8) function zfpts::poly4 |
( |
real(8), dimension(4), intent(in) |
xa, |
|
|
complex(8), dimension(4), intent(in) |
ya, |
|
|
real(8), intent(in) |
x |
|
) |
| |
|
private |
◆ zfip()
subroutine zfpts::zfip |
( |
integer, intent(in) |
ip | ) |
|
◆ zfpts()
subroutine zfpts |
( |
integer, intent(in) |
np, |
|
|
real(8), dimension(3,np), intent(in) |
vrl, |
|
|
complex(8), dimension(npcmtmax,natmtot), intent(in) |
zfmt, |
|
|
complex(8), dimension(ngtot), intent(in) |
zfir, |
|
|
complex(8), dimension(np), intent(out) |
fp |
|
) |
| |