Discussion :

[latex_man]

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

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
12.3456 12.9876
12.1212 13.5467

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[FR119492]

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

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.

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[latex_man]

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
Désolé pour la simplification !
Mon fichier est construit de cette manière :
n lignes et 17 colonnes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...

[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.

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.

[DaZumba]

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.

[latex_man]

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.

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 ...