|
◆ arrayof_georef_coord_array_insert_array()
subroutine, private georef_coord_class::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 |
|
) |
| |
|
private |
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
-
| this | array object to extend |
[in] | content | object of TYPE TYPE(georef_coord_array) to insert, if not provided, space is reserved but not initialized |
[in] | nelem | number of elements to add, mutually exclusive with the previous parameter, if both are not provided, a single element is added without initialization |
[in] | pos | position 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 487 IF ( PRESENT(topo)) topo = this%topo 488 IF ( PRESENT(proj)) proj = this%proj 490 END SUBROUTINE georef_coord_array_getval 498 SUBROUTINE georef_coord_array_compute_bbox(this) 499 TYPE(georef_coord_array), INTENT(inout) :: this 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. 509 END SUBROUTINE georef_coord_array_compute_bbox 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
|