Problème de format et lecture fortran77

Bonjour,
je travaille avec fortran, j'essaye de lire des données, je lis une chaîne de caractère et ensuite un réel.
Format(42a,1F5.1)
Le problème il me lis une chaîne de caractère mais le réel j’en ai besoin pour faire des calcul il m’affiche à l’encrant des valeurs incorrecte et quant j’affiche avec le format (‘1F5.1’) il m’affiche les bonne valeurs. Je ne sais pas comment faire cars j’ai besoin des ses valeurs réel pour faire mes calcul.
Merci

Bonjour,
je n'ai vraiment pas compris. Apparement c'est un problème de format de lecture, mais il faudrait que tu donnes un exemple plus précis.
Tu pourrais aussi relire un minimum ton message avant de poster : "écran" est devenu "encrant" ...

Désolé de ne pas être précise. Je lis des lignes de données, la ligne contient une chaîne de caractère de 42 caractères et un réel. Donc j’utilise le format (format(40a,1f5.1)) pour lire ces données.
64 format(42a,1F5.1)
read(13,64,end=1001) chaine2, p
write(6,'(1f5.1)')p
print*,p

il affiche:
0.0
1.49230620E-19

Je ne comprend pas pourquoi il me donne la vrais valeur du réel quant je l’affiche avec le format, mais il me donne une valeur quelconque quant je l’affiche tout simplement et il utilise cette valeur fausse pour les calcul et j’ai des résultats faux.
Merci

Bonjour,
La différence d'affichage est normale, lorsque tu utilises le format *, le compilateur détermine automatiquement le format le mieux adapté à la variable à afficher. Tu obtiens alors 1.49230620E-19, mais en imposant le format de sortie (f5.1), tu demandes d'afficher ce même réel en format non scientifique sur 5 caractères avec 1 chiffre après la virgule. Ce qui donne forcément 0.0

Peux-tu poster le ligne du fichier à lire ?
Il est fort probable que le format de lecture ne soit pas bon. Si la chaine de caractère avant le réel ne contient pas de caractère "espace", tu peux simplement faire :

Code:

---

1 2 3 4

read(13,*,end=1001) chaine2, p write(6,*) chaine2 write(6,*) p

---

2010 12 16 00 00 00 2010 12 16 00 05 00 0.0

C’est la ligne à lire en faite la chaîne de caractère est la date, ensuite j’ai le réel, ici 0.0

Ok, je te propose un truc plus simple : lire toute la ligne en tant que chaine de caractère, éliminer les 42 premiers caractères (sauf que sur ton exemple j'en vois 39) et ensuite mettre le reste dans ta variable p. Ca donne :

Code:

---

1 2 3 4 5 6 7 8

character*100 :: chaine ! La longueur est volontairement longue   read(13,'(A100)') chaine chaine = chaine(43:) read(chaine,*) p   write(*,*) p

---

Salut!
Comment as-tu déclaré la variable Chaine2 ?
Jean-Marc Blanc

Merci pour vos réponses

La déclaration de chaine2:

character*42 chaine2

Salut!
Essaie d'écrire

Code:

---

64 format(a42,1F5.1)

---

Jean-Marc Blanc