CROSPR Subroutine

subroutine CROSPR(X, Y, Z)

Arguments

Type IntentOptional Attributes Name
real(kind=8) :: X(*)

@# KKRtags: VORONOI

 CROSP COMPUTES THE CROSS PRODUCT OF X AND Y RETURNING
 IT INTO Z.
real(kind=8) :: Y(*)

@# KKRtags: VORONOI

 CROSP COMPUTES THE CROSS PRODUCT OF X AND Y RETURNING
 IT INTO Z.
real(kind=8) :: Z(*)

@# KKRtags: VORONOI

 CROSP COMPUTES THE CROSS PRODUCT OF X AND Y RETURNING
 IT INTO Z.