Entrées / Sorties

On appelle « Entrées / Sorties », tout ce qui permet à un programme de dialoguer avec l'extérieur :

• l'utilisateur via le clavier, l'écran, une imprimante, etc. ;
• les disques via des fichiers ;
• d'autres machines via le réseau ;
• ...

Le langage FORTRAN permet d'écrire ou de lire des données sur différentes choses.

Pour écrire, on utilise l'instruction write :

• à l'écran ,
• sur un fichier,
• dans une chaîne de caractères.

Pour lire, on utilise l'instruction read :

• sur le clavier,
• dans un fichier.
• dans une chaîne de caractères.

On distingue les lectures/écritures :

formatées

c'est à dire organisée en lignes de caractères. C'est la cas des lectures clavier et des écritures écran, des lectures/écritures de fichiers texte et de chaînes.

non-formatées

qui signifie transfert octet par octet. C'est le cas des lectures/écritures sur fichiers binaires.

   
Écriture formatée

Syntaxe

write(unité d'écriture, formatage) liste de données

• L'unité d'écriture est un entier (voir « fichiers » 11). Pour l'écran, on utilise *.
• Le formatage indique sous quelle forme on va écrire les données. Il existe une formatage par défaut qui laisse FORTRAN écrire comme il veut : le format *.

Exemples

écrit les valeurs des variables i,j,x,y sur une ligne, séparées par des blancs.

écrit la chaine « z vaut », suivie de la valeur de la variable z.

Important : se souvenir qu'une instruction write écrit une ligne puis revient à la ligne. Donc un write est égal à une ligne d'affichage.

   
Formats d'écriture

Un format est une série de codes, chaque code définissant le format d'écriture d'un élément d'une donnée.

Définition du format

Deux solutions :

• Directement dans l'instruction write avec une chaîne de caractères :

  write(*,'format') liste

• Dans une ligne labellée contenant l'instruction format :

  nn format(définition du format)
write(*,nn)

  Cette solution permet d'utiliser le même format dans plusieurs instructions write.

Format entier

Dans un format, la notation in permet d'afficher un entier. L'entier est écrit sur n caractères en tout :

• S'il y a besoin de plus, l'écriture échoue.
• Si cela suffit, on ajoute éventuellement des blancs à gauche.

Exemples :

donne

$\underbrace{\sqcup\!\sqcup\!\sqcup\!\sqcup\!11}_{{\sf 6 caract.}} \underbrace{\!\sqcup 20312}_{{\sf 6 caract.}}$

Variante avec l'instruction format :

Format réel virgule flottante

Dans un format, la notation en.m permet d'afficher un réel en virgule flottante sur n caractères en tout avec m chiffres significatifs, c'est à dire :

$$\underbrace{\pm 0.\underbrace{\sqcup\!\sqcup\!\sqcup\!\dots\sqcup}_{m\,caract.} E\pm\sqcup\sqcup}_{n\,caract.}$$

• S'il y a besoin de plus, l'écriture échoue.
• Si cela suffit, on ajoute éventuellement des blancs à gauche.

Pour que le format soit cohérent, il faut $n \geq m+7$.

Exemples :

affiche

$\underbrace{\sqcup\!\sqcup\! -0.14562E+04}_{14\,caract.}$
$\underbrace{\sqcup\!\sqcup\!\sqcup 0.16000E-18}_{14\,caract.}$

Format chaîne

Dans un format, la notation an permet d'afficher une chaîne de caractères.

• Si n est spécifié, la chaine est écrite sur n caractères en tout, en ajoutant des blancs à gauche pour compléter.
• Si n n'est pas spécifié, la chaine est écrite avec son nombre de caractères total (tel que déclaré !).

On peut ajouter un $ après le a pour éviter de revenir à la ligne.

Exemples de formats mixtes

affichera

En conclusion

Les formatages doivent être utilisés si c'est absolument nécessaire. Dans la plupart des cas le format par défaut (*)1 suffit largement, et il est inutile de perdre du temps a formater les sorties écran.

Lecture formatée

La lecture formatée s'applique

au clavier

aux fichiers texte

Principe

On lit une ligne de caractères d'un seul coup, la lecture étant validée par :

• la frappe de la touche RETURN pour une lecture clavier,
• une fin de ligne pour une lecture de fichier texte.

Les données sur une même ligne doivent être séparées par des blancs.

Syntaxe

read(unité de lecture, formatage) liste de variables

• L'unité de lecture est un entier (voir « fichiers » 11). Pour le clavier, on utilise *.
• Le formatage indique sous quelle forme on va lire les données (voir write).

Conseil

Le plus simple est d'utiliser tout le temps le format libre *. Exception: pour lire des variables caractères ou chaînes de caractères, le format libre ne fonctionne pas. Utiliser le format chaîne a.

Exemple

attend de l'utilisateur qu'il frappe trois réels au clavier séparés par des espaces puis la touche RETURN ( $\hookleftarrow$). On peut entrer les nombres en format virgule flottante. Pour entrer (1,2) dans a, (1,6.10^-19) dans b et (32) dans c, l'utilisateur pourra taper :

1.2 1.6e-19 32

Un exemple classique d'écriture suivie d'une lecture sur la même ligne :

Le message sera affiché, mais le curseur ne reviendra à la ligne que lorsque l'utilisateur aura entré x suivi de RETURN.