Вопрос Помогите с программой на фортране 77

[Zafar]

program yup
real Q_lambda_c,lambda_c,k1
lambda_c=1.03
k1=1.33

Q_lambda_c=ku_lambda_o(lambda_c,k1)
Cобращение к подпрограмме определяющей функцию ку
print*,Q_lambda_c
end

function ku_lambda_o(lambda_o,kk)
real lambda_o,u,kk,ku_lambda_o,a2
u=1/(kk-1)
a2=(((kk+1)/2)*(1-((kk-1)/(kk+1))*lambda_o**2))**u
ku_lambda_o=lambda_o*a2
end

 

[Exc1te]

real function ku_lambda_o(lambda_o,kk) ну и real ku_lambda_o, конечно