CUTPLANE Subroutine
subroutine CUTPLANE(npolypoi, npolyplan, polypoints, poi2poi, poi2plane, polyplaneA3, polyplaneB3, polyplaneC3, polyplaneD3, a3, b3, c3, d3, nedge, poiofplane)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer | :: | npolypoi | ||||
| integer | :: | npolyplan | ||||
| real(kind=8) | :: | polypoints(3,npoimax) | ||||
| integer | :: | poi2poi(0:nneimax,npoimax) | ||||
| integer | :: | poi2plane(0:nplanemax,npoimax) | ||||
| real(kind=8) | :: | polyplaneA3(nplanemax) | ||||
| real(kind=8) | :: | polyplaneB3(nplanemax) | ||||
| real(kind=8) | :: | polyplaneC3(nplanemax) | ||||
| real(kind=8) | :: | polyplaneD3(nplanemax) | ||||
| real(kind=8) | :: | a3 | ||||
| real(kind=8) | :: | b3 | ||||
| real(kind=8) | :: | c3 | ||||
| real(kind=8) | :: | d3 | ||||
| integer | :: | nedge(*) | ||||
| integer | :: | poiofplane(nplanemax,npoimax) |