defcube Subroutine
subroutine defcube(alfa, npoints, nplanes, polypoints, poi2poi, poi2plane, polyplaneA3, polyplaneB3, polyplaneC3, polyplaneD3)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=8) | :: | alfa | ||||
| integer | :: | npoints | ||||
| integer | :: | nplanes | ||||
| 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) |