PERP Subroutine

subroutine PERP(R0, R1, R2, RD, TOLVDIST, INSIDE)

Arguments

Type IntentOptional Attributes Name
real(kind=8) :: R0(3)

@# KKRtags: VORONOI geometry

 GIVEN  TWO  DISTINCT  POINTS   R1 , R2, THIS  ROUTINE CALCULATES
 THE COORDINATES  OF THE FOOT OF  THE  PERPENDICULAR FROM A POINT
 R0 TO THE LINE JOINING R1   AND  R2. THE LOGICAL VARIABLE INSIDE
 GIVES THE ADDITIONAL INFORMATION WHETHER THE FOOT OF THE PERPEN-
 DICULAR LIES WITHIN THE SEGMENT OR NOT.

 .. ARRAY ARGUMENTS ..
real(kind=8) :: R1(3)

@# KKRtags: VORONOI geometry

 GIVEN  TWO  DISTINCT  POINTS   R1 , R2, THIS  ROUTINE CALCULATES
 THE COORDINATES  OF THE FOOT OF  THE  PERPENDICULAR FROM A POINT
 R0 TO THE LINE JOINING R1   AND  R2. THE LOGICAL VARIABLE INSIDE
 GIVES THE ADDITIONAL INFORMATION WHETHER THE FOOT OF THE PERPEN-
 DICULAR LIES WITHIN THE SEGMENT OR NOT.

 .. ARRAY ARGUMENTS ..
real(kind=8) :: R2(3)

@# KKRtags: VORONOI geometry

 GIVEN  TWO  DISTINCT  POINTS   R1 , R2, THIS  ROUTINE CALCULATES
 THE COORDINATES  OF THE FOOT OF  THE  PERPENDICULAR FROM A POINT
 R0 TO THE LINE JOINING R1   AND  R2. THE LOGICAL VARIABLE INSIDE
 GIVES THE ADDITIONAL INFORMATION WHETHER THE FOOT OF THE PERPEN-
 DICULAR LIES WITHIN THE SEGMENT OR NOT.

 .. ARRAY ARGUMENTS ..
real(kind=8) :: RD(3)

@# KKRtags: VORONOI geometry

 GIVEN  TWO  DISTINCT  POINTS   R1 , R2, THIS  ROUTINE CALCULATES
 THE COORDINATES  OF THE FOOT OF  THE  PERPENDICULAR FROM A POINT
 R0 TO THE LINE JOINING R1   AND  R2. THE LOGICAL VARIABLE INSIDE
 GIVES THE ADDITIONAL INFORMATION WHETHER THE FOOT OF THE PERPEN-
 DICULAR LIES WITHIN THE SEGMENT OR NOT.

 .. ARRAY ARGUMENTS ..
real(kind=8) :: TOLVDIST
logical :: INSIDE