다른 서브 루틴 내에서 서브 루틴 호출

Question

서브 루틴 호출에 문제가 있습니다. 우선, IF 문 내에서 서브 루틴을 호출 할 수 있습니까?

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

두 번째 질문. Sub1은 sub2를 호출합니다. 그러면 sub2는 주 프로그램의 입력을 가지고 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 

참고 : 변수 사이의 추가

은 기본적으로 모든 변수가 서로에 따라 정확한 수학 연산 일어나는 것이 아니라, X = Y는 내가 유일한 방법이라고 생각 초기 조건 이것은 효과가있을 수 있습니다. sub2가 초기 x = y에서 픽업되지 않는 것 같습니다. 그러면 sub1에서 호출 될 때 sub1에 값을 제공합니다. 어쩌면 변수가 전달되는 방식을 이해하지 못할 수도 있습니다. 내가 얻는 오류는 컴파일하는 것이 아니라 실행 시간 오류로 인해 sub1 내에서 sub2라고 부르는 선으로 연결됩니다. 어떤 도움이라도 대단히 감사합니다.

Answer 1

모든 프로그램 및 모듈의 시작 부분에 implicit none을 사용하고 (USE 문장 만 사용하십시오) 모든 변수를 명시 적으로 선언하십시오.

서브 루틴을 호출 한 것처럼 완벽하게 괜찮 으면서도 변수의 범위를 고려해야합니다.

예에서 sub1은 주 프로그램의 로컬이므로 로컬 프로그램의 x 및 y에 액세스 할 수 없습니다.