阅读下列FORTRAN77程序：INTEGERB（4，4)，PN＝4CALLSUB（B，N)WRITE（*，*)P（B，N)ENDSUBROUTINESUB（Q，N)I

阅读下列FORTRAN77程序：

INTEGERB(4，4)，P

N＝4

CALLSUB(B，N)

WRITE(*，*)P(B，N)

END

SUBROUTINESUB(Q，N)

INTEGERM，N，K，Q(N，N)

D010K＝1，N

D010M＝1，N

10Q(M，K)＝8*(K-1)+M

END

INTEGER FUNCTI()N P(B，N)

INTEGERB(N，N)

P＝0

D0100K＝1，N

100P＝P+B(K，K)

END

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

(A) 55

(B) 56

(C) 57

(D) 58