阅读下列FORTRAN77程序：
    EXTERNAL PP
    INTEGER P,PP,Q(4,4)
    DATAQ/1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16/
    WRITE(*,*)P(Q,4,PP)
    END
    INTEGER FUNCTION PP(B,N)
    INTEGERB(N,N)
    PP=0
    DO10K=1,N
    10PP=PP+B(K,K)
    END
    INTEGER FUNCTIONP(B,N,S)
    INTEGER S,B(N,N)
    P=0
    DO10K=1,N
    10P=P+S(B,K)
    END
    运行上述程序后，输出的结果为______。