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