libsim Versione 7.1.11
|
◆ arrayof_georef_coord_array_packarray()
Method for packing the array object reducing at a minimum the memory occupation, without destroying its contents. The value of this::overalloc remains unchanged. After the call to the method, the object can continue to be used, extended and shortened as before. If the object is empty the array is allocated to zero length.
Definizione alla linea 668 del file georef_coord_class.F90. 669 IF (.NOT.georef_coord_inside_rectang(this, poly%bbox(1), poly%bbox(2))) RETURN
670ENDIF
671
672IF (ALLOCATED(poly%parts)) THEN
673 DO i = 1, SIZE(poly%parts)-1
674 inside = inside .NEQV. pointinpoly(this%x, this%y, &
675 poly%coord(poly%parts(i)+1:poly%parts(i+1))%x, &
676 poly%coord(poly%parts(i)+1:poly%parts(i+1))%y)
677 ENDDO
678 IF (SIZE(poly%parts) > 0) THEN ! safety check
679 inside = inside .NEQV. pointinpoly(this%x, this%y, &
680 poly%coord(poly%parts(i)+1:)%x, &
|