Ouverture fichier binaire

Bonjour,

Afin d'ouvrir un fichier binaire j'emploie les instructions suivantes :

Code:

---

1 2 3 4 5 6 7 8 9

open(11,file=fni) i=0 Do read(11,*,end=1000) i = i + 1 Enddo 1000 write(*,*)"la lecture a atteint la fin du fichier" write(*,*)"le nombre de ligne est : ",i

---

ce à quoi on me réponds:

Citation:

---

la lecture a atteint la fin du fichier
le nombre de ligne est : 0
forrtl: severe (24): end-of-file during read, unit 11

---

Vous me direz peut être d'employer les options suivantes:

Code:

---

open(11,file=fni,form="unformatted")

---

ou

Code:

---

open(11,file=fni,form='binary')

---

Malheureusement elles donnent ceci:

Citation:

---

forrtl: severe (257): formatted I/O to unit open for unformatted transfers, unit 11

---

Précision utile, le fichier binaire a été écrit à partir d'un programme C++
Si vous avez d'autres suggestions à faire je suis tout ouïe

Si le fichier est bien binaire et qu'il a été créé par un programme C++, ce serait très surprenant qu'il soit unformatted.

Tu dois donc faire le open avec "binary" (ou "stream" ou ???). Ce mode n'est pas standard avant Fortran 2003 et le nom varie d'un compilateur à l'autre.

Au read, tu dois enlever la référence au format. "*" dans ton cas. Tu dois donc utiliser read(11,end=1000). De plus, comme un fichier binaire n'a pas de ligne, tu devras revoir ton programme... Veux-tu compter le nombre de bytes, de real, ... ? Je ne suis pas expert en fichier binaire, mais conceptuellement, une lecture "dans le vide" ne me fait pas de sens. Tu devrais ajouter une variable (au moins une) u red pour indiquer ce que tu veux lire, de combien long tu veux avancer.

En fait je désire pouvoir lire tous les bytes du fichier un à un, cela afin de passer du binaire à au décimal.
Mon premier post était simplifié pour le rendre plus illustratif.
Maintenant ça passe, mais j'ai ça:

Citation:

---

input statement requires too much data

---