EQUIVWS Function

function EQUIVWS(NFACE1, A1, B1, C1, D1, NFACE2, A2, B2, C2, D2)

Arguments

Type IntentOptional Attributes Name
integer :: NFACE1

@# KKRtags: VORONOI geometry Input:

real(kind=8) :: A1(*)
real(kind=8) :: B1(*)
real(kind=8) :: C1(*)
real(kind=8) :: D1(*)
integer :: NFACE2

@# KKRtags: VORONOI geometry Input:

real(kind=8) :: A2(*)
real(kind=8) :: B2(*)
real(kind=8) :: C2(*)
real(kind=8) :: D2(*)

Return Value logical