Discussion :

[manaliac]

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 :

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

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

[Sylvain Bergeron]

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

[genteur slayer]

Code :

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

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 :

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

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)

[manaliac]

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

[Ladgalen]

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 :

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
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 :

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

1
2
3
4
5
   1
   2
   3
 
   1   2   3