PROGRAM CUBIC
LOGICAL X
CHARACTER*89 J,ALPHA
LOGICAL J,ALPHA
I = SIN(Z)
Z = 89
Y = TAN(TAN(K))
Z = X*I
I = X
BETA = I
I = Z-(COS(BETA))
END
more