Lire et enregistrer dans une matrice les données provenant d'un fichier en fortran

Exemple de comment lire et enregistrer dans une matrice les données d'un fichier en fortran (fichier utilisé dans cette exemple: [attachment:467]):

program DataFileToArray

implicit none

integer :: i,j

integer, parameter :: pr = selected_real_kind(15,3)

real(pr), dimension(512,512) :: M


open(1,file='data.txt')

do i = 1, 512
read(1,*) (M(i,j),j=1,512)
end do

close(1)

end program DataFileToArray

Recherches associées