lecture en block

Bonjour,

je voudrais lire un tableau T(i,j,k) dans un fichier *.dat avec un simple read sans le stocker dans la variable T en connaissant imax,jmax,kmax.

j'ai fait le code suivant :

Code:

---

1 2 3 4 5 6

integer none integer i,j,k,imax,jamx,kmax   do i=1,imax ! je suis obligée dans mon code d'utiliser ce do sur le i read(4,*) ((none,j=1,jmax),k=1,kmax) enddo

---

mais je génère une erreur, car la variable none
vous auriez une idée?

Manal

Citation:

---

Envoyé par manaliac

...mais je génère une erreur, car la variable none
vous auriez une idée?...

---

Manque un bout de texte je crois.

De plus, ton code est un peu ambigu. Tu devrais utiliser un implicit none, et nommer ta variable autrement que none...

Code:

---

1 2 3 4 5 6 7

integer T integer i,j,k,imax,jamx,kmax   do i=1,imax ! je suis obligée dans mon code d'utiliser ce do sur le i read(4,*) ((T(i,j,k),j=1,jmax),k=1,kmax) enddo

---

ça, ça marche, en revanche il faut que les variables soient bien rnagée dans ton fichier...

(oups)

pardon, tu ne voulais pas stocker T dans ce cas, utilise le "advance='no'" dans le read pour le forcer à ne pas aller à la ligne:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

integer Toto integer i,j,k,imax,jamx,kmax   do i=1,imax ! je suis obligée dans mon code d'utiliser ce do sur le i do k=1,kvoulu do j=1,jvoulu read(4,*,advance='no') toto end do end do enddo

---

et là tu aura dans toto la valeur de T(i,jvoulu,kvoulu)

Citation:

---

pardon, tu ne voulais pas stocker T dans ce cas, utilise le "advance='no'" dans le read pour le forcer à ne pas aller à la ligne:

---

Qu'est ce que cela veut dire?

Comme je parcours mon fichier en mode séquentiel, je dois lire ce tableau pour passer à la ligne d'après qui m'intéresse,mais comme le tableau est écrit en block, je ne sais pas combien de lignes il contient.

Merci

Bonjour

Tu n'as pas un repère dans le fichier qui indique la fin du tableau ? Une ligne blanche ou un mot ou quelque chose ?

Pour ce qui est de sauter ton tableau, quand tu dis qu'il est écrit en bloc, tu veux dire sur une seule ligne ?

Le advance="no" permet de ne pas avancé dans à la ligne suivante. Normalement, chaque fois que tu écris read ( ... ) ... à la fin de la lecture tu passes à la ligne suivante, même si tu n'as pas lu la ligne entière.

Voilà un exemple dans le cas d'une écriture

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

program test implicit none integer :: a, b, c   a = 1 b = 2 c = 3   write(*,"(i4)") a write(*,"(i4)") b write(*,"(i4)") c write(*,*) write(*,"(i4)",advance="no") a write(*,"(i4)",advance="no") b write(*,"(i4)",advance="no") c   end program test

---

en sortie tu auras :

Code:

---

1 2 3 4 5

1 2 3   1 2 3

---