阅读下列FORTRAN77程序：INTEGERB(4，4)，PN＝4CALLSUB(
题型：单项选择题
问题：
阅读下列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
