Il Linguaggio Fortran 90/95

344 Array Processing
FIELD deve essere un array dello stesso tipo e parametri di kind di VECTOR e compatibile con
MASK. Gli elementi di FIELD vengono inseriti nell’array risultante in corrispondenza dei valori
.FALSE. di MASK.
Il risultato è un array avente stessa forma di MASK e stesso tipo e parametri di kind di
VECTOR. I suoi elementi vengono inseriti, nell’array element order, al modo seguente:
• Se l’elemento i di MASK ha valore .TRUE., il corrispondente elemento del risultato è
acquisito dal successivo elemento di VECTOR.
• Se l’elemento i di MASK ha valore .FALSE., il corrispondente elemento del risultato è pari
a FIELD (se FIELD è uno scalare) oppure è pari all’i_mo elemento di FIELD (se FIELD è
un array).
Esempi:
Siano n l’array:
0 0 1
1 0 1
1 0 0
p l’array: (/2,3,4,5/), e q l’array:
.TRUE. .FALSE. .FALSE.
.FALSE. .TRUE. .FALSE.
.TRUE. .TRUE. .FALSE.
L’istruzione UNPACK(p,MASK=q,FIELD=n) produrrà il risultato:
2 0 1
1 4 1
3 5 0
mentre l’istruzione UNPACK(p,MASK=q,FIELD=1) produrrà il risultato:
2 1 1
1 4 1
3 5 1
Un interessante esempio di utilizzo della funzione PACK è offerto dal seguente programma
che valuta tutti i numeri primi compresi tra 1 100 secondo il criterio noto come crivello di
Eratostene:
PROGRAM Crivello_di_Eratostene
! Scopo: valutare i numeri primi secondo
! il metodo di Eratostene
IMPLICIT NONE