|
◆ 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
-
| 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 473 del file georef_coord_class.F90.
473 SUBROUTINE georef_coord_array_getval(this, x, y, topo, proj) 474 TYPE(georef_coord_array), INTENT(in) :: this 475 DOUBLE PRECISION, OPTIONAL, ALLOCATABLE, INTENT(out) :: x(:) 476 DOUBLE PRECISION, OPTIONAL, ALLOCATABLE, INTENT(out) :: y(:) 478 INTEGER, OPTIONAL, INTENT(out) :: topo 479 TYPE(geo_proj), OPTIONAL, INTENT(out) :: proj 483 IF ( ALLOCATED(this%coord)) THEN 488 IF ( ALLOCATED(this%coord)) THEN 492 IF ( PRESENT(topo)) topo = this%topo 493 IF ( PRESENT(proj)) proj = this%proj 495 END SUBROUTINE georef_coord_array_getval 503 SUBROUTINE georef_coord_array_compute_bbox(this) 504 TYPE(georef_coord_array), INTENT(inout) :: this 506 IF ( ALLOCATED(this%coord)) THEN
|