PROGRAM CUBIC

REAL I,X,J,Z,J,I
REAL K

J = TAN(SIN(K-BETA))
ALPHA = COS(BETA/I)

END

 

more