[Fortran 77] Fonction read

Bonjour,

je veux effectuer le petit bout de programme suivant :

Code:

---

1 2 3 4 5 6 7

program identité character nom*40 print *, 'Quel est votre nom' read *, nom end program identité

---

Mon problème est le suivant :

Si je tape "René Michaud", je n'obtiens que "René" comme résultat. Le programme ne prend pas en compte "Michaud" car il y a un espace entre René et Michaud.

Que dois-je faire pour que ma variable "nom" soit égale à "René Michaud" et non simplement à "René".

Merci d'avance à ceux qui me répondront.

René Michaud

Il faut preciser le format de lecture explicitement:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

program id implicit none   character*40 nom   print *, 'Quel est votre nom?' read '(A)', nom   print *, nom   end

---

En plus paranoiaque, on peut aussi limiter la lecture a 40 caracteres maximum, avec le specificateur de format A40.

PS: Il est preferable d'eviter les accents dans le code source, cela peut poser probleme pour certains (vieux) compilateurs qui codent les caracteres sur 7 bits.

Complément à la réponse de DaZumba.

Quand tu utilises le format * dans « read * », tu utilises un format « libre » dans lequel l'espace sert de séparateur de champs. Comme tu veux intercaller des espaces dans tes chaînes, il est donc préférable d'éviter le format list-directed (*).

Pour les accents, je seconde DaZumba. C'est une très mauvaise habitude : les caractères accentés ne font pas partie du " character set " de Fortran.