Fortran demande à l'utilisateur d'entrer un tableau

[Cuve9]

Bonjour à toutes et à tous,

Je suis en train de faire un projet en Fortran. Il y a un moment où dans mon algorithme, j'ai besoin de demander à l'utilisateur d'entrer un tableau de valeur. C'est pour ensuite procéder à une décomposition QR. Je souhaite savoir si cela est possible. J'ai essayé de la manière suivante mais ça ne marche pas :

program entrertableau

implicit none


integer :: nblig
integer :: nbcol
integer, dimension( : , : ), allocatable :: A


write(*,"('Entrez le nbre de ligne de A :')"); read(*,*) nblig
write(*,"('Entrez le nbre de colonne de A :')"); read(*,*) nbcol

allocate(A(nblig,nbcol))

write(*,"('Entrez A')") A

write(*,*)
write(*,*) A

stop 'fin'

end program entrertableau



Si vous avez une indication qui me permettrait de résoudre mon problème, j'en serait très reconnaissant.

Ps: nous n'avons pas encore vu les fonctions genre OPEN ou autres permettant d'ouvrir un fichier et de lire les données se trouvant à l'intérieur

Merci d'avance,

Bien à vous.
-----

[obi76]

Bonjour,

quand vous dites "ça ne marche pas", c'est à dire ? La manière dont vous faites vois "write" est erronée.


j'aurai plutôt vu :

write(*,*) "('Entrez le nbre de ligne de A :')"
read(*,*) nblig
write(*,*) "('Entrez le nbre de colonne de A :')")
read(*,*) nbcol

allocate(A(nblig,nbcol))

do i = 1, nblig
do j = 1, nbcol
write(*,*) "Entrez A(",i,j,')'
read(*,*) A(i,j)
enddo
enddo

write(*,*)
write(*,*) A