POLYHEDRON08 Subroutine

subroutine POLYHEDRON08(NPLANE, NVERTMAX, NFACED, TOLVDIST, TOLAREA, TOLHS, A3, B3, C3, D3, NFACE, NVERT, XVERT, YVERT, ZVERT)

Arguments

Type IntentOptional Attributes Name
integer :: NPLANE

@# KKRtags: VORONOI geometry Input:

integer :: NVERTMAX
integer :: NFACED
real(kind=8) :: TOLVDIST
real(kind=8) :: TOLAREA
real(kind=8) :: TOLHS
real(kind=8) :: A3(*)
real(kind=8) :: B3(*)
real(kind=8) :: C3(*)
real(kind=8) :: D3(*)
integer :: NFACE
integer :: NVERT(*)
real(kind=8) :: XVERT(NVERTMAX,NFACED)
real(kind=8) :: YVERT(NVERTMAX,NFACED)
real(kind=8) :: ZVERT(NVERTMAX,NFACED)