|
◆ 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 104 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))
|