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