(来学网)阅读下列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
运行上述程序后，输出的结果为(　　)。