polygon_mod.f

Go to the documentation of this file.

      MODULE polygon

!     Maximum of the number of polygons that can be read
      INTEGER, PARAMETER          :: dim_polygon = 10
!     Nnumber of polygons
      INTEGER                     :: n_polygon
!     Maximum of the number of Vertices per polygon that can be read
      INTEGER, PARAMETER          :: dim_vertex = 500
!     Vertex Coordinates X and Y
      DOUBLE PRECISION, DIMENSION(DIM_POLYGON,DIM_VERTEX) :: x_vertex,y_vertex
!     Sign of polygon interior
      DOUBLE PRECISION, DIMENSION(DIM_POLYGON) :: poly_sign
!     Number of vertices for each polygon
      INTEGER, DIMENSION(DIM_POLYGON) :: n_vertex
!     Tolerance for polygone edge detection
      DOUBLE PRECISION :: tol_poly
!     Boundary condition ID
      INTEGER, DIMENSION(DIM_POLYGON,DIM_VERTEX) :: bc_id_p

      END MODULE polygon