libsim  Versione 7.2.6

◆ arrayof_georef_coord_array_delete()

subroutine, private georef_coord_class::arrayof_georef_coord_array_delete ( type(arrayof_georef_coord_array this,
logical, intent(in), optional  nodestroy,
logical, intent(in), optional  nodealloc 
)
private

Destructor for finalizing an array object.

If defined, calls the destructor for every element of the array object; finally it deallocates all the space occupied.

Parametri
thisarray object to be destroyed
thisif provided and .TRUE. , the destructor possibily defined for the TYPE(georef_coord_array) is not called for every deleted object, may be useful if the objects to be deleted have been copied to another instance of arrayof_georef_coord_array and continue their life there
[in]nodeallocif provided and .TRUE. , the space reserved for the array is not deallocated, thus the values are retained, while the array pointer is nullified, this means that the caller must have previously assigned the pointer contents thisarray to another pointer to prevent memory leaks

Definizione alla linea 606 del file georef_coord_class.F90.

611 END SUBROUTINE arrayof_georef_coord_array_import
612 
613 
619 SUBROUTINE arrayof_georef_coord_array_export(this, shpfile)
620 TYPE(arrayof_georef_coord_array),INTENT(in) :: this
621 CHARACTER(len=*),INTENT(in) :: shpfile
622 
623 INTEGER :: i
624 TYPE(shpfileobject) :: shphandle
625 
626 IF (this%arraysize > 0) THEN
627  shphandle = shpcreate(trim(shpfile), this%array(1)%topo)
628 ELSE
629  shphandle = shpcreate(trim(shpfile), georef_coord_array_polygon)
630 ENDIF
631 IF (shpfileisnull(shphandle)) THEN
632  ! log here
633  CALL raise_error()
634  RETURN
635 ENDIF
636 
637 DO i = 1, this%arraysize
638  CALL georef_coord_array_export(this%array(i), shphandle=shphandle, nshp=i-1)
639 ENDDO
640 
641 CALL shpclose(shphandle)
642 
643 END SUBROUTINE arrayof_georef_coord_array_export
644 #endif
645 
657 FUNCTION georef_coord_inside(this, poly) RESULT(inside)
658 TYPE(georef_coord), INTENT(IN) :: this
659 TYPE(georef_coord_array), INTENT(IN) :: poly
660 LOGICAL :: inside
661 
662 INTEGER :: i

Generated with Doxygen.