下面哪种原因允许工单挂起（）

A.市政施工，光缆破坏较严重，维修时间较长

B.局端测试正常，赶往用户端时用户已下班无法配合

C.申告方明确提出需要观察的情况

D.设备缺货，暂不能维修

阅读下列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 10K=1，N
10 F=F+B(K，K)
END
上述程序运行后，输出结果为（）。

A．19.0

B．9.0

C．8.0

D．18.0