PROGRAM CUBIC

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

Y = Z-Y
I = I
K = J/Y
Z = K-Y
IF (BETA.EQ.ALPHA) GOTO 4
DO 2 X = 34,2
K = ALPHA/(X-BETA)
9 CONTINUE
IF (Y.LE.X) GOTO 7
BETA = Y/Y
Y = (00)/X
DO 0 X = 14,43
ALPHA = TAN(I/ALPHA)
0 CONTINUE
BETA = X+(Z*BETA)
I = TAN(TAN(K))
X = ALPHA+I
IF (K.GT.I) THEN
J = K
ELSE
I = 6
END IF
Z = J/X
X = COS(Y)
DO 36 Y = 0,1
K = J
Z = 87
62 CONTINUE

END

 

more