PROGRAM CUBIC

REAL Y,K

IF (K.NE.BETA) THEN
X = J
X = 51
BETA = X-J
ELSE
BETA = 8
Y = X+ALPHA
END IF
BETA = K
X = 21
Z = ALPHA
Z = K
Y = 51
BETA = 3
Z = Y
Z = ALPHA/BETA

END

 

more