|
◆ 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 472 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
|