WRITESHAPE Subroutine
subroutine WRITESHAPE(NPAN, MESHN, NM, XRN, DRN, NFU, LMIFUN, THETAS, ISHAPE)
Uses
@# KKRtags: VORONOI input-output shape-functions Write out shape function into unit 15.
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer | :: | NPAN | ||||
| integer | :: | MESHN | ||||
| integer | :: | NM(NPAND) | ||||
| real(kind=8) | :: | XRN(IRID) | ||||
| real(kind=8) | :: | DRN(IRID) | ||||
| integer | :: | NFU | ||||
| integer | :: | LMIFUN(IBMAXD) | ||||
| real(kind=8) | :: | THETAS(IRID,IBMAXD) | ||||
| integer | :: | ISHAPE |