Aufruf einer Unterroutine in einer anderen Unterroutine

Question

Ich habe einige Probleme beim Aufruf von Subroutinen. Zuallererst, darf ich eine Subroutine innerhalb einer IF-Anweisung aufrufen?

IF (...) THEN 
    ... 
ELSE 
    CALL sub1(...) 
END IF 

Zweite Frage. Sub1 ruft sub2 in sich auf. Dann hat sub2 eine Eingabe vom Hauptprogramm, sagen wir mal x.

MODULE mod1 
    ... 
CONTAINS 

    SUBROUTINE sub1(w) 

    IMPLICIT NONE 
    INTENT(OUT) :: w 
    REAL :: x, z 

    CALL sub2(x, z) 

    w = z + 1 

    END SUBROUTINE sub1 

    SUBROUTINE sub2(x, z) 

    IMPLICIT NONE  
    INTENT(IN) :: x 
    INTENT(OUT) :: z 

    z = x + 1 

    END SUBROUTINE sub2 

END MODULE mod1 

PROGRAM prog 

    USE mod1 
    IMPLICIT NONE 

    IF (...) THEN 
    ... 
    ELSE 
    x = y 
    CALL sub1(w) 
    x = w + y 
    END IF 

END PROGRAM prog 

HINWEIS: Die Zugabe zwischen Variable ist nicht die genaue mathematische Operation statt

Grundsätzlich kann jede Variable aufeinander ab, aber die x = y ist die erste Bedingung, die ich denke, der einzige Weg ist, das könnte funktionieren. Es scheint, dass das Sub2 nicht das anfängliche x = y aufnimmt, das dann seinen Wert an sub1 gibt, wenn es von sub1 aufgerufen wird. Vielleicht verstehe ich nicht, wie die Variablen herumgereicht werden. Die Fehler, die ich bekomme, sind nicht beim Kompilieren, sondern ein Laufzeitfehler, der mich zu der Zeile führt, wo ich Sub2 innerhalb von Sub1 anrufe. Jede Hilfe wird sehr geschätzt.

Answer 1

Verwenden Sie bitte implicit none am Anfang aller Ihrer Programme und Module (nur USE Anweisungen davor), und deklarieren Sie dann alle Variablen explizit.

Während es völlig in Ordnung ist, Ihre Unterprogramme so aufzurufen, wie Sie es getan haben, müssen Sie den Umfang der Variablen berücksichtigen.

In Ihrem Beispiel hat sub1 keinen Zugriff auf die Hauptprogramm x und y, da sie lokal für das Hauptprogramm sind.