PROGRAM K3DELAMBDA
DO I=43,100
FLAMB=FLOAT(I)
FNUM=6.*FLAMB+9.+SQRT(4.*FLAMB**3-108.*FLAMB**2-108.*FLAMB-27.)
FDEN=2.*(FLAMB**3-36.*FLAMB**2-54.*FLAMB-27.)
FK3=FNUM/FDEN
PRINT*, FLAMB,FNUM,FDEN
END DO
END PROGRAM