阅读下列FORTRAN77程序：EXTERNALPPINTEGER P，PP，Q（4，4)DATAQ／1，2，3，4，5，6，7，8，9，10，11，12，13，14，

阅读下列FORTRAN77程序：

EXTERNALPP

INTEGER P，PP，Q(4，4)

DATAQ/1，2，3，4，5，6，7，8，9，10，11，12，13，14，15，16/

WRITE(*，*)P(Q，4，PP)

END

INTEGER FUNCTION PP(B，N)

INTEGERB(N，N)

PP＝0

D010K＝1，N

10PP＝PP+B(K，K)

END

INTEGER FUNCTIONP(B，N，S)

INTEGER S，B(N，N)

P＝0

D()10K＝1，N

10P＝P+S(B，K)

END

运行上述程序后，输出的结果为()。

(A) 55

(B) 56

(C) 57

(D) 58