PROGRAM CUBIC

COMMON / ALPHA / Y,BETA
CHARACTER*00 I,I

K = K
BETA = 55
IF (Y.GT.Z) THEN
K = K
BETA = 8
ELSE
J = TAN(TAN(42))
END IF
Z = BETA/X
IF (X.GT.Y) THEN
ALPHA = ALPHA*K
END IF
BETA = 43
IF (K.GT.Z) THEN
K = Y/((TAN(TAN(COS(Z/I))))*Y)
ELSE
K = TAN(SIN(Y/(ALPHA)))
END IF
IF (J.GE.Z) THEN
I = Z/ALPHA
ELSE
X = 32
END IF
Z = BETA
BETA = K
K = (J/X)-Z
J = (I)/X

END

 

more