Thanks people.
I solved problem on the next way:
program prog
implicit none
double precision::kapa,r2,T2,a2
open (1,file='list.txt')
read (1,*) (kapa,r2,T2)
a2=sqrt(kapa*r2*T2)
print *, "a2=",a2
end program prog
Where input data in list.txt look like...