libsim Versione 7.1.11
|
◆ arrayof_georef_coord_array_delete()
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.
Definizione alla linea 602 del file georef_coord_class.F90. 607CALL shpclose(shphandle)
608! pack object to save memory
609CALL packarray(this)
610
611END SUBROUTINE arrayof_georef_coord_array_import
612
613
619SUBROUTINE arrayof_georef_coord_array_export(this, shpfile)
620TYPE(arrayof_georef_coord_array),INTENT(in) :: this
621CHARACTER(len=*),INTENT(in) :: shpfile !< name of shapefile (with or without extension)
622
623INTEGER :: i
624TYPE(shpfileobject) :: shphandle
625
626IF (this%arraysize > 0) THEN
627 shphandle = shpcreate(trim(shpfile), this%array(1)%topo)
628ELSE
629 shphandle = shpcreate(trim(shpfile), georef_coord_array_polygon)
630ENDIF
631IF (shpfileisnull(shphandle)) THEN
632 ! log here
633 CALL raise_error()
634 RETURN
635ENDIF
636
637DO i = 1, this%arraysize
638 CALL georef_coord_array_export(this%array(i), shphandle=shphandle, nshp=i-1)
639ENDDO
640
641CALL shpclose(shphandle)
642
643END SUBROUTINE arrayof_georef_coord_array_export
644#endif
645
657FUNCTION georef_coord_inside(this, poly) RESULT(inside)
658TYPE(georef_coord), INTENT(IN) :: this
|