评价函数子程序.for

以前一个高人的程序

	SUBROUTINE EVAL(I,Q)!评价函数子程序
	INTEGER I,N
	REAL Q
	 Q=0
	DO N=1 , I
		Q=Q+ 0.05*((1-0.05)**(N-1))
      ENDDO
	RETURN
	END       !评价函数子程序结束