subroutine EULER(Z, XX, IFACE, TOLEULER)
@# KKRtags: VORONOI geometry
GIVEN TWO DISTINCT POINTS (Z(1),Z(2),Z(3)) AND (XX(1),XX(2),XX(3))
THIS ROUTINE DEFINES A LOCAL COORDINATE SYSTEM WITH THE Z- AXIS
PASSING THROUGH (Z(1),Z(2),Z(3)) AND THE X- AXIS PARALLEL TO THE
VECTOR : (XX(1)-Z(1),XX(2)-Z(2),XX(3)-Z(3)).
THE EULER ANGLES ROTATING THIS LOCAL COORDINATE SYSTEM BACK TO THE
ORIGINAL FRAME OF REFERENCE ARE CALCULATED AND STORED IN COMMON.
.. PARAMETER STATEMENTS ..
Arguments
Type |
Intent | Optional | Attributes |
|
Name |
|
real(kind=8)
|
|
|
|
:: |
Z(3) |
|
real(kind=8)
|
|
|
|
:: |
XX(3) |
|
integer
|
|
|
|
:: |
IFACE |
|
real(kind=8)
|
|
|
|
:: |
TOLEULER |
|
Common Blocks
Type |
Attributes |
|
Name |
| Initial | |
real
|
|
:: |
PI |
|
|
|
real
|
|
:: |
ALPHA |
|
|
|
real
|
|
:: |
BETA |
|
|
|
real
|
|
:: |
GAMMA |
|
|
|