阅读下列FORTRAN77程序：
    DIMENSIONP(3,3)
    DO10K=1,3
    DO10J=1,3
    10P(K,J)=(K-1)*3+J
    CALLSUB(P(2,1),3,X)
    WRITE(*,*)X
    END
    SUBROUTINESUB(Q,N,P)
    DIMENSIONQ(N)
    P=0.0
    DO100K=1,N
    100P=P+Q(K)
    END
    运行上述程序后，输出的X值为______。