【单选题】

阅读下列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