libsim  Versione 7.2.4

◆ geo_coord_vect_write_unit()

subroutine geo_coord_class::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 664 del file geo_coord_class.F90.

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
676  CALL raise_warning('oggetto geo_coordvect vuoto, non scrivo niente in '// &
677  trim(to_char(unitsim)))
678  ENDIF
679 #ifdef HAVE_SHAPELIB

Generated with Doxygen.