libsim  Versione6.3.0

◆ arrayof_georef_coord_array_insert_array()

subroutine arrayof_georef_coord_array_insert_array ( type(arrayof_georef_coord_array this,
type(georef_coord_array), dimension(:), intent(in), optional  content,
integer, intent(in), optional  nelem,
integer, intent(in), optional  pos 
)

Method for inserting a number of elements of the array at a desired position.

If necessary, the array is reallocated to accomodate the new elements.

Parametri
thisarray object to extend
[in]contentobject of TYPE TYPE(georef_coord_array) to insert, if not provided, space is reserved but not initialized
[in]nelemnumber of elements to add, mutually exclusive with the previous parameter, if both are not provided, a single element is added without initialization
[in]posposition where to insert, if it is out of range, it is clipped, if it is not provided, the object is appended

Definizione alla linea 483 del file georef_coord_class.F90.

483  IF (ALLOCATED(this%coord)) THEN
484  y = this%coord%y
485  ENDIF
486 ENDIF
487 IF (PRESENT(topo)) topo = this%topo
488 IF (PRESENT(proj)) proj = this%proj ! warning proj has no missing value yet
489 
490 END SUBROUTINE georef_coord_array_getval
491 
492 
498 SUBROUTINE georef_coord_array_compute_bbox(this)
499 TYPE(georef_coord_array),INTENT(inout) :: this
500 
501 IF (ALLOCATED(this%coord)) THEN
502  this%bbox(1)%x = minval(this%coord(:)%x)
503  this%bbox(1)%y = minval(this%coord(:)%y)
504  this%bbox(2)%x = maxval(this%coord(:)%x)
505  this%bbox(2)%y = maxval(this%coord(:)%y)
506  this%bbox_updated = .true.
507 ENDIF
508 
509 END SUBROUTINE georef_coord_array_compute_bbox
510 
511 #ifdef HAVE_SHAPELIB
512 ! internal method for importing a single shape
513 SUBROUTINE georef_coord_array_import(this, shphandle, nshp)
514 TYPE(georef_coord_array),INTENT(OUT) :: this
515 TYPE(shpfileobject),INTENT(INOUT) :: shphandle
516 INTEGER,INTENT(IN) :: nshp

Generated with Doxygen.