findvertex Subroutine
subroutine findvertex(NPLANE, A3, B3, C3, D3, NEDGEMAX, NFACE, NEDGE, XEDGE, YEDGE, ZEDGE, NVERTEX)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer | :: | NPLANE | ||||
| real(kind=8) | :: | A3(*) | ||||
| real(kind=8) | :: | B3(*) | ||||
| real(kind=8) | :: | C3(*) | ||||
| real(kind=8) | :: | D3(*) | ||||
| integer | :: | NEDGEMAX | ||||
| integer | :: | NFACE | ||||
| integer | :: | NEDGE(*) | ||||
| real(kind=8) | :: | XEDGE(NEDGEMAX,*) | ||||
| real(kind=8) | :: | YEDGE(NEDGEMAX,*) | ||||
| real(kind=8) | :: | ZEDGE(NEDGEMAX,*) | ||||
| integer | :: | NVERTEX |