阅读下列FORTRAN77程序：
    DIMENSIONA(4,3)
    COMMON/P/A
    P=0.0
    DO10K=1,3
    DO10J=1,3
    IF(P.LE.5.0)P=P+A(J,K)
    10CONTINUE
    WRITE(*,*)P
    END
    BLOCKDATAABC
    DIMENSIONB(4,3)
    COMMON/P/B
    DATAB/4*4.0,4*-3.0,4*2.0/
    END
    运行上述程序后，输出的P值为______。