当事人约定由1名仲裁员成立仲裁庭的，应当由当事人共同选定或者共同委托仲裁委员会主任指定。( )

阅读下列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