PROGRAM CUBIC

CHARACTER*4 I,I,I,BETA,BETA,K

I = ALPHA+Y
IF (I.NE.BETA) GOTO 8
IF (I.GE.K) THEN
K = BETA-J
END IF
J = 00

END

 

more