Lecture dans un fichier

**DJEcalcul** · 05/09/2008, 10h02

Bonjour Débutant en fortran, je cherche à calculer la norme à partir de coordonnée dans un fichier, je commence tranquillement en vérifiant que je sais lire dans un fichier et là c'est le drame

voilà mon code assez simple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
      program normevitesse
      implicit none
 
      integer :: A 
 
 
      open( unit = 1, file = 'calculnorme', status = 'old',
     x      form = 'unformatted' )
      read(1), A
 
      write(1,*) A
 
      CLOSE(1)
 
      end program

et voilà la réponse quand j'exécute le code calculnorma.out (la compilation a bien fonctionnée)

000000000045EAD6 Unknown Unknown Unknown
calculnorma.out 000000000045DCD6 Unknown Unknown Unknown
calculnorma.out 00000000004292F2 Unknown Unknown Unknown
calculnorma.out 00000000004056E9 Unknown Unknown Unknown
calculnorma.out 0000000000404FD7 Unknown Unknown Unknown
calculnorma.out 0000000000414BFD Unknown Unknown Unknown
calculnorma.out 0000000000402C25 Unknown Unknown Unknown
calculnorma.out 0000000000402B62 Unknown Unknown Unknown
libc.so.6 00000038F8C1D8A4 Unknown Unknown Unknown
calculnorma.out 0000000000402AA9 Unknown Unknown Unknown

quelqu'un pourrait-il me dire ou est mon problème ?
merci

**Grame** · 05/09/2008, 12h13

Bonjour

Plusieurs remarques sur ton code :
- il ne faut pas utiliser de numéro d'unité logique inférieur à 6, ce nombre dépendant
du compilateur. Par sécurité, je n'utilise jamais de numéro inférieur à 20

open( unit = 1, file = 'calculnorme', status = 'old',

Cette ligne n'est pas indispensable si c'est un fichier texte

x form = 'unformatted' )

Il manque le format de lecture

read(1), A

Là, je ne comprend pas ce que tu veux faire : tu veux réécrire dans ton fichier ce que tu viens de lire ???

write(1,*) A

Donc en posant le fichier calculnorme comme suit

2
3
. . .

ton programme devient

program normevitesse
implicit none

integer :: A
open( unit = 21, file = 'calculnorme', status = 'old')
read(21,*), A

write(*,*) 'A = ',A

CLOSE(21)

end program

et donne :

A = 2

(Compilation et exécution avec gfortran sous linux)