libsim  Versione 7.1.7

◆ geo_coordvect_init()

recursive subroutine geo_coordvect_init ( type(geo_coordvect), intent(out)  this,
real(kind=fp_geo), dimension(:), intent(in), optional  lon,
real(kind=fp_geo), dimension(:), intent(in), optional  lat 
)

Costruisce un oggetto geo_coordvect con i parametri opzionali forniti.

Se sono presenti lon e lat, inizializza le coordinate geografiche ignorando utme e utmn, mentre se sono specificati utme e utmn succede il contrario; non è possibile specificare le coordinate in entrambi i sistemi, usare eventualmente to_geo. Se non viene passato nessun parametro opzionale l'oggetto è inizializzato a valore mancante. Il numero di punti dell'oggetto finale sarà uguale all'estensione del più breve vettore della coppia fornita.

Parametri
[out]thisoggetto da inizializzare
[in]lonlongitudine geografica
[in]latlatitudine geografica

Definizione alla linea 727 del file geo_coord_class.F90.

728 TYPE(shpfileobject) :: shphandle
729 #endif
730 
731 NULLIFY(this)
732 
733 IF (PRESENT(shpfilesim)) THEN
734  u = getunit()
735  OPEN(u, file=shpfilesim, status='old', err=30)
736  ns = 0 ! Conto il numero di shape contenute
737  DO WHILE(.true.)
738  READ(u,*,END=10,ERR=20)lvsize,inu,inu,inu,inu,lname
739  READ(u,*,END=20,ERR=20)(inu,inu, i=1,lvsize)
740  ns = ns + 1
741  ENDDO
742 10 CONTINUE

Generated with Doxygen.