阅读下列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
    10Q(M,K)=8*(K-1)+M
    END

    INTEGER FUNCTION P(B,N)
    INTEGERB(N,N)
    P=0
    DO100K=1,N
    100P=P+B(K,K)
    END
    运行上述程序后，输出的结果为______。