subroutine CRIT(IFACE, NVERT, V, Z, IPAN, IVTOT, TOLEULER, TOLVDIST, CRT)
@# KKRtags: VORONOI geometry radial-grid
THIS ROUTINE CALCULATES THE CRITICAL POINTS 'CRT' OF THE SHAPE
FUNCTIONS DUE TO THE FACE: Z(1)*X + Z(2)*Y + Z(3)*Z = 1
THE FACE IS ROTATED THROUGH THE APPROPRIATE EULER ANGLES TO BE
PERPENDICULAR TO THE Z-AXIS. A FURTHER SUBDIVISION OF THE CEN-
TRAL PYRAMID INTO ELEMENTARY TETRAHEDRA IS PERFORMED. THE NE-
CESSARY QUANTITIES FOR THE CALCULATION ARE STORED IN COMMON.
.. PARAMETER STATEMENTS ..
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
integer
|
|
|
|
:: |
IFACE |
|
|
integer
|
|
|
|
:: |
NVERT |
|
|
real(kind=8)
|
|
|
|
:: |
V(3,NVERTD) |
|
|
real(kind=8)
|
|
|
|
:: |
Z(3) |
|
|
integer
|
|
|
|
:: |
IPAN |
|
|
integer
|
|
|
|
:: |
IVTOT |
|
|
real(kind=8)
|
|
|
|
:: |
TOLEULER |
|
|
real(kind=8)
|
|
|
|
:: |
TOLVDIST |
|
|
real(kind=8)
|
|
|
|
:: |
CRT(NPAND) |
|
Common Blocks
| Type |
Attributes |
|
Name |
| Initial | |
|
real
|
|
:: |
PI |
|
|
|
|
real
|
|
:: |
ALPHA |
|
|
|
|
real
|
|
:: |
BETA |
|
|
|
|
real
|
|
:: |
GAMMA |
|
|
|
| Type |
Attributes |
|
Name |
| Initial | |
|
real
|
|
:: |
FA |
|
|
|
|
real
|
|
:: |
FB |
|
|
|
|
real
|
|
:: |
FD |
|
|
|
|
real
|
|
:: |
R0 |
|
|
|
|
real
|
|
:: |
RD |
|
|
|
|
integer
|
|
:: |
ISIGNU |
|
|
|
|
integer
|
|
:: |
NTT |
|
|
|
