Discussion :

[zerbault]

Bonjour,
J'ai fait un program qui appelle une fonction qui est supposé retourner un tableau à 2 dimensions mais le probleme c'est qu'il ne retourne que des 0.
Voici mon code:

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
19
20
21
22
Function read_data
real*8 read_data(5000,2)
real*8 read_data_temp(5000,2)
integer i
real a,b
 
open(11,file='test.csv',status='old')
 
 
do i=1, 5000
    read(11,*)a,b
    read_data_temp(i,1)=a
    read_data_temp(i,2)=b
enddo
 
close(11)
do i=1,5000
    read_data(i,1)=read_data_temp(i,1)
    read_data(i,2)=read_data_temp(i,2)
enddo
return
end function read_data

Je comprend pas pourquoi mais le tableau read_data_temp est bien rempli de réels mais, quand je veux transmettre ces valeurs à read_data (la fonction) afin de les retourner, il n'ya que des 0 à etre retournés...
Quand j'ai regardé dans le module pour débuger le prog, à chaque nouveau i de la boucle, la ligne i de read_data prend bien la valeur de read_data_temp mais la valeur de la ligne i-1 de read_data passe (au meme moment) à 0...
Je comprend plus

Pourriez-vous m'aider?

Merci

[FR119492]

Salut!
En Fortran, si tu veux que ton sous-programme retourne un tableau, tu dois utiliser l'instruction Subroutine et non Function.
Jean-Marc Blanc

[zerbault]

Merci pour ta réponse.
J'avais appris qu'il n'y avait que les fonctions qui pouvaient retourner des valeurs. J'ai des fonctions qui retournent des tableaux a une dimension, mais a 2 dimensions, ce ne fonctionne plus...
Ca vient du fait que ce n'est pas déclarer comme une subroutine?

[zerbault]

J'ai rien dit... C'est bon, ca fonctionne
Merci beaucoup pour ton aide.