Fortran Matrici allocative


Esempio

Le matrici possono avere l'attributo allocatable :

! One dimensional allocatable array
integer, dimension(:), allocatable :: foo
! Two dimensional allocatable array
real, dimension(:,:), allocatable :: bar

Questo dichiara la variabile ma non alloca alcuno spazio per essa.

! We can specify the bounds as usual
allocate(foo(3:5))

! It is an error to allocate an array twice
! so check it has not been allocated first
if (.not. allocated(foo)) then
  allocate(bar(10, 2))
end if

Una volta che una variabile non è più necessaria, può essere deallocata :

deallocate(foo)

Se per qualche ragione un'istruzione allocate fallisce, il programma si fermerà. Questo può essere evitato se lo stato è controllato tramite la parola chiave stat :

real, dimension(:), allocatable :: geese
integer :: status

allocate(geese(17), stat=status)
if (stat /= 0) then
  print*, "Something went wrong trying to allocate 'geese'"
  stop 1
end if

Anche l'istruzione deallocate ha una parola chiave stat :

deallocate (geese, stat=status)

status è una variabile intera il cui valore è 0 se l'allocazione o deallocazione ha avuto esito positivo.