Problème de format et lecture fortran77

**sahroura** · 04/04/2012, 10h54

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

**bobbyboy** · 04/04/2012, 11h31

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

**sahroura** · 04/04/2012, 11h51

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

**bobbyboy** · 04/04/2012, 12h09

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 :

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

1
2
3
4
 
read(13,*,end=1001) chaine2, p
write(6,*) chaine2
write(6,*) p

**sahroura** · 04/04/2012, 13h24

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

**bobbyboy** · 04/04/2012, 14h00

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 :

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

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