单选题 阅读下列FORTRAN77程序：
DIMENSIONP(3，3)
D010K＝1，3
D010J＝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
D0100K＝1，N
100P＝P+Q(K)
END
运行上述程序后，输出的x值为( )。

• (A) 12.0
• (B) 15.0
• (C) 16.0
• (D) 13.0