implicit none
real lambda, c, deltaf, speed, deltanew
lambda=12.
deltaf=990.
speed=0.5*deltaf*lambda
c=3.0*10**8
deltanew=(c/lambda)*(((c+speed)/(c-speed))**2-1)
write(6,*) speed,deltanew
stop
end