PROGRAM TF3KQ
DOUBLE PRECISION :: ETA,A,U,B,H
ETA=3.D0/(3.D0**(2.D0/3.D0)-2.D0)
PRINT *,ETA
K0MIN=1
K0MAX=100
DO K0=K0MIN,K0MAX
K02=K0**2
K03=K0**3
K04=K0**4
K06=K0**6
A=9.D0*K02*ETA
PRINT*,K0,A
END DO

END PROGRAM TF3KQ