La sintassi dello statement implicit none è la seguente:

IMPLICIT NONE

Questo statement è utilizzato per evitare errori di utilizzo di variabili.Quando cioè vine utilizzato lo statement implicit none tutte le variabili devono essere dichiarate in una dichiarazione di tipo (dichiarazione specifica). Ad esempio del tipo:

REAL :: {list of variables}

Nell’ipotesi una variabile venisse utilizzata senza essere stata dichiarata, un errore verrebbe rilevato in fase di compilazione. in questo modo riusciamo ad avere un controllo sulle variabili utilizzate nel programma.

Link correlati all’argomento

- Programmare con Fortran

- Note sul Fortran 90

- Come scaricare gratuitamente il compilatore Fortran

- Gli articoli della guida Fortran

Lo statement program ha la seguente sintassi:

PROGRAM {program name}

Una dichiarazione che deve aver luogo prima di tutto il resto, appena cioè inizia il programma, e può essere utilizzato per dare il nome al programma. Tutti i nomi Fortran devono avere una lunghezza massima di 31 caratteri e devono iniziare con una lettera maiuscola o minuscola e possono essere composti dai caratteri AZ, az, 0-9 e underscore (_).

Link correlati all’argomento

- I compilatori Fortran

- Programmare con Fortran

- Elementi di calcolo numerico con il Fortran

- Esercizi sul Fortran 90

Nello scrivere un programma è importante seguire la seguente procedura:

1- specificazione del problema
2- analizzare il problema
3- codifica del programma
4- prova del programma (e ripetere i passaggi da 2,3 fino a che il codice funzioni correttamente)

Come esempio, si consideri il problema di determinare dell’equazione di un cerchio (in termini di centro e raggio) dati tre punti (x, y). Un esempio di programma in Fortran 90 per il calcolo dell’equazione di un cerchio dato in input dall’utente tre punti è riportato di seguito:

PROGRAM circle
!  Copyright 1994, Miles Ellis, Ivor Philips and Tom Lahey
   IMPLICIT NONE
   ! This program calculates the equation of a circle passing
   ! through three points

   ! Variable declarations
   REAL :: x1,y1,x2,y2,x3,y3,a,b,r

   ! Step 1
   PRINT *,"Please type the co-ordinates of three points"
   PRINT *,"in the order x1,y1,x2,y2,x3,y3"
   READ *,x1,y1,x2,y2,x3,y3        ! Read the three points

   ! Step 2
   CALL calculate_circle(x1,y1,x2,y2,x3,y3,a,b,r)

   ! Step 3
   PRINT *,"The centre of the circle through these points is &
           &(",a,",",b,")"
   PRINT *,"Its radius is ",r
END PROGRAM circle

Link correlati all’argomento

- Programmare con Fortran

- Note sul Fortran 90

- Come scaricare gratuitamente il compilatore Fortran

- Gli articoli della guida Fortran

Alcuni compilatori inizializzano automaticamente gli array ma non tutti, quindi se si utilizzare una matrice con elementi diversi da zero è una buona idea di seguire questo esempio. Naturalmente è possibile inizializzare gli array con valori diversi da zero. Si possono anche inizializzare i singoli elementi:

data A (1,1) / 12,5 /, A (2,1) / -33,3 /, A (2,2) / 1.0 /

In alternativa, è possibile elencare tutti gli elementi per piccoli array in questo modo:

integer v(5)
real B(2,2)
data v/10,20,30,40,50/, B/1.0,-3.7,4.3,0.0/

I valori per gli array bidimensionali saranno assegnati in ordine di colonna come al solito.

Link correlati all’argomento

- Programmare con Fortran

- Note sul Fortran 90

- Come scaricare gratuitamente il compilatore Fortran

- Gli articoli della guida Fortran

La dichiarazione dei dati con l’ausilio dello statement data è più compatta e quindi spesso più conveniente. Si noti in particolare la notazione abbreviata per l’assegnazione di valori identici da utilizzare ripetutamente. La dichiarazione dei dati viene effettuata solo una volta, giusto prima dell’esecuzione del programma quando cioè esso si avvia. Per questo motivo, la dichiarazione di dati è utilizzata principalmente nel programma principale e non nelle subroutine.

La dichiarazione dei dati può anche essere utilizzata per inizializzare gli array (vettori, matrici). Questo esempio mostra come per assicurarsi che una matrice sia composta da tutti zero all’avvio del programma può essere utilizzato lo statement data:

real A(10,20)
data A/ 200 * 0.0/

Link correlati all’argomento

- I compilatori Fortran

- Programmare con Fortran

- Elementi di calcolo numerico con il Fortran

- Esercizi sul Fortran 90

La dichiarazione dei dati è un altro modo di inserire dei dati di input che sono noti al momento in cui il programma è scritto. E ‘ simile alla istruzione di assegnazione. La sintassi è la seguente:

data list-of-variables/ list-of-values/, …

dove i tre punti significano che questo modello può essere ripetuto. Ecco un esempio:

data a/10/,b/20/, c/2.5/, d/2.5/

Potremmo anche avere scritto questo:

data a, b/10, 20 /, c,d / 2 * 2,5 /

Lo stesso risultato si ottiene con le assegnazioni:

a = 10
b= 20
c = 2.5
d= 2.5

Link correlati all’argomento

- Programmare con Fortran

- Note sul Fortran 90

- Come scaricare gratuitamente il compilatore Fortran

- Gli articoli della guida Fortran

Il blocco comune definito nell’articolo precedente contiene in primo luogo tutti gli elementi di A, poi i numeri interi n e nmax. Supponiamo di voler utilizzare la matrice in qualche subroutine. Per fare questo è necessario includere le stesse dichiarazioni in tutte le subroutine, ad esempio.

      subroutine sub1 (...)
      integer nmax
      parameter (nmax=20)
      integer n
      real A(nmax, nmax)
      common /matrix/ A, n, nmax

E’ facile allora dedurre che Array con dimensioni variabili non possono apparire in blocchi comune, quindi il valore di nmax deve essere esattamente lo stesso che compare nel programma principale. Ricordiamo che la dimensione di una matrice deve essere nota al momento della compilazione, quindi nmax deve essere definito in una dichiarazione di parametro. Si sarebbe tentati di cancellare la dichiarazione dei parametri nella subroutine a cui nmax appartiene al blocco comune, ma questo procedimento non è consentito.

L’esempio appena visto mostra ch non c’è nulla da guadagnare utilizzando i blocchi comuni per la dichiarazione di matrici . Quindi il metodo preferito in Fortran 77 è quello di passare le matrici come argomenti di subroutine (insieme con le dimensioni principali).

Gli array nei common blocks

I Common blocks possono contenere degli array. Ma ancora una volta, questo utilizzo non è raccomandato. La ragione principale è la flessibilità. Un esempio mostra perché questa è una procedura sconsigliata. Supponiamo di avere le seguenti dichiarazioni nel programma principale:

      program main
      integer nmax
      parameter (nmax=20)
      integer n
      real A(nmax, nmax)
      common /matrix/ A, n, nmax

CONTINUA - Gli array nei common blocks 2

Link correlati all’argomento

- Programmare con Fortran

- Note sul Fortran 90

- Come scaricare gratuitamente il compilatore Fortran

- Gli articoli della guida Fortran

Si raccomanda di usare sempre gli stessi nomi delle variabili per lo stesso blocco comune per evitare confusione. Ecco un esempio che ci spiega perchè si può correre il rischio di creare confuzione:

      subroutine sub4 (some arguments)
      declarations of arguments
      real alpha, beta
      common /coeff/ beta, alpha

      statements
      return
      end

In questo esempio accade che alfa rappresenta la stessa variabile che nel programma principale è stata nominata con beta, e viceversa. Se si verifica qualcosa di simile, probabilmente è un errore. Tali bug sono molto difficili da trovare.

Link correlati all’argomento

- I compilatori Fortran

- Programmare con Fortran

- Elementi di calcolo numerico con il Fortran

- Esercizi sul Fortran 90

La sintassi per definire correttamente i common block nel Fortran è la seguente:

common / name / list-of-variables

Si deve sapere che:
-La dichiarazione comune dovrebbe comparire insieme alle dichiarazioni di variabili, prima delle istruzioni eseguibili.
-Diversi blocchi comuni devono avere nomi diversi (proprio come le variabili). Una variabile può appartenere a più di un blocco comune.
-Le variabili in un blocco comune non devono necessariamente avere gli stessi nomi dappertutto (anche se è una buona idea farlo), ma devono essere elencati nello stesso ordine e devono avere lo stesso tipo.

Per capire il significato di tali indicazioni analizzare dettagliatamente il nostro esempio:

      subroutine sub3 (some arguments)
      declarations of arguments
      real a, b
      common /coeff/ a, b

      statements
      return
      end

Link correlati all’argomento

- Programmare con Fortran

- Note sul Fortran 90

- Come scaricare gratuitamente il compilatore Fortran

- Gli articoli della guida Fortran