Wie man ein Fortran-Array ausgibt: ein einfacher und effizienter Weg

Wenn Sie diesen Code ausführen, sehen Sie, dass alle Elemente des Arrays A wurden auf dem Bildschirm angezeigt.

Im Folgenden finden Sie einen Beispielcode, der zeigt, wie ein Array auf dem Bildschirm ausgegeben wird:

program print_arrayimplicit noneinteger, dimension(5) :: array = [1, 2, 3, 4, 5]integer :: ido i = 1, 5print *, array(i)end doend program print_array

Wenn Sie das Programm starten, sehen Sie Folgendes Ergebnis:

12345

• Hier können Sie die Werte der Array-Elemente in einem lesbaren Format sehen, das die Entwicklung und das Debuggen des Programms erleicht.
• Ermöglicht es Ihnen, die erwarteten und tatsächlichen Werte zu vergleichen, die Ergebnisse des Programms mit den erwarteten Werten zu vergleichen.
• Ermöglicht die Kontrolle der Ausführung von Schleifen und anderen algorithmischen Konstruktionen, um sicherzustellen, dass das Programm ordnungsgemäß funktioniert.
• Ermöglicht die Überwachung der Änderung der Werte von Arrayelementen während der Programmausführung, was beim Debuggen komplexer Algorithmen besonders wichtig ist.

Wie deklariere und fülle ich ein Fortran-Array?

Das Schlüsselwort dimension wird verwendet, um ein Array in der Programmiersprache Fortran zu deklarieren. Sie können die Dimension des Arrays und den Datentyp des Arrays angeben.

Um beispielsweise ein eindimensionales Array von ganzen Zahlen mit 5 Elementen zu deklarieren, geben Sie den folgenden Code ein:

integer, dimension(5) :: myArray

Jetzt enthält das myArray 5 Elemente vom Typ integer .

Sie können eine do-Schleife verwenden, um ein Array in Fortran zu füllen. Mit dieser Schleife können Sie alle Elemente des Arrays durchlaufen und ihnen Werte zuweisen.

Um beispielsweise ein myArray mit Zahlen zwischen 1 und 5 zu füllen, können Sie den folgenden Code eingeben:

do i = 1, 5myArray(i) = iend do

Das Ergebnis ist, dass das myArray die Zahlen 1 bis 5 enthält.

Bevor wir eine Schleife verwenden, müssen wir ein Array definieren und initialisieren. In Fortran geschieht dies wie folgt:

integer, dimension(5) :: arrarr = (/1, 2, 3, 4, 5/)

Nach der Initialisierung des Arrays können wir eine Schleife verwenden do um seine Elemente zu durchlaufen:

do i = 1, size(arr)write(*,*) arr(i)end do

In diesem Beispiel verwenden wir eine Variable i, um die Elemente des Arrays in der Reihenfolge zu durchlaufen. Funktion size gibt die Größe des Arrays zurück, sodass die Schleife so oft ausgeführt wird wie die Elemente im Array.

program print_arrayimplicit noneinteger, parameter :: n = 3, m = 4integer :: i, jreal :: array(n, m)! Инициализация массива значениямиdo i = 1, ndo j = 1, marray(i, j) = i + jend doend dodo i = 1, ndo j = 1, mwrite(*, '(F6.2)', advance='no') array(i, j)end dowrite(*, *)end doend program print_array

2.00 3.00 4.00 5.003.00 4.00 5.00 6.004.00 5.00 6.00 7.00

Das resultierende Ergebnis ist eine Tabelle aus Zahlen, wobei jede Zahl dem Wert eines array-Elements entspricht.

implicit noneinteger :: iinteger, parameter :: N = 10integer :: массив(N) = (/1, 2, 3, 4, 5, 6, 7, 8, 9, 10/)do i = 1, Nprint*, массив(i)end do

Mit den integrierten Fortran-Funktionen ist es daher möglich, das Array einfach und effizient an die Konsole auszugeben.