Unclassifiable statement 报错

sqs

程序中有如下子程序（部分）

[Fortran] 纯文本查看 复制代码

subroutine integralk(numk, numw, w, gamma, sigma)

    use ABA 

    implicit none
    integer, intent(in) :: numw, numk
    real(8),intent(in) :: w(numw)
    real(8), intent(in) :: gamma
    complex(8),intent(out) ::sigma(2, 2, numw)


    integer :: N = 6, i1, i3, i4
    real(8) :: k(2), en(6), ds 
    complex(8) :: t_sigma(2, 2, numw) , sigmak(2, 2, numw)
    complex(8) :: H(6,6), dagger_H(6,6), v(2, 6, 6), r(2, 6, 6)

    ds = 8d0*(PI**2)/((a0**2)*sqrt(3.0)*(numk**2))

    t_sigma = 0.d0

    do i3 = 1,numk
      do i4 = 1,numk
        
        k(1) = real(i3)/numk, k(2) = real(i4)/numk

但是在运行是出现了如下报错

[Fortran] 纯文本查看 复制代码

 228 |         k(1) = real(i3)/numk, k(2) = real(i4)/numk
      |         1
Error: Unclassifiable statement at (1)

这里面我对k(1),k(2)以及给出了定义，为什么还会出现unclassifiable statement 报错呢

sqs

vvt 发表于 2022-5-28 16:15
k(1) = real(i3)/numk; k(2) = real(i4)/numk
或
k=[real::i3,i4]/numk

所以Fortran在定义变量时是可以用逗号，而赋值的时候需要用分号么