Fortran: Wie man Werte in einem Modul zuweist

Question

Ich kämpfe mit einem Code, den ich von einer anderen Person bekam. Er verwendet Module, um Arrays zu versorgen, die von der Hauptroutine benötigt werden. Was ich brauche, ist ein Array mit Zahlen von 500 bis 3500.

Er tat dies durch

INTEGER :: i 
REAL :: myArray(3001) 

DATA (myArray(i),i=1,100)/& 
500., 501., 502., 503., [...] 599./ 

DATA (myArray(i),i=101,200)/& 
600., 601., [...], 699./ 

[...] 

DATA (myArray(i),i=2901,3001)/& 
[...] 3498., 3499., 3500./ 

mir jetzt schreibe dies scheint sehr kompliziert! Außerdem muss myArray Ganzzahlen enthalten, aber natürlich möchte ich nicht alle diese Punkte entfernen.

Also zuerst habe ich versucht, dies:

Do i=1,3001 
    myArray(i) = i+499 
End Do 

Aber ich bekomme

"Fehler # 6274: Diese Aussage muss erscheinen nicht in der Spezifikation Teil eines Moduls"

Was mache ich falsch?

Answer 1

Der Fehler ist ziemlich erklärend. Sie können keine Berechnungen in einem Modul durchführen. Ein Modul dient zum Hosten von Variablendeklarationen und Subroutinenschnittstellen. Sie haben zwei Möglichkeiten:

• einfach die Art erklären und die Dimension des Arrays in dem Modul und initialisieren Sie es in Ihrem Hauptprogramm (das Modul verwendet wird) mit der Schleife Sie vorgeschlagen haben.

• Oder wie von @francescalus gezeigt, können Sie einen Array-Konstruktor direkt während der Deklaration im Modul verwenden. Etwas wie dieses: [(i, i=500, 3500)]

Answer 2

Sie benötigen eine implizite do-Schleife. Dies kompiliert und läuft gut

MODULE module1 

    INTEGER :: i 
    REAL :: myArray(3001) = (/ (i, i=500, 3500) /) 

END MODULE 

Das Format ist

(/ (exp1, var=start, end) /) 

oder

(/ (exp1, var=start, end, step) /) 

oder

(/ (exp1, expr2, .., var=start, end, step) /) 

_{Siehe https://web.stanford.edu/class/me200c/tutorial_90/07_arrays.html}