ERASEPOINTS Subroutine
subroutine ERASEPOINTS(npolypoi, keepit, poi2plane, poi2poi, polypoints)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer | :: | npolypoi | ||||
| logical | :: | keepit(npoimax) | ||||
| integer | :: | poi2plane(0:nplanemax,npoimax) | ||||
| integer | :: | poi2poi(0:nneimax,npoimax) | ||||
| real(kind=8) | :: | polypoints(3,npoimax) |