libsim  Versione 7.1.9

◆ 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
662 INTEGER,OPTIONAL,INTENT(IN) :: nshp
663 
664 INTEGER :: i, lnshp
665 #ifdef HAVE_SHAPELIB
666 TYPE(shpobject) :: shpobj
667 #endif
668 
669 IF (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.