libsim  Versione 7.2.6

◆ arrayof_georef_coord_array_append()

integer function, private georef_coord_class::arrayof_georef_coord_array_append ( type(arrayof_georef_coord_array this,
type(georef_coord_array), intent(in)  content 
)
private

Quick method to append an element to the array.

The return value is the position at which the element has been appended.

Parametri
thisarray object to extend
[in]contentobject 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
528 ! import it in georef_coord object
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(:) ! automatic f95 allocation
533  ELSE IF (ALLOCATED(this%parts)) THEN
534  DEALLOCATE(this%parts)

Generated with Doxygen.