closepoly Subroutine

public subroutine closepoly()

NAME

closepoly(3f) - [M_pixel:POLYGONS] Terminates a polygon opened by
                makepoly(3f)
(LICENSE:PD)

SYNOPSIS

definition:

   subroutine closepoly()

DESCRIPTION

Terminates a polygon opened by MAKEPOLY(3f).

AUTHOR

John S. Urban

LICENSE

Public Domain

Arguments

None

Contents

Source Code

closepoly

Source Code

subroutine closepoly()

! ident_34="@(#) M_pixel makepoly(3f) terminate a polygon opened by makepoly(3f)"

   P_inpolygon=.false.
   call poly2(P_polyvertex-1,P_polypoints)
end subroutine closepoly