libsim Versione 7.1.11

◆ geo_coord_vect_write_unit()

subroutine geo_coord_vect_write_unit ( type(geo_coord), dimension(:), intent(in)  this,
integer, intent(in)  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.

Parametri
[in]thisoggetto da scrivere
[in]unitunità su cui scrivere

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

Generated with Doxygen.