【单选题】

阅读下列FORTRAN程序：

DIMENSIONA(3)
DATAA/3.0，2.0，1.0/
X＝F
A、
WRITE(*，100)X
100FORMAT(1X，F3.1)
END
FUNCTIONF
B、
DIMENSIONA(3)，B(3)
DO10I＝1，3
10A(1)＝B(1)-I
F＝A(1)+A(2)+A(3)
X＝1.0-F
END
执行上述程序后，输出的X值为()。
A、1.0B、0.0
C、6.0
D、-5.0