DO 10 K=1,M IF ((MOD(M,K).EQ.0).AND.(MOD(N,K).EQ.0)) G=K 10 CONTINUE
G=1 10 DO 20 K=2,M IF((MOD(M,K).EQ.0).AND.(MOD(N,K).EQ.0)) THEN M=M/K N=N/K G=G*K GOTO 10 ENDIF 20 CONTINUE
10 R=MOD(N,M) N=M M=R IF(R.NE.0.0) GOTO 10 G=N