Discussion :

[zoro_le_renard]

Bonjour,

Je veux utiliser un fichier binaire dans un code fortran en l'ouvrant avec un bout de code que j'ai récupéré

Code :

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

1
2
3
4
5
	DIMENSION GRID(2500)
	INTEGER*2 GRID	
	open(1,file='19981207RR',form='binary')
	read(1,end=99)(GRID(i),i=1,2500)
99     close(1)

mais la personne qui m'envoie le fichier binaire me dit qu'il faut "inverser les octets car le fichier a été généré sur une machine linux".

Pour moi, c'est du chinois.

Si je lis les fichiers directement avec le bout de code ci-dessus, cela ne correspond pas à ce que je dois obtenir.

Je travaille sur PC, je n'ai pas Linux, et je suis méga débutant en programmation d'où mon appel à l'aide. Merci pour vos conseils.

Zoro

[DaZumba]

L'histoire d'inverser les octets, c'est un probleme d'endianness. Cela depend du processeur, pas du systeme d'exploitation. Si tu utilises un processeur compatible x86 (Intel, AMD) comme la personne qui a fourni les donnees, alors tu n'as rien a faire : c'est du little-endian des deux cotes. Par contre, si les donnees ont ete crees sur une machine a processeur PowerPC, par exemple, alors les donnees sont au format big-endian et effectivement, il faudrait inverser les octets. C'est une limitation du format binaire pur : il n'est pas portable directement d'une machine a l'autre.

Pour lire ton fichier, utilise un Fortran un peu plus standard que celui que tu proposes:

Code :

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

1
2
3
4
5
6
 
integer*2 grid(2500)
...
open(unit=10, file='19981207RR', access='direct', form='unformatted', recl=5000)
read(10, rec=1) grid
close(10)

Le recl donne la longueur d'un enregistrement en octets [record length] (ici, je lis tout en une fois, i.e. 2500 entiers de deux octets). Si tu veux faire une boucle (memoire limitee, par exemple), il suffit de faire:

Code :

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

1
2
3
4
5
6
 
open(unit=10, file='19981207RR', access='direct', form='unformatted', recl=2)
do nrec = 1, 2500
  read(10, rec=nrec) grid(nrec)
enddo
close(10)

[zoro_le_renard]

Ca marche avec le code que tu m'as donné, je l'ai juste adapté au nb total d'entiers de ma grille. Merci beaucoup.
Z

[DaZumba]

Ca marche avec le code que tu m'as donné, je l'ai juste adapté au nb total d'entiers de ma grille. Merci beaucoup.

De rien. Remarque que j'avais fait une erreur dans la version 'boucle'. Le recl du OPEN n'etait pas correct. C'est maintenant corrige.

[zoro_le_renard]

Da Zumba

j'ai juste besoin d'une précision, que veut dire le
rec=1
dans l'instruction read ?

Merci pour ta réponse

Zoro

[DaZumba]

j'ai juste besoin d'une précision, que veut dire le
rec=1 dans l'instruction read ?

rec sert a preciser le numero de l'enregistrement (record) dans le fichier binaire. read() peut determiner la position du debut de l'enregistrement car on a donne la longueur d'un enregistrement a open() en utilisant recl (record length). Le debut d'un enregistrement est donc au (rec - 1) * recl octet (mais read() fait ce calcul toute seule).

Dans le post ci-dessus, je propose deux solutions qui font la meme chose:
- lire toute la grille d'un coup. recl vaut alors 5000 (2500 enregristrements de 2 octets) et on se positionne au premier enregistrement (rec=1).
- lire enregistrement par enregistrement. recl vaut alors 2 (1 enregistrement de 2 octets) et on se positionne au debut de l'enregistrement nrec (rec=nrec).