阅读下列FORTRAN77程序：
INTEGERB(4，4)，P
N=4
CALLSUB(B，N)
WRITE(*，*)P(B，N)
END
SUBROUTINESUB(Q，N)
INTEGERM，N，K，Q(N，N)
DO10K=1．N
DO10M=1，N
10 Q(M，K)=8*(K-1)+M
END
INTEGERFUNCTIONP(B，N)
INTEGERB(N，N)
P=0
DO100K=1．N
100 P=P+B(K，K)
END
运行上述程序后，输出的结果为( )。
题型: 单选题
分类: 结构工程师
