libsim  Versione7.2.6

◆ vol7d_get_voldatic()

subroutine vol7d_class::vol7d_get_voldatic ( type(vol7d), intent(in)  this,
integer, dimension(:), intent(in)  dimlist,
character(len=vol7d_cdatalen), dimension(:), optional, pointer  vol1dp,
character(len=vol7d_cdatalen), dimension(:,:), optional, pointer  vol2dp,
character(len=vol7d_cdatalen), dimension(:,:,:), optional, pointer  vol3dp,
character(len=vol7d_cdatalen), dimension(:,:,:,:), optional, pointer  vol4dp,
character(len=vol7d_cdatalen), dimension(:,:,:,:,:), optional, pointer  vol5dp,
character(len=vol7d_cdatalen), dimension(:,:,:,:,:,:), optional, pointer  vol6dp 
)

Crea una vista a dimensione ridotta di un volume di dati di tipo CHARACTER(len=vol7d_cdatalen).

È necessario fornire uno solo dei parametri opzionali vol*dp corrispondente al numero di dimensioni richieste. L'ordine delle dimensioni nella vista è quello prefissato in ::vol7d indipendentemente dall'ordine delle dimensioni fornito in dimlist. In caso di fallimento, in particolare se dimlist non contiene tutte le dimensioni non degeneri del volume richiesto oppure se una delle dimensioni è =0, il puntatore vol*dp è restituito in uno stato disassociato, per cui è opportuno controllare sempre in uscita, lo stato del puntatore per evitare che il programma abortisca con un errore di sistema, ad esempio:

CHARACTER(len=vol7d_cdatalen), POINTER :: vol2d(:,:)
...
CALL vol7d_get_voldatic(v7d1, (/vol7d_ana_d, vol7d_time_d/), vol2d)
IF (ASSOCIATED(vol2d)) THEN
print*,vol2d
...
ENDIF
return
Parametri
[in]thisoggetto di cui creare la vista
[in]dimlistlista delle dimensioni da includere nella vista, attenzione tutte le dimensioni non degeneri (cioè con estensione >1) devono essere incluse nella lista; utilizzare le costanti vol7d_ana_d ... vol7d_attr_d, ecc.
vol1dparray che in uscita conterrà la vista 1d
vol2dparray che in uscita conterrà la vista 2d
vol3dparray che in uscita conterrà la vista 3d
vol4dparray che in uscita conterrà la vista 4d
vol5dparray che in uscita conterrà la vista 5d
vol6dparray che in uscita conterrà la vista 6d

Definizione alla linea 6361 del file vol7d_class.F90.


Generated with Doxygen.