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