[완료]Fortran code 질문

sawa500의 이미지

포트란 코드를 보다 보니 아래와 같은 구문이 있던데 처음보는 구문이라 이게 무슨 의미인지 모르겠습니다.

DO 1 I=1,N
L=I
 
IF(EX-X(I)) 4,4,1  <=== 이부분이 이해가 안갑니다.
CONTINUE
 
GOTO 4
CONTINUE
vacancy의 이미지


정말 옛날에 배웠어서 기억이 가물가물합니다만,
( 한 20년 됐군요. ㅠㅠ )

IF (value) L1, L2, L3

위 문장의 의미는,
value < 0 이면 라벨 L1으로
value = 0 이면 라벨 L2로
value > 0 이면 라벨 L3로
가라는 것이었던 것 같네요.

기억이 정확하지 않으니 첫번째랑 세번째는
뒤바뀌었을지도 모릅니다. -_-;

sawa500의 이미지

..