libsim  Versione 7.2.1

◆ arrayof_georef_coord_array_packarray()

subroutine arrayof_georef_coord_array_packarray ( type(arrayof_georef_coord_array this)

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.

Parametri
thisobject to be packed

Definizione alla linea 672 del file georef_coord_class.F90.

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, &
681  poly%coord(poly%parts(i)+1:)%y)
682  ENDIF
683 
684 ELSE

Generated with Doxygen.