例如下面程序
function yprime(xn,yn)
implicit none
real yprime,xn,yn
yprime=yn-2.d0*xn/yn
return
end 
我想yprime等于一个常数，并且为一个一维数组中的元素，而且每一次调用都依次取出其中的一个元素，请问应该如何编程。
谢谢指教！