单选题 阅读下列FORTRAN77程序：
INTEGER A(4,4)
DATA A/1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16/
WRITE(*，100)F(A，3)
100 FORMAT(1X，F4.1)
END
FUNCTION F(B，N)
INTEGER B(N，N)
F=0.0
DO 10 K=1，N
10 F=F+B(K，K)
END
上述程序运行后，输出结果为( )。
A．19.0 B．9.0 C．8.0 D．18.0