othomys
23-07-2013, 07:09
Hallo,
ich habe die Datei "primes.txt", in welcher natürliche Zahlen enthalten sind:
**************************************************
2 3 5 7 11 13 17 19
23 29 31 37 41 43 47 53
59 61 67 71 73 79 83 89
...
**************************************************
Diese Zahlen will ich nun in einem FORTRAN-Programm einlesen und anschließend weiterverarbeiten. Zum Thema Daten einlesen habe ich recherchiert und habe folgendes geschrieben:
program einlesen
implicit none
integer :: stat
integer, dimension (100) :: eingabe
character(80) :: str
open (1,file='C:\Programme\FORTRAN\Daten\primes0.txt', iostat=stat)
if (stat == 0) then
write(*,*) 'Datei wurde geoeffnet.'
do
read(1,'(A)',iostat=stat), str
if (stat /= 0) exit
end do
else
write(*,*) 'Die Datei konnte nicht geoeffnet werden.'
end if
close(1)
end program einlesen
Ist das soweit korrekt? Wenn ja, wie kann ich jetzt die einzelnen eingelesenen Zahlen im Integer-Array "eingabe" ablegen?
ich habe die Datei "primes.txt", in welcher natürliche Zahlen enthalten sind:
**************************************************
2 3 5 7 11 13 17 19
23 29 31 37 41 43 47 53
59 61 67 71 73 79 83 89
...
**************************************************
Diese Zahlen will ich nun in einem FORTRAN-Programm einlesen und anschließend weiterverarbeiten. Zum Thema Daten einlesen habe ich recherchiert und habe folgendes geschrieben:
program einlesen
implicit none
integer :: stat
integer, dimension (100) :: eingabe
character(80) :: str
open (1,file='C:\Programme\FORTRAN\Daten\primes0.txt', iostat=stat)
if (stat == 0) then
write(*,*) 'Datei wurde geoeffnet.'
do
read(1,'(A)',iostat=stat), str
if (stat /= 0) exit
end do
else
write(*,*) 'Die Datei konnte nicht geoeffnet werden.'
end if
close(1)
end program einlesen
Ist das soweit korrekt? Wenn ja, wie kann ich jetzt die einzelnen eingelesenen Zahlen im Integer-Array "eingabe" ablegen?