************************************************************************
* File: euro.for
************************************************************************
* Scopo: dichiarazione di costanti
************************************************************************

      PROGRAM euro
* Legge un numero di lire (intero) da tastiera, e
* stampa il corrispettivo in euro

* Istruzioni dichiarative
      IMPLICIT NONE

*   Dichiarazioni costanti
      REAL LI2EU
      PARAMETER (LI2EU = 1936.27)

*   Dichiarazioni variabili
      INTEGER lire

* Istruzioni esecutive
      WRITE (*,*) 'Inserisci numero lire'
      READ (*,*) lire
      WRITE (*,*) 'Il corrispettivo in euro e'': ', lire/LI2EU
      STOP

      END