PROGRAM CUBIC

COMMON / X / BETA,I,ALPHA
CHARACTER*1 ALPHA,Y,J,Y
LOGICAL K,Z,BETA,Y,ALPHA,K,Y,Z,Y,I,I,Y,J,BETA,I,J,ALPHA,ALPHA,BETA,Y,I,Y,J,Y,K,J,K,Z,ALPHA

IF (J.LE.X) THEN
X = J
I = ALPHA
END IF
Z = Y+I
Y = 0
BETA = (X-Z)*BETA

END

 

more