Déclaration d'un format de lecture

Bonjour,
1ère Question simple : peut-on déclarer un format ?

Exemple :

Code:

---

100 format (f14.8, A, f148)

---

Je suis en train de lire un fichier : j'ai 17 valeurs à la suite que je dois lire.
(C'est un fichier ASCII). Du coup, je pensais faire un read avec ce format mais comme le format risque d'être long, j'ai pensé le déclarer.

2ème Question :
Sachant que le fichier est écrit ainsi :

Code:

---

1 2 3

12.3456 12.9876 12.1212 13.5467

---

Suis-je obligé de séparer les espaces par un format A ?

Code:

---

read(u_file, 100, iostat = ok) x, " ", y

---

Salut!
Ta question me semble posée de manière assez contradictoire:

Citation:

---

j'ai 17 valeurs à la suite

---

mais tu sembles avoir seulement 2 valeurs par ligne; cela signifie-t-il que ton fichier comporte 9 lignes? Ou bien, comme le laisse supposer ton code à la fin, tu as non pas 17 valeurs, mais 17 paires de valeurs.

Citation:

---

Avant donc que d'écrire, apprenez à penser.

Ce que l'on conçoit bien s'énonce clairement,
Et les mots pour le dire arrivent aisément.

Nicolas Boileau (1636-1711)

---

S'il s'agit de 17 valeurs, le plus simple est d'écrire

Code:

---

1 2 3 4 5

Implicit None Integer I Real*8 X(17)   Read(u_file,'(2F8.3)') (X(I),I=1,17)

---

Si, au contraire, il s'agit de 17 paires de valeurs, ce sera

Code:

---

1 2 3 4 5 6 7

Implicit None Integer I Real*8 X(17),Y(17)   Do I=1,17 Read(u_file,'(2F8.3)') X(I),Y(I) End Do

---

Jean-Marc Blanc

J'aurai dû ajouter dans mon sujet que les deux questions étaient indépendantes.
Enfin, si elles sont dépendantes, mais je préfère simplifier au maximum mes questions pour avoir une réponse ciblée.
Je m'occuperai ainsi du reste tout en étant sûr des points sensibles :mrgreen:
Désolé pour la simplification !
Mon fichier est construit de cette manière :
n lignes et 17 colonnes

Code:

---

1 2 3

12.3456 12.3456 12.3456 12.3456 12.3456 12.3456 12.3456 78.9012 78.9012 78.9012 78.9012 78.9012 78.9012 78.9012 ...

---

Donc, selon votre méthode, cela serait plutôt un mixte des deux

Code:

---

1 2 3 4 5 6 7 8 9

Implicit None Integer I Integer nbre_ligne ! Récupérée auparavant Real*8 A(nbre_ligne),B(nbre_ligne),C(nbre_ligne),D(nbre_ligne), !etc....   Do I=1,nbre_ligne Read(u_file,'(17F8.3)') A(I),B(I),C(I),D(I) ! etc ... End Do

---

Je me demande juste comment le compilateur va lire le fichier ...

Tout d'abord le bout de programme devrait a priori fonctionner.
Si tu connais déjà la dimension du tableau que tu veux stocker en mémoire une solution plus efficace serait de déclarer un objet A de dimension (nlignes, 17), ce sera moins fastidieux à coder et plus simple à maintenir.

Ensuite, concernant ta dernière question, il faut avant tout que tu nous dises si le fichier que tu veux lire est au format fixe ou pas.
S'il est au format fixe (ce qui semble suggéré par ton exemple), l'instruction va lire ton fichier par blocs de 8 caractères dont 3 caractères seront présents après la virgule.
Cf p37 de ce cours

Donc sur ton exemple, la lecture au format F8.3 devrait te poser problème.

Citation:

---

Envoyé par latex_man

Je me demande juste comment le compilateur va lire le fichier ...

---

Attention au vocabulaire. Le compilateur ne lit pas le fichier. Le fichier est lu lors de l'execution de ton programme.

Citation:

---

Envoyé par yogitetradim

Tout d'abord le bout de programme devrait a priori fonctionner.
Si tu connais déjà la dimension du tableau que tu veux stocker en mémoire une solution plus efficace serait de déclarer un objet A de dimension (nlignes, 17), ce sera moins fastidieux à coder et plus simple à maintenir.

---

Oui effectivement, c'est ce que j'ai ajouté dans mon post précédant.

Citation:

---

Ensuite, concernant ta dernière question, il faut avant tout que tu nous dises si le fichier que tu veux lire est au format fixe ou pas.

---

Je viens de découvrir que le fichier n'était pas au format fixe, du coup, j'ai essayé de lire tout ça en mode read(u_file,*,iostat=ok).
Et ce sont les variables bien déclarées qui m'ont permis de m'en sortir.

Le problème s'est arrangé.
Merci beaucoup pour votre aide et votre disponibilité , restez dans les environs ... Le Fortran cache encore quelques uns de ses secrets ... :mrgreen: