libsim  Versione6.3.0

◆ 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 680 del file geo_coord_class.F90.

680 ELSE IF (PRESENT(shphandle)) THEN
681  IF (PRESENT(nshp)) THEN
682  lnshp = nshp
683  ELSE
684  lnshp = -1 ! -1 = append
685  ENDIF
686  ! Creo l'oggetto shape inizializzandolo con il mio oggetto
687  shpobj = shpcreatesimpleobject(this%vtype, this%vsize, &
688  REAL(this%ll(1:this%vsize,1),kind=fp_d), &
689  REAL(this%ll(1:this%vsize,2),kind=fp_d))
690  IF (.NOT.shpisnull(shpobj)) THEN
691  ! Lo scrivo nello shapefile
692  i=shpwriteobject(shphandle, lnshp, shpobj)
693  CALL shpdestroyobject(shpobj)
694  ENDIF

Generated with Doxygen.