Quick method to append an element to the array.
The return value is the position at which the element has been appended.
- Parametri
-
| this | array object to extend |
[in] | content | object of TYPE TYPE(georef_coord_array) to append |
Definizione alla linea 525 del file georef_coord_class.F90.
526 shpobj = shpreadobject(shphandle, nshp)
527 IF (.NOT.shpisnull(shpobj))
THEN
529 this = georef_coord_array_new(x=dble(shpobj%padfx), y=dble(shpobj%padfy), &
530 topo=shpobj%nshptype)
531 IF (shpobj%nparts > 1 .AND.
ASSOCIATED(shpobj%panpartstart))
THEN
532 this%parts = shpobj%panpartstart(:)
533 ELSE IF (
ALLOCATED(this%parts))
THEN
534 DEALLOCATE(this%parts)