数组表达式的形状不符合。 [K]

Question

我知道这个标题不是新标题，但可能每个案例在某些方面与其他案例不同。 在我的情况下，我会把部分代码我得到这个错误。请帮助我，如果你可以：）

program Console4

  IMPLICIT none

  INTEGER I(100), J(100)
  REAL R1,PA(200),N, Ti(20,20), M(100)
  REAL k(100,100), keq(20), NU(50,50)
  REAL R(100,100), P(100,100)
  REAL Xin(100), t(100), h

  Ti = 850
  PA = 1
  R1=8.314

  k(2,1)=(2.71/10.0)*EXP(-1.531*10.0**(5)/(R1*Ti))
end program

然后给出最后一行的错误。您认为这可能是什么问题？

由于

Guilnaz