FINDPANELS Subroutine
subroutine FINDPANELS(NFACE, A3, B3, C3, D3, NVERT, XVERT, YVERT, ZVERT, TOLEULER, TOLVDIST, NPAN, CRT)
@# KKRtags: VORONOI geometry radial-grid This subroutine finds the critical points and panels for a suitable radial mesh for a Voronoi polyhedron. It calls the same subroutine CRIT that is called by subr. shape.
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer | :: | NFACE | ||||
| real(kind=8) | :: | A3(NFACED) | ||||
| real(kind=8) | :: | B3(NFACED) | ||||
| real(kind=8) | :: | C3(NFACED) | ||||
| real(kind=8) | :: | D3(NFACED) | ||||
| integer | :: | NVERT(NFACED) | ||||
| real(kind=8) | :: | XVERT(NVERTD,NFACED) | ||||
| real(kind=8) | :: | YVERT(NVERTD,NFACED) | ||||
| real(kind=8) | :: | ZVERT(NVERTD,NFACED) | ||||
| real(kind=8) | :: | TOLEULER | ||||
| real(kind=8) | :: | TOLVDIST | ||||
| integer | :: | NPAN | ||||
| real(kind=8) | :: | CRT(NPAND) |