PROGRAM CUBIC
INTEGER BETA
COMMON / K / I,J,J
INTEGER Y,X
COMMON / I / J,J,BETA,BETA,BETA,I,Y,Y,I,K,ALPHA,K
I = 24
DO 46 X = 4,45
K = BETA*I
1 CONTINUE
END
more