L'assegnazione delle variabili in Fortran

Per assegnare un valore a una variabile nel linguaggio Fortran, si utilizza il simbolo uguale = come in altri linguaggi di programmazione.

nomevariabile = valore

Nome variabile. Nella parte sinistra indico il nome della variabile.
Valore. Nella parte destra indico il valore da assegnare alla variabile. Può trattarsi di un numero, una stringa alfanumerica o un valore logico booleano (true, false).

Il valore da assegnare deve essere dello stesso tipo della variabile.

Pertanto, l'assegnazione segue sempre la dichiarazione delle variabili.

Esempio

A=3
B=4
NOME="Andrea"

L'istruzione DATA

Il Fortran ha anche un'apposita istruzione per assegnare una serie di valori a un elenco di variabili prestabilite.

E' l'istruzione DATA

DATA elenco variabili / elenco valori /

I nomi di variabili sono indicati in serie e separati tra loro da una virgola.

L'elenco dei rispettivi valori è indicato tra due slash /. Anche i valori sono separati da virgole.

Esempio

DATA a,b,nome / 3,4,"Andrea"/

I valori da assegnare possono essere di tipo diverso, purché corrispondano al tipo della variabile associata.

Come assegnare lo stesso valore a più variabili?

Per assegnare lo stesso valore a due o più variabili della lista, posso usare il simbolo asterisco.

DATA a, b/ 2*"Andrea" /

Il fattore di ripetizione va posto a sinistra dell'asterisco mentre il valore da ripetere a destra.

L'operazione di assegnazione dei valori a una variabile vettore (array) è molto simile.

Posso assegnare i valori ai singoli elementi del vettore.

DIMENSION V(10)
V(1)=2000
V(2)=2001

Posso usare l'istruzione DATA

DIMENSION V(10)
DATA V(1), V(2) / 2000 , 2001 /

Il risultato è sempre lo stesso.

Posso creare un ciclo di assegnazione tramite l'istruzione DATA.

Ad esempio, per assegnare un elenco di valori a un vettore.

DIMENSION V(10)
DATA (V(i), i=1,3) / 2000, 2001 , 2002 /

In alcuni compilatori il loop implicito può essere omesso.

DIMENSION V(3)
DATA V / 2000, 2001, 2002 /

Per assegnare lo stesso valore a più elementi utilizzo il simbolo dell'asterisco (*)

Ad esempio per assegnare il valore 2000 a tutti gli elementi dell'array scrivo

DATA (V(i), i=1,3) / 3*2000 /

Il fattore di ripetizione va messo a sinistra del simbolo * mentre il valore da ripetere a destra.

L'istruzione PARAMETER mi permette di assegnare un valore a una costante.

PARAMETER(nome=valore)

Esempio

Posso assegnare il valore 3.14 alla costante PI

PARAMETER(PI=3.14)

Posso anche assegnare più valori in serie a diverse costanti.

PARAMETER(PI=3.14,ANNO=2019)

Il valore deve essere omogeneo, ossia dello stesso tipo della costante.

E così via.