libsim Versione 7.2.4

◆ vol7d_merge()

subroutine vol7d_merge ( type(vol7d), intent(inout) this,
type(vol7d), intent(inout) that,
logical, intent(in), optional sort,
logical, intent(in), optional bestdata,
logical, intent(in), optional ltimesimple,
logical, intent(in), optional ltimerangesimple,
logical, intent(in), optional llevelsimple,
logical, intent(in), optional lanasimple )

Metodo per fondere 2 oggetti vol7d.

Il secondo volume viene accodato al primo e poi distrutto, si veda quindi la descrizione di vol7d_append. Se uno degli oggetti this o that sono vuoti non perde tempo inutile,

Parametri
[in,out]thisprimo oggetto in ingresso, alla fine conterrà il risultato della fusione
[in,out]thatsecondo oggetto in ingresso, alla fine sarà distrutto
[in]sortse fornito e uguale a .TRUE., i descrittori che supportano un ordinamento (operatori > e/o <) risulteranno ordinati in ordine crescente nell'oggetto finale
[in]bestdataif provided and .TRUE. in case of overlapping volumes keep valid data where available, or data from the second volume if both valid

Definizione alla linea 1704 del file vol7d_class.F90.

1706!! USE vol7d_class
1707!! TYPE(vol7d) :: vol1, vol2
1708!! CALL init(vol1)
1709!! CALL init(vol2)
1710!! ... ! riempio vol1
1711!! CALL vol7d_copy(vol1, vol2)
1712!! \endcode
1713!! nel primo caso, infatti, l'operatore di assegnazione copia solo i componenti
1714!! statici di \a vol1 nei corrispondenti elementi di \a vol2, mentre i componenti che
1715!! sono allocati dinamicamente (cioè quelli che in ::vol7d hanno l'attributo
1716!! \c POINTER, in pratica quasi tutti) non vengono duplicati, ma per essi vol2
1717!! conterrà un puntatore al corrispondente elemento a cui già punta vol1, e quindi
1718!! eventuali cambiamenti al contenuto di uno dei due oggetti influenzerà il
1719!! contenuto dell'altro; nel secondo caso, invece, vol1 e vol2 sono, dopo la
1720!! vol7d_copy, 2 istanze
1721!! completamente indipendenti, ma uguali tra loro per contenuto, della classe
1722!! vol7d, e quindi hanno vita indipendente.
1723SUBROUTINE vol7d_copy(this, that, sort, unique, miss, &
1724 lsort_time, lsort_timerange, lsort_level, &

Generated with Doxygen.