| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| type(vector) | :: | pt(0:3) |
program volatile_doctest
use vecfor_RPP
type(vector) :: pt(0:3)
pt(0) = -1 * ey
pt(1) = 1 * ex
pt(2) = 1 * ey
pt(3) = -1 * ex
print "(L1)", pt(0)%is_concyclic(pt1=pt(1), pt2=pt(2), pt3=pt(3))
endprogram volatile_doctest