|
subroutine vol7d_get_voldatid |
( |
type(vol7d), intent(in) |
this, |
|
|
integer, dimension(:), intent(in) |
dimlist, |
|
|
double precision, dimension(:), optional, pointer |
vol1dp, |
|
|
double precision, dimension(:,:), optional, pointer |
vol2dp, |
|
|
double precision, dimension(:,:,:), optional, pointer |
vol3dp, |
|
|
double precision, dimension(:,:,:,:), optional, pointer |
vol4dp, |
|
|
double precision, dimension(:,:,:,:,:), optional, pointer |
vol5dp, |
|
|
double precision, dimension(:,:,:,:,:,:), optional, pointer |
vol6dp |
|
) |
| |
Crea una vista a dimensione ridotta di un volume di dati di tipo DOUBLE PRECISION.
È 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:
DOUBLE PRECISION, POINTER :: vol2d(:,:)
...
CALL vol7d_get_voldatid(v7d1, (/vol7d_ana_d, vol7d_time_d/), vol2d)
IF (ASSOCIATED(vol2d)) THEN
print*,vol2d
...
ENDIF
return
- Parametri
-
[in] | this | oggetto di cui creare la vista |
[in] | dimlist | lista 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. |
| vol1dp | array che in uscita conterrà la vista 1d |
| vol2dp | array che in uscita conterrà la vista 2d |
| vol3dp | array che in uscita conterrà la vista 3d |
| vol4dp | array che in uscita conterrà la vista 4d |
| vol5dp | array che in uscita conterrà la vista 5d |
| vol6dp | array che in uscita conterrà la vista 6d |
Definizione alla linea 4318 del file vol7d_class.F90.
|