libsim Versione 7.1.11
|
◆ geo_coord_vect_write_unit()
Scrive su un'unità di file il contenuto dell'oggetto this. Il record scritto potrà successivamente essere letto con la ::read_unit. Il metodo controlla se il file è aperto per un I/O formattato o non formattato e fa la cosa giusta.
Definizione alla linea 660 del file geo_coord_class.F90. 661#endif
662INTEGER,OPTIONAL,INTENT(IN) :: nshp
663
664INTEGER :: i, lnshp
665#ifdef HAVE_SHAPELIB
666TYPE(shpobject) :: shpobj
667#endif
668
669IF (PRESENT(unitsim)) THEN
670 IF (this%vsize > 0) THEN
671 ! Scrivo l'intestazione
672 WRITE(unitsim,*)SIZE(this%ll,1),-1.,5000.,-0.1,1.1,'Area'
673 ! Scrivo il poligono
674 WRITE(unitsim,*)(this%ll(i,1:2), i=1,this%vsize)
675 ELSE
|