libsim  Versione7.2.1

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

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
743  IF (ns > 0) THEN ! Alloco e leggo il mio oggetto
744  ALLOCATE(this(ns))
745  rewind(u)
746  DO i = 1, ns

Generated with Doxygen.