1 MODULE polygon 2 3 ! Maximum of the number of polygons that can be read 4 INTEGER, PARAMETER :: DIM_POLYGON = 10 5 ! Nnumber of polygons 6 INTEGER :: N_POLYGON 7 ! Maximum of the number of Vertices per polygon that can be read 8 INTEGER, PARAMETER :: DIM_VERTEX = 500 9 ! Vertex Coordinates X and Y 10 DOUBLE PRECISION, DIMENSION(DIM_POLYGON,DIM_VERTEX) :: X_VERTEX,Y_VERTEX 11 ! Sign of polygon interior 12 DOUBLE PRECISION, DIMENSION(DIM_POLYGON) :: POLY_SIGN 13 ! Number of vertices for each polygon 14 INTEGER, DIMENSION(DIM_POLYGON) :: N_VERTEX 15 ! Tolerance for polygone edge detection 16 DOUBLE PRECISION :: TOL_POLY 17 ! Boundary condition ID 18 INTEGER, DIMENSION(DIM_POLYGON,DIM_VERTEX) :: BC_ID_P 19 20 END MODULE polygon 21