libsim  Versione 7.1.6

◆ arrayof_georef_coord_array_delete()

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

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 602 del file georef_coord_class.F90.

607 CALL shpclose(shphandle)
608 ! pack object to save memory
609 CALL packarray(this)
610 
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 !< name of shapefile (with or without extension)
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

Generated with Doxygen.