|
◆ vol7d_varvect_alloc()
subroutine vol7d_varvect_class::vol7d_varvect_alloc |
( |
type(vol7d_varvect), intent(inout) |
this, |
|
|
integer, intent(in), optional |
nvarr, |
|
|
integer, intent(in), optional |
nvard, |
|
|
integer, intent(in), optional |
nvari, |
|
|
integer, intent(in), optional |
nvarb, |
|
|
integer, intent(in), optional |
nvarc, |
|
|
logical, intent(in), optional |
ini |
|
) |
| |
Metodo per allocare i vettori di variabili richiesti.
Se uno dei parametri nvar* non è presente o è <= 0 non viene allocato niente per quel tipo di variabile. Il metodo può essere chiamato più volte per allocare successivamente diversi tipi di variabili.
- Parametri
-
[in,out] | this | oggetto in cui allocare i vettori |
[in] | nvarr | numero di variabili con dati reali |
[in] | nvard | numero di variabili con dati a doppia precisione |
[in] | nvari | numero di variabili con dati interi |
[in] | nvarb | numero di variabili con dati byte |
[in] | nvarc | numero di variabili con dati carattere |
[in] | ini | se fornito e vale .TRUE., viene chiamato il costruttore vol7d_var_class::init (senza parametri opzionali) per ognuna delle variabili allocate in ciascun vettore |
Definizione alla linea 105 del file vol7d_varvect_class.f90.
105 TYPE(vol7d_varvect), INTENT(INOUT) :: this 106 INTEGER, INTENT(in), OPTIONAL :: nvarr 107 INTEGER, INTENT(in), OPTIONAL :: nvard 108 INTEGER, INTENT(in), OPTIONAL :: nvari 109 INTEGER, INTENT(in), OPTIONAL :: nvarb 110 INTEGER, INTENT(in), OPTIONAL :: nvarc 111 LOGICAL, INTENT(in), OPTIONAL :: ini 116 IF ( PRESENT(ini)) THEN 122 IF ( PRESENT(nvarr)) THEN 124 IF ( ASSOCIATED(this%r)) DEALLOCATE(this%r) 125 ALLOCATE(this%r(nvarr)) 133 IF ( PRESENT(nvard)) THEN 135 IF ( ASSOCIATED(this%d)) DEALLOCATE(this%d) 136 ALLOCATE(this%d(nvard)) 144 IF ( PRESENT(nvari)) THEN 146 IF ( ASSOCIATED(this%i)) DEALLOCATE(this%i) 147 ALLOCATE(this%i(nvari)) 155 IF ( PRESENT(nvarb)) THEN 157 IF ( ASSOCIATED(this%b)) DEALLOCATE(this%b) 158 ALLOCATE(this%b(nvarb)) 166 IF ( PRESENT(nvarc)) THEN 168 IF ( ASSOCIATED(this%c)) DEALLOCATE(this%c) 169 ALLOCATE(this%c(nvarc)) Costruttori per le classi datetime e timedelta.
|